Vba 経由で配列に新しい値を追加するにはどうすればよいですか?
既存の配列に新しい値を追加するには、要素を再定義するための動的配列が必要です。その際、古い要素の値を保持する必要があります。これにより、定義した新しい要素に値のみを追加し、残りの部分はそのまま残すことができます。
以下に、2 つの要素を定義した配列があります。これは動的配列であるため、「ReDim」ステートメントで 2 つの要素を定義し、それらの要素に値を追加します。
次に、この配列に 3 番目の要素を追加します。
VBAで配列に新しい値を追加する
- まず、「ReDim」ステートメントを「Preserve」キーワードとともに使用して、値を追加する新しい要素を含む両方の要素を保持する必要があります。
- 次に、配列に含める要素を定義する必要があります。ここでは 3 つの要素が必要なので、1 ～ 3 を使用します。
- その後、定義した新しい要素である 3 番目の要素に値を追加する必要があります。
- 最後に、 debug.printを使用して、イミディエイト ウィンドウ内の新しい項目を含むすべての項目を取得します。
Option Explicit Option Base 1 Sub vba_array_add_value() Dim myArray() As Variant ReDim myArray(2) myArray(1) = 5 myArray(2) = 10 ReDim Preserve myArray(1 To 3) myArray(3) = 15 Debug.Print myArray(1) Debug.Print myArray(2) Debug.Print myArray(3) End Subさらにいくつかの言葉を皆さんと共有しましょう。
- 後でコード内で配列にさらに値を追加する必要があることがわかっている場合は、最初に配列を動的配列として宣言する必要があります。
- このメソッドを使用すると、配列の末尾にのみ新しい要素を追加できます。