【VBA】マクロ処理を途中で止める方法！結果次第で続行も可能！

「マクロ処理の途中結果から、処理を継続するか、中止するかを切り替えれるようにしたい。」

この記事ではこんな悩みを解決します。

〇この記事で学べるスキル

■vbYesNo：ある質問に対してYesかNoで答えることができる

初心者に寄り添い、画像多めで解説していきますので、ぜひ最後までご覧ください。

それではさっそくやっていきます！

状況判断スキル：vbYesNoについて
vbYesNoの使い方
vbYesNoの使用例
おわりに

状況判断スキル：vbYesNoについて

基本的にこのスキルはメッセージボックスというスキルと一緒に使用します。

①メッセージボックスで処理を続けるかどうかの質問をする。

②vbYesNoスキルでYESかNOか答える

という流れです。

さらにその後に、YESの場合の処理、NOの場合の処理を指示してあげればOKです。

ここからは実際の使い方を見ていきましょう。

vbYesNoの使い方

基本的な使い方は以下の通りです。

変数=MsgBox(“質問文”,vbYesNo)

このようにある変数を用意してあげておき、その変数にYesかNoかを覚えさせておきます。

そしてその変数がYesだったら・・・Noだったら・・・

という具合に処理を続けていきます。

とはいえ、これだけではよくわからないと思いますので、実際のVBA上での使用例を見てみましょう。

vbYesNoの使用例

今回は以下の画像のようにA1セルからA5セルまでに文字を入力していくという簡単な処理を題材に説明していきます。

今回はA1セルから順番に文字を入力していき、A3セルまで記述が終わった段階で、その後のA4,A5セルの処理を続けるかどうかを判断できるような処理を記述してみたいと思います。

その処理を記述したのが以下のコードになります。

Sub judge_macro()
    'A1～A3セルまでを記述
    Cells(1, 1) = "aaa"
    Cells(2, 1) = "bbb"
    Cells(3, 1) = "ccc"
    '処理を続けるかどうかの判断
    judge = MsgBox("処理を続けますか？", vbYesNo)
    If judge = vbNo Then
        Exit Sub
    End If
    'A4,A5セルまでを記述
    Cells(4, 1) = "ddd"
    Cells(5, 1) = "eee"
End Sub

先ほど説明したように以下のような形が記述されていることがわかると思います。

judge = MsgBox(“処理を続けますか？”, vbYesNo)

※今回は変数に【judge】を、質問文に【処理を続けますか？】と記述しています。

この処理を実行すると以下のような流れで処理が進みます。

以下がマクロ実行前のなにもない状態です。