「Excel VBA」配列の要素を取得するサンプル

2021年4月8日

書式
Call 関数名
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
'配列の定数
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

Excel VBA

Posted by arkgame