End If に対応する If ブロックがありませ

質問

i = MsgBox("終了しますか？", vbOKCancel)
If i = vbCancel Then End
End If

が、
コンパイルエラー　End If に対応する If ブロックがありません。
になるのですが、なぜでしょうか？

If もEnd If もあるのに・・・

回答No.2

mrk7jp · ベストアンサー

= MsgBox("終了しますか？", vbOKCancel)
If i = vbCancel Then End
End If

If ***** Then の後（同じ行）に処理（この場合　End）を書く場合は　End if は不要ですよ。

If ***** Then
　の下に処理を書く場合は
End if　が必要です。

よって、この場合次の2つの書き方が正しい
(1)　IF i=vbCancel Then　End

(2)　IF i=vbCancel Then
　　　　End
End if

です。

End if　と云うのはIf文の終わりを示すものです。　
1行で書く場合は不要です。

お礼

ありがとうございました。

回答No.1

K Kazz（@JazzCorp）

諺には、Thenなきことは悪しきこと也、というのがあるようじゃが、御主の場合は、蛇足、、、

お礼

ありがとうございました。