「Excel VBA」配列の要素を取得するサンプル
書式
Call 関数名
使用例
'配列の定数
Dim CodeArr As Variant
Sub testFunc()
'関数を呼ぶ
Call OpCodeFunc
Debug.Print CodeArr(0)
Debug.Print CodeArr(1)
Debug.Print CodeArr(2)
Debug.Print CodeArr(3)
End Sub
'配列の要素をセット
Sub OpCodeFunc()
CodeArr = Array("1001", "2002", "3003", "4004")
End Sub
'配列の定数
Dim CodeArr As Variant
Sub testFunc()
'関数を呼ぶ
Call OpCodeFunc
Debug.Print CodeArr(0)
Debug.Print CodeArr(1)
Debug.Print CodeArr(2)
Debug.Print CodeArr(3)
End Sub
'配列の要素をセット
Sub OpCodeFunc()
CodeArr = Array("1001", "2002", "3003", "4004")
End Sub
'配列の定数 Dim CodeArr As Variant Sub testFunc() '関数を呼ぶ Call OpCodeFunc Debug.Print CodeArr(0) Debug.Print CodeArr(1) Debug.Print CodeArr(2) Debug.Print CodeArr(3) End Sub '配列の要素をセット Sub OpCodeFunc() CodeArr = Array("1001", "2002", "3003", "4004") End Sub
実行結果
1001
2002
3003
4004