VBA 出错时如何从函数返回

在VBA编程中，函数可能会出现各种错误。当函数出现错误时，我们需要考虑如何从函数中返回并处理这些错误。本文将讨论在VBA中处理错误的方法，并提供一些案例代码来说明如何从函数中返回。

On Error {GoTo 0 | Resume Next | GoTo line}

vba
Function DivideNumbers(ByVal num1 As Double, ByVal num2 As Double) As Double
    On Error GoTo ErrorHandler
    
    If num2 = 0 Then
        Err.Raise vbObjectError + 1001, , "除数不能为零。"
    Else
        DivideNumbers = num1 / num2
    End If
    
    Exit Function
    
ErrorHandler:
    MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
    DivideNumbers = 0
End Function
Sub Test()
    Dim result As Double
    
    result = DivideNumbers(10, 2)
    MsgBox "结果：" & result
    
    result = DivideNumbers(10, 0)
    MsgBox "结果：" & result
End Sub