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

条件分岐・繰り返し以外によく使う便利なステートメントを紹介します。

Withステートメント

オブジェクト名を省略することができます。

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

Exitステートメント

繰り返し処理の途中やプロシージャの途中で処理を抜ける場合にExitステートメントを使用します。

'【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

次は数値操作関数【Access/Excel】です。