ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

For Next

 

概要

 
For カウンタ用変数 = 初期値 To終値 [Step 増分値]
繰り返す処理
Next
指定した回数だけ、処理を繰り返すことができる。
(カウンタ変数が初期値から最終値になるまで、処理が実行され続ける)

サンプル

1から5まで、処理を繰り返す。
Nextでiに1が加算されるため、iの値だけが変わっている。

Dim n As Integer

Debug.Print "(´・ω・`)は~い、点呼とるよ~" & vbCr
For i = 1 To 5
Debug.Print Space(3) & "彡⌒ヽ"
Debug.Print "∩(´・ω・`)y-~" & i & "!" & vbCr
Next

Debug.Print "(´・ω・`)特に用事はないけど、全員揃ったね~"

実行結果

 

補足

Stepの値に2、-1など増減分を設定することで、設定した増減分だけ処理を繰り返すことができる。
処理を途中で抜けたいときはExit Forを使う。

Dim n As Integer
Debug.Print "(´・ω・`)は~い、点呼とるよ~" & vbCr
For i = 1 To 10
Debug.Print Space(3) & "彡⌒ヽ"
Debug.Print "∩(´・ω・`)y-~" & i & "!" & vbCr
Exit For
Next
Debug.Print "(´・ω・`)1人しか居ねぇじゃなぇか!"