Excel VBA 入門講座 For Next

For Nextステートメント

複数の条件により処理を分岐させたい場合はSelect Caseステートメントを使用します。"Select Case 変数"の形式で式を評価し、Case以下の条件に合致（式を評価した結果がtrueであるとき）だけその次の文を実行します。条件がtrueでないときは、次の次の条件を調べます。どのCase以下の条件にも当てはまらない場合はCase Else以下の文を実行します。

条件により処理を繰り返したい場合はFor～Nextステートメントを使用します。


For カウンタ変数 = 初期値 To 繰り返し回数
    繰り返し回数までの処理
Next

下記の例では、まず変数 i に 1 が代入され、次に i が10以上かどうかを評価し、セルに値を代入し、次に i の値を1つ加算し、もう一度 i が10以上かどうかを評価し、セルに値を代入します。この処理を i が10以上になるまで繰り返します。


'説明：セルのA1～A10に1～10を入力する
Sub test()
    For i = 1 To 10
        Worksheets("Sheet1").Cells(i, 1).Value = i
    Next
End Sub

For～Next文ではデフォルトでは、カウンタ変数に 1 が加算されますが、"STEP"を指定しカウンタ変数に加算される数値を指定することができます。


For カウンタ変数 = 初期値 To 繰り返し回数 Step 加算値
    繰り返し回数までの処理
Next

下記の例では、まず変数 i に 1 が代入され、次に i が10以上かどうかを評価し、セルに値を代入し、次に i の値を 2 つ加算し、もう一度 i が10以上かどうかを評価し、セルに値を代入します。この処理を i が10以上になるまで繰り返します


'説明：セルのA1～A10に1,3,5,7,9を入力する
Sub test()
    For i = 1 To 10 Step 2
        Worksheets("Sheet1").Cells(i, 1).Value = i
    Next
End Sub