VBA 錯誤偵測

類似 try ...catch, 在可能發生錯誤的之前指定 ErrorHandler

(1)
On Error Resume Next
N = 1 / 0 ' cause an error

If Err.Number <> 0 Then
     N = 1
End If


 (2)
On Error Goto ErrHandler1:


ErrHandler1:
     ' error handling code

    MsgBox "error."
 

    Resume Next
End Sub

Reference :
Error Handling In VBA