VBAのExitで処理を途中で抜ける方法をわかりやすく解説

Sub TestExitSub()
    Dim value As Integer
    value = 5

    If value < 10 Then
        MsgBox "値が10未満のため、処理を終了します。"
        Exit Sub
    End If

    MsgBox "このメッセージは表示されません。"
End Sub

Function GetDiscount(price As Double) As Double
    If price < 1000 Then
        GetDiscount = 0 ' 1000未満なら割引なし
        Exit Function
    End If
    
    GetDiscount = price * 0.1 ' 10%割引
End Function

Sub TestExitFunction()
    MsgBox "割引額: " & GetDiscount(800) ' 0を返す
    MsgBox "割引額: " & GetDiscount(2000) ' 200を返す
End Sub

Sub TestExitFor()
    Dim i As Integer

    For i = 1 To 10
        If i = 5 Then
            MsgBox "5に達したため、ループを終了します。"
            Exit For
        End If
        Debug.Print i
    Next i
End Sub

Sub TestExitDo()
    Dim i As Integer
    i = 1

    Do While i <= 10
        If i = 5 Then
            MsgBox "5に達したため、ループを終了します。"
            Exit Do
        End If
        Debug.Print i
        i = i + 1
    Loop
End Sub

Sub CheckCellValue()
    Dim cellValue As Variant
    cellValue = Range("A1").Value
    
    If IsEmpty(cellValue) Then
        MsgBox "セルA1が空です。処理を終了します。"
        Exit Sub
    End If

    MsgBox "セルA1の値: " & cellValue
End Sub