Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2015/04/03

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

　

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

　

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

　

実行結果

- VBA基本 Array 関数, Option Base ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

: コレクション（Collection）オブジェクト「連想配列」

コレクション（Collection）オブジェクトの使い方【書式】 Dim my …

: 指定した値を8進数で表記した文字列に変換する（Oct 関数）

Oct 関数の使い方【書式】 result = Oct ( expressi …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 対象のオブジェクトをクリアする（Clear メソッド）

Clear メソッド対象となるオブジェクト全体をクリアします。Range オブ …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

PREV: Erase ステートメント（配列の初期化・動的配列のメモリ解放）
NEXT: Split 関数（文字列型の一次配列を作成）