VBAの関数から配列を返す

Question

これを動作させるのに問題があります。私はちょうど関数から配列を返すしたい、私が試みたコードは以下のとおりです。

Sub 
    Dim storeData As Variant: Set storeData = getData 
    Debug.Print storeData(1) 
End Sub 

Function getData() As Variant 
    Dim arr(2) As Variant 
    arr(1) = "ergreg" 
    arr(2) = "1005" 
    getData = arr 
End Function 

エラーがスローされませんが、何もイミディエイトウィンドウに印刷されていないあなたはすべての配列要素を印刷したい場合は、デバッグにForループを追加する必要が

Answer 1

私の間違い - ありがとう@GSergそれを見つけるために。

「設定」を削除するだけです。とてもシンプルです

Answer 2

：

Dim storeData As Variant 
Dim i As Long 
storeData = getData 

For i = LBound(storeData) To UBound(storeData) 
    Debug.Print storeData(i) 
Next i 

クイックノート：Dim arr(2) As Variant、arrには3つの要素（0から始まる）があります。第2および第3要素にのみ値を割り当てる。