共用方式為

End 語句

  • 發行項

結束 程式 或區塊。

語法

End
End 函式
End If
End 屬性
結束選取
結束子
結束類型
結尾為

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

陳述式 描述
End 立即終止執行。 本身永遠不會需要，但可能會放在程式中的任何位置，以結束程式碼執行、關閉以 Open 語句開啟的檔案，以及清除 變數。
End 函式 必須要結束 Function 語句。
End If 必須結束區塊 If...然後。。。Else 語 句。
End 屬性 必須結束 Property Let、 Property Get或 Property Set 程式。
結束選取 結束 Select Case 語句的必要專案。
結束子 必須要結束 Sub 語句。
結束類型 結束 使用者定義型別 定義 (Type 語句) 的必要專案。
結尾為 結束 With 語 句的必要項。

註解

執行時， End 語 句會重設所有 模組層級 變數和所有 模組中的所有靜態區域變數。 若要保留這些變數的值，請改用 Stop 語句。 然後，您可以繼續執行，同時保留這些變數的值。

注意事項

End 語句會突然停止程式碼執行，而不會叫用 Unload、QueryUnload 或 Terminate 事件，或任何其他 Visual Basic 程式碼。 您在表單和類別模組的 Unload、QueryUnload 和 Terminate 事件中放置的程式碼不會執行。 從類別模組建立的物件會終結、使用 Open 語句開啟的檔案會關閉，並且釋放程式所使用的記憶體。 其他程式保留的物件參考會失效。

End 語句提供強制程式停止的方法。 若要正常終止 Visual Basic 程式，您應該卸載所有表單。 一旦沒有其他程式保存從公用類別模組建立之物件的參考，而且沒有程式碼正在執行，您的程式就會關閉。

範例

此範例會在使用者輸入不正確密碼時，使用 End 語句結束程式碼執行。

Sub Form_Load 
  Dim Password, Pword 
  PassWord = "Swordfish" 
  Pword = InputBox("Type in your password") 
  If Pword <> PassWord Then 
    MsgBox "Sorry, incorrect password" 
    End
  End If
End Sub

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。