#18エクセルVBA入門-For Each Nextで配列をLoopする

Excel VBA

For Each ステートメントとは

配列に対して繰り返し処理を行えます。

ここでは扱いませんが、配列以外にコレクションなどグループに対して繰り返し処理を行えます。

#16で For Next ステートメントがありましたが、こちらは配列やコレクションに限らず用いられます。

For Each の使い方

以下のような使い方です。

ではやっていきます。

Eachを使うので、EachTestというプロ―シージャ名にします。

Sub EachTest()

西郷・一橋・勝・坂本 の四人を配列の要素として準備します。

配列の変数名は namesにします。

Dim names as Variant  ‘変数namesをVariant型で宣言します。

names = Array(“西郷”, “一橋”, “勝”, “坂本”)  ’namesにArrayで四人の名前を設定します。

要素を受け取る変数名を単数形の name にします。

Dim name as Variant ‘変数 name をVariant型で宣言します。

 

For Each name in names ‘全ての配列の要素に対し何らかの処理をする場合はこう書きます。。

Debug.Print name ‘個々の名前をイミディエイトウィンドウに表示します。

Next name ‘次の名前に移ります。

 

*Next の後の nameは省略可能です。

コメント