ChatGPTでVBAを学ぶ

配列について聞いてみたその１

３０個の使い方の紹介がありましたが、６回に分けてご紹介します

1.配列の宣言と初期化:

Dim myArray(3) As Integer ' 長さ4の整数型配列を宣言
myArray(0) = 10 ' 要素0に値を代入
myArray(1) = 20 ' 要素1に値を代入
myArray(2) = 30 ' 要素2に値を代入
myArray(3) = 40 ' 要素3に値を代入

2.配列の要素にアクセス:

Dim value As Integer
value = myArray(2) ‘ 配列の要素2の値を取得してvalueに代入

3.配列のループ処理:

Dim i As Integer
For i = LBound(myArray) To UBound(myArray) ' 配列の範囲でループ
    MsgBox "要素 " & i & " の値は " & myArray(i) & " です。"
Next i

4.配列の動的なサイズ変更:これらの例題を通じて、配列の宣言、要素へのアクセス、ループ処理、動的なサイズ変更など、基本的な配列の使い方を学ぶことができます。

ReDim Preserve myArray(5) ' 配列のサイズを5に変更し、既存の要素を保持
myArray(4) = 50 ' 新しい要素に値を代入
myArray(5) = 60 ' 新しい要素に値を代入

5.多次元配列の使用:

Dim myMatrix(2, 2) As Integer ' 3x3の整数型2次元配列を宣言
myMatrix(0, 0) = 1 ' (0,0)の要素に値を代入
myMatrix(0, 1) = 2 ' (0,1)の要素に値を代入
myMatrix(0, 2) = 3 ' (0,2)の要素に値を代入
' 他の要素に値を代入…

' 2次元配列のループ処理
Dim i As Integer, j As Integer
    For i = 0 To 2
        For j = 0 To 2
            MsgBox "行 " & i & " 列 " & j & " の値は " & myMatrix(i, j) & " です。"
        Next j
    Next i

その１は、ここまでにしようと思ったが、さらに追加の質問を

「3×3の行列ではなく、3×3の要素を持つ正確な2次元配列ですがわかりにくいです」

と聞いてみた

VBAを初めて学ぶ人にとって、配列の概念は少し難しいかもしれません。以下のように例を使って説明します。

考えてみましょう。3×3の行列は、3つの行とそれぞれの行に3つの要素があります。つまり、合計で9つの要素があります。しかし、VBAの場合、2次元配列は「行」と「列」の組み合わせで要素をアクセスする方法です。3×3の行列をシミュレートするには、行と列の組み合わせが必要です。

では、具体的な例を見てみましょう。次のような3×3の行と列があるとします。

1 2 3
4 5 6
7 8 9

これをVBAの2次元配列で表現すると、次のようになります。

Dim myMatrix(2, 2) As Integer ' 3x3の整数型2次元配列を宣言
myMatrix(0, 0) = 1
myMatrix(0, 1) = 2
myMatrix(0, 2) = 3
myMatrix(1, 0) = 4
myMatrix(1, 1) = 5
myMatrix(1, 2) = 6
myMatrix(2, 0) = 7
myMatrix(2, 1) = 8
myMatrix(2, 2) = 9

このように、各要素を行と列の組み合わせで表現しています。そして、ループを使ってこの配列の要素にアクセスすることができます。

Dim i As Integer, j As Integer
For i = 0 To 2
    For j = 0 To 2
        MsgBox "行 " & i & " 列 " & j & " の値は " & myMatrix(i, j) & " です。"
    Next j
Next i

これで、それぞれの要素にアクセスし、その値を表示することができます。

いかがでしたでしょうか、追加の質問で、さらに具体的な回答が得られたのではないでしょうか
これでもわからないときは、見方をかえた質問で分かるまで問い詰めてください
何度聞いても嫌がることなく答えてくれるところが、chatGPTの良さでもあります

chatGPTに触れてみたい方があれば、メールお問い合わせくださいませ