從Do...Loop，為了......接著是功能、子或財產代碼。
語法
離開
出口
出口函數
Exit 屬性
退出子
Exit 語句的語法具有以下形式：
| 陳述式 | 描述 |
|---|---|
| 離開 | 提供一種退出 Do... 的方法Loop 陳述句。 只能在Do...Loop 陳述句。 Exit Do 將控制權轉移到 Loop 陳述句後的陳述句。 當它在巢狀 Do... 中使用時，Loop 陳述式中，Exit Do 將控制權轉移到位於 Exit Do 發生迴圈上方巢狀層級的迴圈。 |
| 出口 | 提供一種退出 For 迴圈的方法。 它只能用於 For...下一個 或 為每個......下一 圈。 Exit For 將控制權轉移到 Next 陳述句之後的陳述。 在巢狀 For 迴圈中使用時， Exit For 會將控制權轉移到位於 Exit For 發生迴圈上方一層巢狀的迴圈。 |
| 出口函數 | 立即退出該 函式程序 。 執行會以呼叫函 式後的陳述句進行。 |
| Exit 屬性 | 會立即退出該物件所出現的 性質 程序。 執行會以呼叫 Property 程序的陳述句後續執行。 |
| 退出子 | 立即退出出現該子的 程序 。 執行會以呼叫 Sub 程序的陳述之後的陳述進行。 |
註解
請勿將 退出 語句與 結束 語句混淆。 退出 並不定義結構的終點。
範例
此範例使用 Exit 語句來退出 For...下一圈，做......Loop，以及一個子程序。
Sub ExitStatementDemo()
Dim I, MyNum
Do ' Set up infinite loop.
For I = 1 To 1000 ' Loop 1000 times.
MyNum = Int(Rnd * 1000) ' Generate random numbers.
Select Case MyNum ' Evaluate random number.
Case 7: Exit For ' If 7, exit For...Next.
Case 29: Exit Do ' If 29, exit Do...Loop.
Case 54: Exit Sub ' If 54, exit Sub procedure.
End Select
Next I
Loop
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。