VBA中錯誤捕捉的方法主要有兩種

第一種捕捉方法：  

1、語法：

On Error GoTo Err_Handle  '如果遇到錯誤就跳轉(zhuǎn)到錯誤處理代碼

       語句xxxxx

        Exit Sub/Function（如果沒有這條語句，即使沒有錯誤也會執(zhí)行錯誤處理語句）

     Err_Handle: 語句 xxxxxx

2、舉例：

Sub 查找數(shù)字()  ’本段代碼查找電子表格中有沒有數(shù)字12

    On Error GoTo Err_Handle

       MsgBox Cells.Find(12).Address

        Exit Sub   '如果沒有這個退出過程語句，會一直執(zhí)行下去

Err_Handle:

        MsgBox ("不存在該數(shù)字")

End Sub

（1）、電子表中數(shù)據(jù)和代碼

（2）、查找12的結(jié)果：

（3）、查找13的結(jié)果：

第二種捕捉方法：

1、語法：

     On Error Resume Next  '如果遇到錯誤，不管錯誤，繼續(xù)往下執(zhí)行，但如果嵌套了其他錯誤處理語句，這些錯誤處理語句還是會按照自己規(guī)則運行

      語句xxxx

    On Error GoTo 0 ’結(jié)束錯誤捕捉

2、舉例代碼：

Sub 查找數(shù)字()

    Dim i As Integer

    On Error Resume Next  '遇到錯誤向下執(zhí)行

       MsgBox Cells.Find(13).Address

        On Error GoTo Err_Handle

        i = 10 / 0  ’會跳轉(zhuǎn)到錯誤處理語句，而不會運行 Exit sub 

        Exit Sub

Err_Handle:

        MsgBox i

    On Error Resume Next

End Sub

3、結(jié)果說明和圖例：

excel表中沒有13這個數(shù)字，但是不會報錯也不會有彈窗

在On Error Resume Next 和 Err_Handle之間代碼，還是可以發(fā)揮錯誤捕獲功能，因此可以出現(xiàn)下面彈窗：

相關(guān)推薦：

excel中怎么利用VBA制作一個登錄數(shù)據(jù)驗證窗口?

Excel2007怎么開啟信任對VBA工程對象模型的訪問?

excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?

最新評論