【VBA】配列のUBound値の戻り値が想定通りではない

Question

下記コードを実行すると「4」ではなく「3」と出力されます。
Arrayで指定している引数の数は4つなのに、何故「3」が出力されるのでしょうか？

Sub Sample()
    Dim a As Variant
    a = Array(1, 2, 3, 4)
    MsgBox UBound(a)
End Sub

Answer 1

何も指定しないと、配列の添字は0から始まるからです。

コードの最上部でOption Base 1と宣言すると、1始まりに切り替えることもできますが、あまりおすすめはしません（他言語では0始まりが一般的なので、それに慣れたほうがいいと思います）。

Comments

[退会済みユーザー]

UBoundは配列の要素数ではなく、添え字の数を返すのですね。
ご回答ありがとうございます！

[maisumakun]

「使用できる添え字の最大値」です（VBAではReDim arr (5 To 8)のように、始まりをずらした配列も作れるので、LBoundとUBoundの2つがセットになっています）。

[退会済みユーザー]

勉強になります。ありがとうございます。

Answer 2

a = array(1,2,3,4)は以下と同じ意味になります。

Dim a(3) As Integer
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4

添字範囲0～3の1次元配列を宣言しているので、LBoundは0、UBoundは3になります。

多次元配列を作成するときは、次元・サイズが静的（定数）のときは Dim、動的（変数）の場合は ReDim を使って作成します。ここでは ReDim を使った例を示します。

Dim a As Variant
Dim index As Integer

ReDim a(3, 1, 4, 2)
For index = 1 To 4
    MsgBox index & "次 " & LBound(a, index) & "～" & UBound(a, index)
Next

実行結果
1次 0～3
2次 0～1
3次 0～4
4次 0～2

あと、Variant は便利ですが、スピードが遅く、型チェックが働かないので、できれば以下のように宣言の際に型を明示的に示した方が良いです。

Dim a() As Integer
ReDim a(3, 1, 4, 2)

Comments

[退会済みユーザー]

詳しいご説明ありがとうございます！