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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

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

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

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

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

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: xlFileFormat 列挙型

xlFileFormat 列挙型 Workbook.SaveAs メソッドの引 …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

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

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

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

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