爲什麼我在Excel VBA代碼中收到「End of Statement」編譯錯誤？

下面是我在VBA代碼：爲什麼我在Excel VBA代碼中收到「End of Statement」編譯錯誤？

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並給出了此錯誤。

來源

2017-06-06 Hamza Khalid

你缺少1個'結束If'在你的代碼 –

年底如果有2×結束如果？我已經把一個放在最後 –

你需要2個'End If'，一個用於第一個'如果Hamza_Variable = 7 Then'，第二個因爲最後你有另一個'Else'而不是'ElseIf'，嘗試添加第二個，看看它是否運行 –

試試這個：

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

來源

2017-06-06 04:49:38

對不起，我忘了提。我以End Sub結束。仍然給出相同的錯誤 –

將上面的代碼粘貼到Excel中。有用。我認爲你在'ElseIf'中輸入了一個錯字 –

是的，這是一個錯字，我剛剛意識到這個愚蠢的錯誤，這讓我在過去的3個小時裏撓了撓頭。非常感謝你 –

結束你的子程序既然你開始學習，也許你應該得到familair與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

來源

2017-06-06 04:57:27

我對此一無所知。將嘗試一下，並觀看一些教程。感謝：） –

@HamzaKhalid你嘗試過嗎？ –

在你的原代碼中，你寫了Elself而不是ElseIf（注意錯字l和I）在您遇到錯誤的行中。這可能會造成混淆的VBA，反過來給你那個誤導性的錯誤信息。

_{（不要感到太糟糕了。Other people have also had problems distinguishing these two letters in some monospace fonts before.）}

來源

2017-06-06 15:27:59