その他のステートメント【Access/Excel】

'【Withステートメント】アプリケーションの名称とバージョンを表示します。
Sub with_1()
    With Application
        MsgBox .Name
        MsgBox .Version
    End With
End Sub

'【Exitステートメント】
Sub Exit_1()
    Dim i As Long
    
    'i=3の場合繰り返し処理を抜けます。
    For i = 1 To 5
        If i = 3 Then
            Exit For
        End If
    Next
    
    'i=3の場合繰り返し処理を抜けます。
    i = 0
    Do
        If i = 3 Then
            Exit Do
        End If
        
        i = i + 1
    Loop
    
    'プロシージャを抜けます。
    Exit Sub
    
    'このメッセージは表示されません。
    MsgBox "処理の最後"
End Sub