WorkSheet-Ctrl EAFunctions

Home > EA Functions > Common-fx > EA_VariToStrArray

EA_VariToStrArray

機能説明

指定した範囲のセルをVariant形式の配列変数で一括取得した値から指定した列をString形式の配列として取得します。

定義

Public Function EA_VariToStrArray (

ByRef ea_vari As Variant,
ByRef ea_str() As String,
ByVal ea_pos As Long

) As Long

引数

ea_vari

Variant形式の配列を指定します。

ea_str

String形式の配列を指定します。

ea_str

取得する列を指定します。(1〜)

戻り値

配列の件数が返却されます。

使用例

ワークシート上の指定した範囲のセル値を一括取得して、指定列の値を配列として取得します。

                                    
Sub Main()
    Dim ea_vari As Variant
    Dim ea_str() As String
    Dim ea_cnt As Long
    
    ea_vari = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    ea_cnt = EA_VariToStrArray(ea_vari, ea_str, 1)
    MsgBox "件数:" & CStr(ea_cnt) & vbCrLf & _
           "配列:" & vbCrLf & EA_ArrayToTxt(ea_str, vbCrLf)
End Sub