繰り返し処理（For…Next ステートメント）

サイト管理人

9年前

For…Next ステートメントの使い方

【構文】

For counter = start To end [ Step step ]

　　[ statements ]

Next [ counter ]

【項目の説明】

counter ・・・繰り返し処理の処理回数を保持する変数。
start ・・・ counter の初期値。
end ・・・ counter の終了値。
step ・・・ 1回のループごとに、counter に加える値（省略可）。
statements ・・・ For…Next ステートメントで指定した回数だけ実行されます（省略可）。

Step step を省略した場合、引数 counter には 1回のループごとに「1」が加算されます。

For…Next ステートメント から抜け出す方法に、Exit For ステートメント を指定することができます。また、For…Next ステートメント はネスト (入れ子) 構造にすることができ、その場合に Exit For が実行された場合は、その Exit For を囲んでいる 1 番内側のループから抜け出します。

もし無限ループの状態に陥ってしまった場合は、[ECS] キーを押し続けるか、それで戻らない場合は、[Ctrl] + [Alt] + [Delete] を押して Windows のタスクマネージャーを表示して、Excel を強制終了してください。

For…Next ステートメントの使用例

VBAソース例

　

Sub sample_for_next()

    Dim counter
    Dim i
    
    counter = 0
    
    For i = 0 To 20 Step 6
        
        counter = counter + 1
        
        If counter > 21 Then Exit For
        
    Next
    
    MsgBox counter & " 回ループしました。"

End Sub

Sub sample_for_next()

Dim counter

Dim i

counter = 0

For i = 0 To 20 Step 6

counter = counter + 1

If counter > 21 Then Exit For

MsgBox counter & " 回ループしました。"

End Sub

For…Next ステートメントの使い方

【項目の説明】

For…Next ステートメントの使用例

VBAソース例

実行結果