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 (2)

コメント

http://exclusivecelebr2.exteen.com/ | 2017/07/31 04:18 PM
Hello, everything is going fine here and ofcourse every one is sharing
information, that's in fact excellent, keep up writing.
What makes you grow taller during puberty? | 2017/07/29 05:29 AM
Thanks for every other informative blog. Where
else may just I get that type of information written in such an ideal approach?
I have a mission that I am just now running on, and I've been at
the look out for such information.

Comment Form