为什么我的Excel VBA代码中出现“语句结束”编译错误？

Question

下面是我在VBA中的代码：

Sub Hamza_Starting_to_Learn()

Dim Hamza_Variable As Long

Hamza_Variable = 7

If Hamza_Variable = 7 Then

MsgBox Hamza_Variable & " Is da bomb"

Elself Hamza_Variable > 7 Then

MsgBox Hamza_Variable & " Is da bigger bomb"

Else

MsgBox Hamza_Variable & "We got ourselves a problem here bro"

End If

它在下面的行中不断给出编译错误“语句结束”：

Elself Hamza_Variable > 7 Then

它突出显示Then并给出此错误。

Answer 1

由于您已经开始学习，因此也许应该通过Select Case语句来熟悉：

Option Explicit

Sub Hamza_Starting_to_Learn()

Dim Hamza_Variable As Long

Hamza_Variable = 7

Select Case Hamza_Variable
    Case 7
        MsgBox Hamza_Variable & " Is da bomb"
    Case Is > 7
        MsgBox Hamza_Variable & " Is da bigger bomb"
    Case Else
        MsgBox Hamza_Variable & "We got ourselves a problem here bro"

End Select

End Sub

Answer 2

尝试这个：

Sub Hamza_Starting_to_Learn()

    Dim Hamza_Variable As Long

        Hamza_Variable = 7

    If (Hamza_Variable = 7) Then

        MsgBox Hamza_Variable & " Is da bomb"

    ElseIf Hamza_Variable > 7 Then

        MsgBox Hamza_Variable & " Is da bigger bomb"

    Else

        MsgBox Hamza_Variable & "We got ourselves a problem here bro"

    End If

End Sub

您没有使用End Sub结束子例程

Answer 3

在您的原始代码中，您在出现错误的行中写了Elself而不是ElseIf （请注意使l和I混淆的错字）。 这可能会使VBA感到困惑，进而给您带来误导性错误消息。

_{（不要太难过。 以前其他人在区分某些等宽字体时也遇到了这两个字母的问题。 ）}