EA_GetCellArray

機能説明
指定したワークシートの指定したセルの位置から下方向のデータを一次元配列として取得します。

定義
Public Function EA_GetCellArray (
ByRef ea_wsh As Worksheet
ByRef ea_str() As String,
ByVal ea_row As Long,
ByVal ea_col As Long
) As Long

引数
ea_wsh
対象のワークシートを指定します。
ea_str()
対象のワークシートを指定します。
ea_row
調査開始セルの行位置を指定します。
ea_col
調査開始セルの列位置を指定します。

戻り値
件数が返却されます。

使用例
ワークシート上のデータを取得します。
                                    
Sub Main()
    Dim ea_wsh As Worksheet
    Dim ea_str() As String
    Dim ea_cnt As Long

    Set ea_wsh = ThisWorkbook.Worksheets("Sheet1")
    ea_cnt = EA_GetCellArray(ea_wsh, ea_str, 1, 1)
    MsgBox "結果:" & ea_cnt & vbCrLf & _
                "配列データ:" & vbCrLf & _
                EA_ArrayToTxt(ea_str, vbCrLf)
    Set ea_wsh = Nothing
End Sub
                                    
                                
クラウドソーシング「ランサーズ」