VBAでForループを抜けるためには？

質問

i = 1 To 1000 Step 1

Next

というForループを作って、
ある条件A < 0
に達すると、その時点でiが1000に達していなくても
Forループを終了したい場合、どのように記述すれば良いでしょうか？

回答No.1

qualheart · ベストアンサー

If A < 0 Then
Exit For
End If

を入れればOKです。
ご参考まで。

回答No.3

merlionXX

Sub test01()
Dim i As Long
For i = 1 To 1000 Step 1
Cells(i, 1) = 500 - i
If Cells(i, 1) < 0 Then
MsgBox "抜けますよ。"
Exit For
End If
Next
MsgBox "こんな感じ"
End Sub

回答No.2

Versailles123

質問に関する答えは♯1の方の回答でよいと思います。
Do Loop文を使って

*****************
i=1
Do until i>1000 or A<0

i=i+1
Loop
*****************

これでもいいと思います。
横ですみませんでした。