Array関数で配列を作成する

今回はArray関数についてメモしておきます。

Array関数を使うと、パラメーターに指定した値を一度に配列に格納することができます。

実行プログラム

Sub Sample3_2_1()

    Dim varArray As Variant
    Dim i        As Integer

    varArray = Array("日", "月", "火", "水", "木", "金", "土") ' 配列に格納
    
    Range(Cells(1, 1), Cells(1, 7)).Value = varArray  ' セルへ

End Sub

Sub Sample3_2_1()

Dim varArray As Variant

Dim i As Integer

varArray = Array("日", "月", "火", "水", "木", "金", "土") ' 配列に格納

Range(Cells(1, 1), Cells(1, 7)).Value = varArray ' セルへ

End Sub

実行結果

Option Baseステートメントの影響

ヘルプでArray関数の項目を見てみると、

『Array 関数を使用して作成した配列のインデックスの最小値は、常に0です。ほかの種類の配列とは異なり、Option Baseステートメントに最小値を指定しても影響を受けません。』

と、あります。

間違いです。
Option Baseステートメントの影響を受けます。

“Option Base 1″を記述した場合の動作を確認してみます。

実行プログラム

Option Base 1
Sub Sample3_2_1()

    Dim varArray As Variant
    Dim i        As Integer

    varArray = Array("日", "月", "火", "水", "木", "金", "土") ' 配列に格納
    
    Range(Cells(1, 1), Cells(1, 7)).Value = varArray  ' セルへ

End Sub

Option Base 1