事務職プログラミングAccessVBAその他のステートメント

2022.04.18

Withステートメント
Exitステートメント

Withステートメント

同じオブジェクトが繰り返し出てくるコードは、Withステートメントを使用することで、オブジェクト名を省略することができます。

With 対象となるオブジェクト

　　 .オブジェクトに対する処理

End With


Sub test()
    With Modules("Module1")
        MsgBox .Name
        MsgBox .CountOfLines
        MsgBox .Type
    End With
End Sub

Yoshi

ひとつもWithステートメントで指定できるオブジェクトはひとつだけです。

Exitステートメント

繰り返し処理の途中や、プロシージャの途中で処理を抜け出したいときにExitステートメントを使用します。

記述	抜け出す対象
Exit Do	Do…Loopステートメント
Exit For	For…Nextステートメント、For Each…Nextステートメント
Exit Sub	Subプロシージャ
Exit Function	Functionプロシージャ

Sub test()
    Dim i As Long
    For i = 1 To 10
        If i = 2 Then
            Exit For
        End If
        MsgBox i
    Next i
    Do
        If i = 3 Then
            Exit Do
        End If
        MsgBox i
        i = i + 1
    Loop Until i = 10
    MsgBox i
    Exit Sub
    MsgBox i + 1
End Sub

Yoshi

For…Nextステートメントや、Do…Loopステートメントが入れ子構造になっている場合は、Exit Forまたは、Exit Doのあるループのひとつ外側のループに制御が移ります。