動的配列と固定配列 – Excel VBA
公開日:
:
最終更新日:2015/03/01
カテゴリ: 03-5_ExcelVBA_メモ・小技集
タグ: Excel VBA
動作確認環境
Windows7
Excel: 2007
構文
N/A
サンプルコード
動的配列の例
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 |
動的配列、途中で配列のサイズを変更する場合の例
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 |
動的配列、二次元配列の例
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 |
サンプルファイル
[参考]
広告
関連記事
-
-
[Excal VBA] セルをアクティブにする。 – Range.Activate メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 1つのセルをア
-
-
[Excel VBA] ワークシートの変更を検知する (Worksheet.Change イベント)
動作確認環境 Windows7 Excel: 2007 構文 式:Workshee
-
-
[Excel VBA] セルの検索(Range.Findメソッド)
動作確認環境 Windows7 Excel: 2007 構文 ・検索範囲の
-
-
[Excel VBA] セルの行列番号、参照範囲(アドレス)を取得する(Range.Address プロパティ) – Excel VBA
動作確認環境 Windows7 Excel: 2007 構文 対象範囲: Rang
-
-
[Excel VBA] 印刷時の余白、ヘッダー、フッター等を設定する。
動作確認環境 Windows7 Excel: 2007、2013 説明 余白、ヘッダー、
-
-
[Excal VBA] オートフィルターを使ってリストにフィルターをかけます。 – Range.AutoFilter メソッド-
動作確認環境 Windows7 Excel: 2007, 2013 説明 オートフィルタ
-
-
[Excel VBA] 改ページプレビュー、ノーマルビュー(標準)、ページレイアウト表示を切り替える -Window.Viewプロパティ-
動作確認環境 Windows7 Excel: 2007、2013 説明 ウィンドウに表示
-
-
[Excel VBA] 任意のセルが、指定したセル範囲にあるか調べる(Application.Intersect メソッド
動作確認環境 Windows7 Excel: 2007 構文 式: Appl
-
-
実行中のマクロを中断する – Excel VBA
動作確認環境 Windows7 Excel: 2007 手順 Ctrl + Pause
-
-
[Excal VBA] セルに値を入れる – Range.Value プロパティ-
動作確認環境 Windows7 Excel: 2007 説明 セルに値をいれます。