VBA錯誤處理無法在Excel中工作

Question

我對VBA沒有多少經驗，但我有時會在工作中使用它。 最近，我遇到了一個不應該發生的問題，我的老板和我自己都不知道。

基本上，問題是Application屬性DisplayAlerts默認設置為True ，並且由於某種原因無法更改。 可能相關的是，當我遇到錯誤時，它總是顯示End | Debug | Help警告，並且永遠不會遇到應用的錯誤處理。

我在64位Windows 7計算機上運行64位Office 2010。 但是，我不認為這是一個平台問題，因為我已經在多個不同平台，操作系統和軟件排列上進行了測試，沒有其他機器出現此錯誤; 就是我的。

我已經創建了一些示例代碼，以防任何人以前遇到過此問題或有任何想法。 我唯一能想到的是，我的機器上安裝了一些導致這種情況的東西。 但是在程序清除和重啟之后，我並沒有更接近破譯它可能是什么。

Public Sub TestErrorHandler()

    ' Suppress alerts
    Application.DisplayAlerts = False

    Dim strArray(1) As String
    strArray(0) = "Hello"
    strArray(1) = "World"

    ' Set up error handler
    On Error GoTo ErrHandler

    For i = 0 To 3
        MsgBox strArray(i)
    Next

    ' Strip the error handler
    On Error GoTo 0

    ' Unsuppress alerts
    Application.DisplayAlerts = True

    Exit Sub

    ErrHandler:

    MsgBox "Error: " & Err.Description

    Resume Next

End Sub

在for-loop的第三個枚舉中拋出錯誤（應該如此）。 錯誤的類型是無關緊要的，相關的是我得到了錯誤並且從未遇到過錯誤處理程序。

對此有任何建議或幫助將不勝感激。

非常感謝！

Answer 1

在Excel中按ALT + F11以訪問VBA編輯器。

轉到工具菜單 - >選項項 - >常規選項卡。

將錯誤捕獲設置為“中斷未處理的錯誤”

_{（來源： microsoft.com ）}