簡単な事だと思うのですが vba での質問です。

質問

Private Sub 処理名()
　Dim a as Byte
vbOK = MsgBox ("OK? or Cancel?",vbOKCancel,"確認")
　If vbOK = 1 Then
　 MsgBox "OKが押されました"
　else if
　　MsgBox "キャンセルが押されました"
　End if

　～以下長々と処理～　

　長々と処理の最後～

End Sub

例えば上記のような、vbaマクロがあったとします。
もし、キャンセルを押した場合、有無を言わさず全ての処理を終了したい場合どのように記述をすれば宜しいのでしょうか？
キャンセルを押した場合後続の長々と処理部分は全てキャンセルしたいのです。
私はその方法が分からないために分岐がある度にif分のネストが深くなってしまって困っています。

どなたかご教授下さい。
よろしくお願い致します。

回答No.2

siddhaartha · ベストアンサー

MsgBox "キャンセルが押されました"
の後に「Exit Sub」

お礼

そうです。それが知りたかったのです。
有難うございました。

回答No.1

akina_line

こんにちは。

　方法１）
　　「長々と処理」を「MsgBox "OKが押されました"」と「else if」の間に入れる。

　方法２）
　　方法１だと、構造が見づらくなるのであれば、「長々と処理」をサブルーチン化して、方法１と同じ場所でcallしたらどうでしょう。

では。