For Each文

For 変数 In 配列orコレクション
Exit For
Next
Dim a
Dim v(3)
v(0)=1
v(1)=10
v(2)=30
For Each a In v
Debug.Print a
Next
と書くと配列の中身を順次aに入れながらループします。
但し、その順番は言語仕様上は不定となっています。

コレクションというのはオブジェクトの集合オブジェクトです。
例えばセルのある範囲を示して、セルを順番に処理していくようなことができます。
Dim a As Range
For Each a In Range("A1:A4")
Debug.Print a.Value
Next
細かい解説は省きますが、こんな風に書けます。
セル4つ分の値を出力していきます。
comments (0)

コメント

Comment Form