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

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

2015/03/31 2015/04/01

配列の宣言

【書式】※ 配列の宣言

＜Type 型の静的配列（固定長配列）の宣言＞
Dim myArray ( [ lower To ] upper ) As Type

＜Variant（バリアント）型の静的配列（固定長配列）の宣言＞
Dim myArray ( [ lower To ] upper ) [ As Variant ]

＜Type 型の動的配列の宣言＞
Dim myArray () As Type

＜Variant（バリアント）型の動的配列の宣言＞
Dim myArray () [ As Variant ]

【書式】※ 要素数の変更

＜Type 型の配列の要素数の変更＞
ReDim [ Preserve ] myArray ( [ lower To ] upper ) [ As Type ]

＜Variant（バリアント）型の配列の要素数の変更＞
ReDim [ Preserve ] myArray ( [ lower To ] upper ) [ As Variant ]

【各項目の説明】

myArray ・・・配列の変数名
lower ・・・配列の添字最小値（先頭のインデックス：省略可 ⇒ 省略した場合、「0」あるいは、Option Base 1 を指定している場合は「1」となります。）
upper ・・・配列の添字最大値（末尾のインデックス）
Type ・・・変数のデータ型を指定します。

Preserve：配列の要素数を変更する際、その配列にすでに格納されている値を失わずに要素数を変更するためのキーワードです。
（※ これを使用する時は、配列の次元を変更することはできません。）

一度宣言した静的配列の要素数・次元を変更することはできません。動的配列の場合、何度でも変更することが可能です。

配列の宣言実例

VBAソース

　

Sub sample_array01()

    'String（文字列型）要素数４の静的配列（固定長配列）の宣言
    Dim strArray(3) As String
    
    'Integer（整数型）要素数６の静的配列（固定長配列）の宣言
    Dim intArray(0 To 5) As Integer
    
    'Variant（バリアント型）要素数２５の静的配列（固定長配列）の宣言
    Dim myArray(1 To 25)
    
    'Long（長整数型）の動的配列の宣言
    Dim lngArray() As Long
    '要素数を変更
    ReDim lngArray(1 To 5)
    
    'Variant（バリアント型）の動的配列の宣言
    Dim valArray()
    '要素数を変更
    ReDim valArray(2)
          

    MsgBox "型：" & TypeName(strArray) & " ／ 要素数：" & UBound(strArray) - (LBound(strArray) - 1) & Chr(13) & _
           "型：" & TypeName(intArray) & " ／ 要素数：" & UBound(intArray) - (LBound(intArray) - 1) & Chr(13) & _
           "型：" & TypeName(myArray) & " ／ 要素数：" & UBound(myArray) - (LBound(myArray) - 1) & Chr(13) & _
           "型：" & TypeName(lngArray) & " ／ 要素数：" & UBound(lngArray) - (LBound(lngArray) - 1) & Chr(13) & _
           "型：" & TypeName(valArray) & " ／ 要素数：" & UBound(valArray) - (LBound(valArray) - 1)


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

25

26

27

28

29

30

31

32

33

34

　

Sub sample_array01()

'String（文字列型）要素数４の静的配列（固定長配列）の宣言

Dim strArray(3) As String

'Integer（整数型）要素数６の静的配列（固定長配列）の宣言

Dim intArray(0 To 5) As Integer

'Variant（バリアント型）要素数２５の静的配列（固定長配列）の宣言

Dim myArray(1 To 25)

'Long（長整数型）の動的配列の宣言

Dim lngArray() As Long

'要素数を変更

ReDim lngArray(1 To 5)

'Variant（バリアント型）の動的配列の宣言

Dim valArray()

'要素数を変更

ReDim valArray(2)

MsgBox "型：" & TypeName(strArray) & " ／要素数：" & UBound(strArray) - (LBound(strArray) - 1) & Chr(13) & _

"型：" & TypeName(intArray) & " ／要素数：" & UBound(intArray) - (LBound(intArray) - 1) & Chr(13) & _

"型：" & TypeName(myArray) & " ／要素数：" & UBound(myArray) - (LBound(myArray) - 1) & Chr(13) & _

"型：" & TypeName(lngArray) & " ／要素数：" & UBound(lngArray) - (LBound(lngArray) - 1) & Chr(13) & _

"型：" & TypeName(valArray) & " ／要素数：" & UBound(valArray) - (LBound(valArray) - 1)

End Sub

　

実行結果

- VBA基本 Preserv, VBA基本, エクセルVBA, 配列の要素数の変更

Tweet

Message コメントをキャンセル

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

関連記事

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

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

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

: 配列（多次元配列・配列の次元の変更）

多次元配列【書式】　多次元配列の宣言＜静的配列（固定長配列）＞ Dim my …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

: フォントサイズ（Size プロパティ・StandardFontSize プロパティ）

フォントサイズを取得・設定する（Size プロパティ） Size プロパティは、 …

: オブジェクトの書式をクリアする（ClearFormats メソッド）

ClearFormats メソッド対象となるオブジェクトの書式（スタイル）を初 …

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

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

PREV: 配列の要素数を取得する（UBound 関数・LBound 関数）
NEXT: 配列（多次元配列・配列の次元の変更）