VBA Excel 简单错误处理

使用VBA Excel时，我们常常需要处理各种错误，以确保程序的正常运行和数据的准确性。在这篇文章中，我们将介绍一些简单的错误处理方法，并提供一些案例代码来帮助您更好地理解和应用这些方法。

vba
Sub ErrorHandlingExample()
    On Error GoTo ErrorHandler
    
    Dim num1 As Integer
    Dim num2 As Integer
    Dim result As Double
    
    num1 = 10
    num2 = 0
    
    result = num1 / num2
    
    MsgBox "结果：" & result
    
    Exit Sub
    
ErrorHandler:
    MsgBox "发生错误：" & Err.Description
End Sub

vba
Sub ErrorInformationExample()
    On Error GoTo ErrorHandler
    
    Dim num1 As Integer
    Dim num2 As Integer
    Dim result As Double
    
    num1 = 10
    num2 = 0
    
    result = num1 / num2
    
    MsgBox "结果：" & result
    
    Exit Sub
    
ErrorHandler:
    MsgBox "发生错误：" & Err.Description
    MsgBox "错误代码：" & Err.Number
    MsgBox "错误源：" & Err.Source
End Sub

vba
Sub ErrorHandlerExample()
    On Error GoTo ErrorHandler
    
    Dim num1 As Integer
    Dim num2 As Integer
    Dim result As Double
    
    num1 = 10
    num2 = 0
    
    result = num1 / num2
    
    MsgBox "结果：" & result
    
    Exit Sub
    
ErrorHandler:
    Select Case Err.Number
        Case 11
            MsgBox "除数不能为0，请重新输入。"
        Case Else
            MsgBox "发生错误：" & Err.Description
    End Select
End Sub