VBA"编译错误:标签未定义"

Question

我有一个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什么？谢谢.

Answer 1

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

具体来说,GoTo FunctionNotValidVarType将尝试执行该行:

FunctionNotValidVarType:  'Do stuff here

在您当前的代码中不存在.

如果你想调用另一个函数使用 Call FunctionNotValidVarType