excel - VBA“编译错误:标签未定义”

我有一个VBA宏，该宏给了我该错误消息。

Sub Function1()
    '   Give the user macro options based on how fast or slow the computer
    '   is using advanced conditional compiling
    vuserChoice = MsgBox("This macro by default treats all numbers as decimals for maximum precision. If you are running this macro on an old computer, you may want to declare numbers as singles, to speed up the macro.")
    MsgBox ("Decimal: recommended for maximum precision. Also slower." & vbNewLine & "Long: not recommended. Rounds to nearest integer." & vbNewLine & "Single: not recommended. A lightweight double." & vbNewLine & "Integer: not recommended. Quick and low-precision.")

    If vuserChoice = "Decimal" Or "decimal" Then
        GoTo FunctionDecimal
    ElseIf vuserChoice = "Double" Or "double" Then
        GoTo FunctionDouble
    ElseIf vuserChoice = "Single" Or "single" Then
        GoTo FunctionSingle
    ElseIf vuserChoice = "Long" Or "long" Then
        GoTo FunctionLong
    Else
        GoTo FunctionNotValidVarType
    End If

    '   MEeff = measure of efflux due to crudely purified HDL in scintillation
    MsgBox "For additional information about this macro:" & vbNewLine & "1. Go to tab Developer" & vbNewLine & "2. Select Visual Basic or Macro." & vbNewLine & "See the comments or MsgBoxes (message boxes)."
End Sub

令人反感的行是：

GoTo FunctionNotValidVarType

我在此代码下具有功能FunctionNotValidVarType。我有：

Public Sub FunctionNotValidVarType()
    MsgBox "VarType " & VarType & " is not supported. Please check spelling."
End Sub

我该怎么做才能使第一个功能识别FunctionNotValidVarType？谢谢。

最佳答案

GoTo将尝试将代码执行转移到具有给定标签的当前子例程中的其他位置。

具体来说，GoTo FunctionNotValidVarType将尝试执行以下行：

FunctionNotValidVarType:  'Do stuff here

您当前的代码中不存在。

如果要调用另一个函数，请使用Call FunctionNotValidVarType