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