VBA 出错时如何从函数返回

Question

我是 VBA 新手，当我看到错误时希望从函数返回。无法这样做。有什么指点吗？

Function GetEditboxValue(control As IRibbonControl, text As String) As String

    If Not IsMissing(text) Then
        If Not IsNumeric(text) Then
            MsgBox "Please enter numeric value only."
            ' I WANT TO RETURN HERE 
        End If
    End If


    If control.id = "xyz" Then
    spaceAboveTable = text
    End If


End Function

Answer 1

您需要将 EXIT FUNCTION 放在那里以退出进一步的执行：

Function GetEditboxValue(control As IRibbonControl, text As String) As String

    If Not IsMissing(text) Then
        If Not IsNumeric(text) Then
            MsgBox "Please enter numeric value only."
            EXIT FUNCTION
        End If
    End If


    If control.id = "xyz" Then
    spaceAboveTable = text
    End If


End Function

Answer 2

从广义上讲（我实际上并没有说任何尚未说过的话）：

Function Foo(inputVar As Double) As Double

    On Error GoTo ErrorHandler

    ' Code assigning something to returnValue and defaultOutput

    Foo = returnValue

    Exit Function

    ErrorHandler:

    Foo = defaultOutput

 End Function

当然，没有理由它必须是 Double 。

（编辑是因为我有第二个“退出功能”而不是“结束功能”。）

Answer 3

您可以在 MsgBox 语句后使用 Exit Function

Answer 4

另一种选择是使用 Err.Raise 显式引发错误。由于此函数内没有错误处理程序（即没有 On Error ... 行），错误将通过调用堆栈向上传播，直到遇到错误处理程序。