【Excel VBA】配列の要素数に変数の数字を設定する方法

ポイント

• Dim lngArray(lngLength ) As Long といった書き方は不可能で、コンパイルエラーとなった。
• [コンパイルエラー: 定数式が必要です。]
• Dim lngArray(100) As Long ならば問題ない。
• 変数を配列の要素数に割り当てたい場合は、ReDim でサイズを指定する。

サンプルコード

Public Sub Test()
  ' 配列の要素数となる変数
  Dim lngLength As Long
  lngLength = 100
  ' 配列を宣言し、要素数に lngLength を設定
  Dim lngArray() As Long
  ReDim lngArray(lngLength)
  ' 配列の要素数を確認
  Debug.Print UBound(lngArray)
End Sub

おわりに

Excel 2013 で VBA を扱っておりましたら、今回の問題に出くわしました＞＜。VBA はコードの量を多く書かなければならないように感じておりますの＞＜。

それはともかく、次のページが参考になりました♪ありがとう存じます！

• VBA基本(配列変数の利用)

以上です。