For Nextステートメント
ループ回数を指定してステートメントのグループを、ループ処理することができます。
構文
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
| counter | ループカウンターとして使用する変数を指定します。必須です。 |
| start | counter の初期値を指定します。必須です。 |
| end | counter の最終値を指定します。必須です。 |
| step | ループを繰り返すたびに、counter の数が変更されます。 省略時、step は既定値の 0 になります。省略可。 |
| statements | 指定した回数だけ実行されるステートメントです。 For と Next の間に記述します。省略可。 |
For Nextステートメントを使ったサンプルコード
Public Sub Sample()
Dim i As Long '変数を宣言
For i = 1 To 5 '変数iを1から5まで繰り返す
Cells(i, 1) = "番号" & i 'A列のi行目のセルに"番号+i"入れる
Next i 'iの処理はここまで
'■空白行を挿入する場合
Dim j As Long
For j = 1 To 10 Step 2 '「Step 2」1行置きの指定
Cells(j, 1) = 1
Next j
'■ネストする場合
Dim x As Long
Dim y As Long 'ネストしたい変数を宣言
For x = 1 To 5
For y = 1 To 5 'yのループ回数を指定
Cells(x, y) = "番号"
Next y 'yの処理はここまで
Next x
End Sub
注意点
- 空白行を挿入する場合「Step 2」は1行置き、「Step 3」は2行置き…と数字にズレが生じます。
- 条件を指定してループ処理を行いたい場合は、Do Loopステートメントを使用してください。
コメント