Array 関数（バリアント型の配列を作成）

サイト管理人

10年前

Array 関数の使い方

【書式】

myArray = Array ( element [, elment, element … ] )

【引数・戻り値の説明】

element ・・・配列 myArray の要素となります
myArray ・・・作成されるバリアント型（Variant）の配列

Array 関数を使用して作成した配列のインデックスの最小値は、通常 0 ですが、Option Base 1 ステートメントを指定するとインデックスの最小値は 1 となります。

Array 関数の使用例

サンプルVBAソース

　
Sub sample_array()

    Dim myArray()
    Dim i As Long
    Dim strArray As String
    
    myArray = Array(100, 200, 300, 400, 500)
    
   
    For i = LBound(myArray) To UBound(myArray)
    
        strArray = strArray & "myArray(" & i & ") = " & myArray(i) & Chr(13)
    
    Next i
    
    MsgBox strArray
    
    
End Sub

Sub sample_array()

Dim myArray()

Dim i As Long

Dim strArray As String

myArray = Array(100, 200, 300, 400, 500)

For i = LBound(myArray) To UBound(myArray)

strArray = strArray & "myArray(" & i & ") = " & myArray(i) & Chr(13)

Next i

MsgBox strArray

End Sub

実行結果

サンプルVBAソース（Option Base 1 を指定）

　
Option Base 1


Sub sample_array()

    Dim myArray()
    Dim i As Long
    Dim strArray As String
    
    myArray = Array(100, 200, 300, 400, 500)
    
   
    For i = LBound(myArray) To UBound(myArray)
    
        strArray = strArray & "myArray(" & i & ") = " & myArray(i) & Chr(13)
    
    Next i
    
    MsgBox strArray
    
    
End Sub

Option Base 1