TOP

動的配列と固定配列 – Excel VBA

公開日： 2015/02/22 : 最終更新日：2015/03/01
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Excel VBA

動作確認環境

Windows7
Excel: 2007

構文

N/A

サンプルコード

動的配列の例

Sub ArrayControl()
'動的配列
'
    Dim A() As String
    Dim i As Integer
'
    '配列のサイズを宣言
    ReDim A(4)

    '配列に要素を定義
    A(0) = "リンゴ"
    A(1) = "ゴリラ"
    A(2) = "ラッコ"
    A(3) = "コアラ"
    A(4) = "ライオン・・・ん!"
    
    '要素の呼び出し
    i = 0
    For i = 0 To 4
        MsgBox "A(" & i & ") =" & A(i)
    Next i
    
    '要素の初期化
    Erase A
    
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

Sub ArrayControl()

'動的配列

'

Dim A() As String

Dim i As Integer

'

'配列のサイズを宣言

ReDim A(4)

'配列に要素を定義

A(0) = "リンゴ"

A(1) = "ゴリラ"

A(2) = "ラッコ"

A(3) = "コアラ"

A(4) = "ライオン・・・ん!"

'要素の呼び出し

i = 0

For i = 0 To 4

MsgBox "A(" & i & ") =" & A(i)

Next i

'要素の初期化

Erase A

End Sub

動的配列、途中で配列のサイズを変更する場合の例

Sub ArrayControl2()
'動的配列、配列のサイズを途中で変更
'
    Dim A() As String
    Dim i As Integer
'
    '配列のサイズを宣言
    ReDim A(1)
    A(0) = "リンゴ"
    A(1) = "ゴリラ"
'
    '配列のサイズを変更、変更前の配列を残す。
    ReDim Preserve A(4)
    A(2) = "ラッコ"
    A(3) = "コアラ"
    A(4) = "ライオン・・・ん!"
   
    '要素の呼び出し
    i = 0
    For i = 0 To 4
        MsgBox "A(" & i & ") =" & A(i)
    Next i
    
    '要素の初期化
    Erase A
    
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

Sub ArrayControl2()

'動的配列、配列のサイズを途中で変更

'

Dim A() As String

Dim i As Integer

'

'配列のサイズを宣言

ReDim A(1)

A(0) = "リンゴ"

A(1) = "ゴリラ"

'

'配列のサイズを変更、変更前の配列を残す。

ReDim Preserve A(4)

A(2) = "ラッコ"

A(3) = "コアラ"

A(4) = "ライオン・・・ん!"

'要素の呼び出し

i = 0

For i = 0 To 4

MsgBox "A(" & i & ") =" & A(i)

Next i

'要素の初期化

Erase A

End Sub

動的配列、二次元配列の例

Sub ArrayControl3()
'動的配列、二次元配列
'
    Dim A() As String
    Dim i, j As Integer
'
    '配列のサイズを宣言、要素定義
    ReDim A(1, 1)
    A(0, 0) = "リンゴ"
    A(0, 1) = "ゴリラ"
    A(1, 0) = "ラッコ"
    A(1, 1) = "コアラ"
'
    '要素の呼び出し
    i = 0
    For i = 0 To 1
        For j = 0 To 1
        MsgBox "A(" & i & "," & j & ") =" & A(i, j)
        Next j
    Next i
    
    '要素の初期化
    Erase A
    
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

Sub ArrayControl3()

'動的配列、二次元配列

'

Dim A() As String

Dim i, j As Integer

'

'配列のサイズを宣言、要素定義

ReDim A(1, 1)

A(0, 0) = "リンゴ"

A(0, 1) = "ゴリラ"

A(1, 0) = "ラッコ"

A(1, 1) = "コアラ"

'

'要素の呼び出し

i = 0

For i = 0 To 1

For j = 0 To 1

MsgBox "A(" & i & "," & j & ") =" & A(i, j)

Next j

Next i

'要素の初期化

Erase A

End Sub

サンプルファイル

配列_20150222 [エクセルファイル]

[参考]

Tweet

関連記事

[Excel VBA] セルの検索(Range.Findメソッド)

動作確認環境 Windows7 Excel: 2007 構文・検索範囲の

記事を読む

[Excel VBA] メッセージボックスを使う

動作確認環境 Windows10 Excel: 2016 説明メッセージボックスを使う

記事を読む

[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA

動作確認環境 Windows7 Excel: 2007 構文対象範囲: Rang

記事を読む

[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド

動作確認環境 Windows7 Excel: 2007 構文式: Appl

記事を読む

[Excel VBA] ワークシートの変更を検知する　(Worksheet.Change イベント)

動作確認環境 Windows7 Excel: 2007 構文式:Workshee

記事を読む

03-5 ExcelVBAメモ・小技集 INDEX

記事を読む

[Excal VBA] オートフィルターを使ってリストにフィルターをかけます。 – Range.AutoFilter メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明オートフィルタ

記事を読む

[Excal VBA] セルを挿入する。 – Range.Insert メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明指定された範囲

記事を読む

[Excal VBA] セルに値を入れる – Range.Value プロパティ-

動作確認環境 Windows7 Excel: 2007 説明セルに値をいれます。

記事を読む

[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-

動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア

記事を読む

Message コメントをキャンセル

PREV: [Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) - Excel VBA
NEXT: [Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド

NEW ENTRY

: [Excel] 編集禁止になっているセルに書式設定で色を付ける。
動作確認環境 Windows10 Excel: 2016 編

: [Excel] セルを編集禁止にする。
動作確認環境 Windows10 Excel: 2016 説

: [Excel VBA] メッセージボックスを使う
動作確認環境 Windows10 Excel: 2016 説

: [Word] フィードで連番(“000, 001″などの3桁以上)番号を入力したい
自分用のメモ執筆中マイクロソフト　ワード　連番番号

: [Excel基本操作] 見えているセルだけをコピーする
動作確認環境 Windows7 Excel: 2007 見え

→もっと見る

INDEX

カテゴリー
カテゴリー

アーカイブ
アーカイブ

タグ
ADDRESS Application.Intersect メソッド Application オブジェクト AREAS CHOOSE COLUMN COLUMNS Excel VBA ExcelVBAメモ・小技集 Excel基本操作 Excel関数 HLOOKUP HYPERLINK INDEX INDIRECT LOOKUP Range.Activate メソッド Range.Address プロパティ Range.AutoFilter メソッド Range.Findメソッド Range.Insert メソッド Range.Select メソッド Range.Value プロパティ Range オブジェクト Window.View プロパティ Window オブジェクト Worksheet.Change イベントアドイン/オートメーション関数イベントエンジニアリング関数オブジェクトキューブ関数セルの操作データベース関数ピボットテーブルプロパティメソッド情報関数数学/三角関数文字列操作関数日付/時刻関数検索/行列関数統計関数論理関数財務関数

最近の投稿

最近のコメント

広告

サイト内検索

INDEX