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

関連記事

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

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

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: xlFileFormat 列挙型

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

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

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

: 色を設定する（QBColor 関数）

QBColor 関数 QBColor 関数は、指定した色番号に対応するRGB コ …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

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

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

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

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