0

多次元配列を返す関数を作成しようとしています。問題は、配列のサイズが定義されていないことです。

私の配列はmy_list()の下の関数で初期化されます

Dim my_list() As String

Public Sub Load_My_List()

    Dim last_column As Integer
    last_column = some_helper.Get_Last_Column(somw_worksheet)

    'my array is resized in this point
    ReDim my_list(1 To last_column - 1, 1)

    Dim i As Integer
    i = 1

    For index= 2 To ultima_colonna


       my_list(i, 0) = some_worksheet.Cells(2, index).value
       my_list(i, 1) = index

       i = i + 1

    Next index

End Sub

では、 my_listを返す関数をどのように書くことができますか? 以下の関数のようなものは、タイプの不一致エラーを生成します

Public function Get_My_List as String()

    Get_My_List = my_list 

End Function

どうすればこの関数を適切に呼び出すことができますか? 私はそのようなものだと思います

Dim test() as String
test = Get_My_List

うまくいきません

4

0 に答える 0