共用方式為

Exit 語句

  • 發行項

結束執行...Loop， For...接下來是 Function、Sub 或 Property 程式代碼。

語法

Exit Do
Exit For
Exit 函式
Exit 屬性
Exit Sub

Exit 語句語法具有下列形式：

陳述式 描述
Exit Do 提供結束 Do... 的方法Loop 語句。 它只能在 Do... 內使用Loop 語句。 Exit Do 會將控制權傳輸到語句之後的 Loop 語句。 在巢狀檔內使用時...Loop 語句中，Exit Do 會將控件傳輸至迴圈，而迴圈是結束 Do 發生所在迴圈的一個巢狀層級。
Exit For 提供結束 For 迴圈的方法。 它只能用於 For...Next 或 For Each...下一個 迴圈。 Exit For 會將控制權傳輸至 Next 語 句後面的 語句。 在巢狀 For 迴圈中使用時，Exit For 會將控件傳送至迴圈，此循環是發生 Exit For 之迴圈上方的一個巢狀層級。
Exit 函式 立即結束出現的 函式程式 。 在呼叫函式的 語句後面繼續執行 語句。
Exit 屬性 立即結束其出現的 Property 程式。 在呼叫 Property 程式的 語句後面繼續執行 語 句。
Exit Sub 立即結束出現它的 Sub 程式。 在呼叫 Sub 程式的 語句後面繼續執行 語句。

註解

請勿混淆 Exit 語句與 End 語 句。 Exit 不會定義結構的結尾。

範例

此範例會使用 Exit 語句來結束 For...下一個循環， 執行...Loop，以及 Sub 程式。

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 支援與意見反應。