2017-06-06 4 views
0

は、VBAでの私のコードです:Excel 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を強調し、このエラーが発生します。

+0

あなたのコード –

+0

の終わりに1× 'エンドIf'が欠落している2×終了する場合があるべきか?私はすでに最後に1つを入れています –

+0

最初に 'If Hamza_Variable = 7 Then'のための2つの' End If'と最後に 'ElseIf'ではなく他の' Else'を持っているので、 2番目のものとそれが実行されているかどうかを確認してください –

答えて

0

これを試してみてください:

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 

あなたが学ぶために始めているので、多分あなたはSelect Case文でfamilairを取得する必要End Sub

+1

申し訳ありませんが、私は言及を忘れてしまった。私はEnd Subで終わります。同じエラーが表示される –

+0

上記のコードをExcelに貼り付けます。できます。私はあなたに 'ElseIf'のタイプミスがあったと思う。 –

+0

はい、それはタイプミスだった、私はちょうど最後の3時間以来私の頭を傷つけていた愚かな間違いを実現しました。ありがとうございます –

1

であなたのサブ・ルーチンを終了しませんでした:

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 
+0

私はこれについてよく分かりませんでした。それを試して、これについてのチュートリアルも見ていきます。ありがとう:) –

+0

@HamzaKhalidあなたはそれを試しましたか? –

関連する問題