For 〜 Each
For 〜 Eachステートメントは、指定したグループ・コレクションのメンバーを順番に取り出して処理を行う命令文です。●文法
|
For Each 制御変数 In グループ 処理 Next 制御変数 |
|---|
制御変数には、オブジェクト型・バリアント型を指定します。
String型等を指定することはできません。
使用例を見たほうが分かりやすいので、早速見ていきましょう。
●使用例
|
Sub sample() Dim varArray() As Variant Dim varPut As Variant Dim wirteCol As Long varArray() = Array("V", "B", "A", "講", "座") writeCol = 1 For Each varPut In varArray Cells(1, writeCol).Value = varPut writeCol = writeCol + 1 Next varPut End Sub |
|---|
Variant型の配列に"VBA講座"という文字列も1文字ずつ格納しておきます。
これ配列がグループになります。
「varPut」というVariant型の制御変数を準備しておきます。
◇処理の動き
01.varPut ← varArray(0)
02.varPut出力
03.varPut ← varArray(1)
04.varPut出力
05.varPut ← varArray(2)
06.varPut出力
07.varPut ← varArray(3)
08.varPut出力
09.varPut ← varArray(4)
10.varPut出力
という流れになります。
●実行結果
 Do 〜 Loop文
|
定数 
|
|---|
