[求助]學習VBS，guotx2010能提供跳出內部循環的例子嗎？ [金字塔]
- 咨詢內容：
在寫序列模型的時候需要跳出內部循環，回到大循環中。這點在金字塔語言中做不到。所以要學VBA。
guotx2010能借你幾分鐘時間幫我寫個簡單的例子嗎？
- 金字塔客服：
有時候，你并不想等到循環自己結束，可能是用戶輸入了錯誤的數據，過程遇到了錯誤或者可能是任務已經完成并且沒有必要作更多的循環。你可以提前跳出循環，而不必等到條件正常結束。VB有兩種Exit語句：
n Exit For語句用來提前退出For…Next或者For Each…Next循環
n Exit Do語句立即退出任何VBA Do 循環
下面的過程示范如何使用Exit For語句提前跳出For Each…Next循環：
1. 在當前模塊里輸入下列過程：
Sub EarlyExit()
Dim myCell As Range
For Each myCell in Range("A1:H10")
If myCell.Value = "" Then
myCell.Value = "empty"
Else
Exit For
End If
Next myCell
End Sub
- 用戶回復：
這個是經常遇到的，其實很簡單：
For i=1 to 100
For j=1 to 90
'正常的代碼處理
...
'判斷是否要退出內層循環，如果是就使用Exit For
If 條件成立 then
Exit For '如果循環體不是For而是Do While，則使用Exit Do
End if
Next
'退出之后，你可以使用Application.msgout j,顯示此時的j的值就知道是不是提前退出的，如果等于91說明不是提前退出，否則就是提前退出
Application.msgout j
Next
[此貼子已經被作者于2011-8-31 12:42:55編輯過] - 網友回復：
萬分感謝兩位高人賜教。
相關文章
-
沒有相關內容
會員登錄/注冊