配列の添字の最小値を「1」に設定する

2015/03/29 2015/03/30

Option Base ステートメントを使用する

【書式】
Option Base 1

添字の既定の最小値は 0 です。Option Base ステートメントを使うと既定の最小値を 1 に設定できます。

Option Base ステートメントを使用する場合は、モジュール内のどのプロシージャよりも前に記述する必要があります。Option Base ステートメントは、モジュール内で一度だけ、次元を含む配列の宣言よりも前に記述します。

Option Base ステートメントの設定が有効になるのは、ステートメントが記述されているモジュール内の配列の添字の最小値のみです。

Option Base ステートメントを設定する

モジュールの宣言セクションに Option Base 1 を指定するとモジュール内の配列の添字の最小値が「1」に設定されます。

VBAソース

　
Sub sample_option_base01()

    '整数型の要素3の配列
    Dim strArray(3) As Integer

    '配列 strArray の添字の最小値・最大値を表示
    MsgBox "添字開始番号：" & LBound(strArray) & Chr(13) & _
           "添字終了番号：" & UBound(strArray)

End Sub

Sub sample_option_base01()

'整数型の要素3の配列

Dim strArray(3) As Integer

'配列 strArray の添字の最小値・最大値を表示

MsgBox "添字開始番号：" & LBound(strArray) & Chr(13) & _

"添字終了番号：" & UBound(strArray)

End Sub

実行結果

Option Base 1 ステートメントを設定しているため添字の最小値が「1」となります。
（ ※ UBound 関数・LBound 関数は、それぞれ配列の添字の最大値・最小値を取得します。）

Option Base ステートメントに影響されない関数など

Option Base ステートメントを使用しても Split 関数や キーワード ParamArray を使って作成する配列の添字の最小値は 0 のままです。
つまり、Split 関数 や キーワード ParamArray は、Option Base ステートメントの影響を受けません。

例 Split関数（※ Array 関数と比較）

　
Sub sample_option_base02()

    Dim val, val2, mystr
    
    val1 = Array(1, 2, 3, 4, 5)
       
    mystr = "10,20,30,40,50"
    val2 = Split(mystr, ",")
    
    'val1(1) と val2(1) の値を比較
    MsgBox "val1(Array関数で取得)：" & val1(1) & Chr(13) & _
           "val2(Split関数で取得)：" & val2(1)

End Sub

Sub sample_option_base02()

Dim val, val2, mystr

val1 = Array(1, 2, 3, 4, 5)

mystr = "10,20,30,40,50"

val2 = Split(mystr, ",")

'val1(1) と val2(1) の値を比較

MsgBox "val1(Array関数で取得)：" & val1(1) & Chr(13) & _

"val2(Split関数で取得)：" & val2(1)

End Sub

実行結果

Array 関数は、Open Base ステートメントの影響を受けるため、val1(1)は、「1」を表示します。一方、Split 関数は、Open Base ステートメントの影響を受けないため、val2(1)は、「20」を表示します。

例キーワード ParamArray

　

'引数の配列の添字が「1」の値を返す
Function get_First_el(ParamArray myArray()) As Long
    
    get_First_el = myArray(1)

End Function

Sub sample_option_base03()

    MsgBox get_First_el(11, 12, 13, 14, 15, 16, 17)

End Sub