【VBA】IF文の条件に応じて処理を停止する方法！ExitSubの使い方！

VBA実行中に、ある条件にあてはまった場合に処理を停止したい。

それならIF文の中に、あるコードを差し込むだけで解決ですね。

というわけでこの記事では、IF文の条件に応じて途中でVBAの処理を停止する方法をご紹介していきます。

それではさっそくやっていきましょう。

IF文条件に応じて処理を停止する方法
Exit Sub の使用例
おわりに

IF文条件に応じて処理を停止する方法

IF文中に処理を停止するには以下の１文をコードに記述するだけです。

Exit Sub

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

Exit Sub の使用例

以下が先ほど紹介したExit Subの使用例です。

Sub exit_test()
    Dim i As Integer, rnd_num As Integer
    For i = 1 To 30
        rnd_num = WorksheetFunction.RandBetween(0, 9)
        If rnd_num <> 9 Then
            Cells(i, 1) = rnd_num
        Else
            Exit Sub
        End If
    Next
End Sub

この処理でやっていることは以下の通りです。

①RandBetween関数で0から9までの整数をランダムに発生させる

②①でつくった数字が9以外ならA列 i 行目のセルに①の数値を記入

③①でつくった数字が9ならExit Subで処理を停止

④③の処理に該当するまで同じ処理を30回繰り返す

先ほどのコードはIF文のElse条件でExitを使っていますが、最初のIF文で記述するとしたら以下のようになります。

Sub exit_test()
    Dim i As Integer, rnd_num As Integer
    For i = 1 To 30
        rnd_num = WorksheetFunction.RandBetween(0, 9)
        If rnd_num = 9 Then
            Exit Sub
        Else
            Cells(i, 1) = rnd_num
        End If
    Next
End Sub

やっていることは先ほどとほとんど同じです。

これらのコードを念のため実行してみましょう。

結果は以下の通りです。