For～Nextステートメント 途中で止めるには

質問

For～Nextステートメント で、変数が５なら止めたいのですがＩＦを使わない方法があったと思うのですが、
忘れてしまいました。

今は、
+++++++++++++++++++++++++++++
Sub test()
Dim i As Long

For i = 2 To 10
If i = 5 Then
Stop
End If
Next

End Sub
+++++++++++++++++++++++++++++
としていますが、
If i = 5 Then
Stop
End If
じゃなくても、一つのメソッドで出来た気がするのですが、
わかる方いらっしゃいますか？

ご回答よろしくお願いします。

回答No.1

keithin · ベストアンサー

はて？？

＞変数が５なら止めたい

ふつーこうします：
sub macro1()
　dim i as long
　for i = 2 to 5
’do something
　next i
end sub

stopしないというのなら：
sub macro2()
　dim i as long
　for i=2 to 10
　　if i = 5 then exit for
　next i
end sub

その他：
sub macro3()
　dim i
　i = 2
　do while i < 5
’do your work
　i = i + 1
　loop
end sub

sub macro4()
　dim i
　i = 1
　do
’work at least 1 time
　i = i + 1
　loop until i >=5
end sub

お礼

ありがとうございました。