エクセルVBAのExitステートメント

<< エクセルVBAのIE制御に利用したステートメント一覧(VBAのIE制御入門) :前の記事

<< エクセルVBAのプログラムの制御構文(VBAの初心者入門) :前の記事

こちらでは、VBAのIE(InternetExplorer)操作に利用されたExitステートメントの解説になります。Exitステートメントは、For~Nextループ、For Each~Nextループ、Do~Loop ループ、Sub、Function、Propertyの各プロシージャを抜けるフロー制御ステートメントです。

また、ステートメントとは「命令文」と訳されるようにコンピュータに具体的な動作を指定する最小単位のプログラムです。主にマクロの挙動を制御する構文や文法を指します。通常は1行で完結する部分を指しますが、If~Thenなど複数行にまたがる部分を意味することもあります。

目次

Exitステートメントとは

Exitステートメントは、For~Nextループ、For Each~Nextループ、Do~Loop ループ、Sub、Function、Propertyの各プロシージャを抜けるフロー制御ステートメントです。

Sub プロシージャ名
処理
 Exit Sub
End Sub

Function プロシージャ名
処理
 Exit Function
End Function

Property プロシージャ名
処理
 Exit Property
End Property

For カウンタ変数 = 初期値 To 最終値
繰り返す処理
 Exit For
Next カウンタ変数

Do While 条件式
条件式が真(True)の場合に実行する処理
 Exit Do
Next

構文Exit Sub
Exit Function
Exit Property
Exit For
Exit Do
ステートメント説明
Exit SubこのステートメントのあるSubプロシージャを直ちに抜けます。制御はSubプロシージャを呼び出したステートメントの次のステートメントに移ります。
Exit FunctionこのステートメントのあるFunctionプロシージャを直ちに抜けます。制御はFunction プロシージャを呼び出したステートメントの次のステートメントに移ります。
Exit PropertyこのステートメントのあるPropertyプロシージャを直ちに抜けます。制御はPropertyプロシージャを呼び出したステートメントの次のステートメントに移ります。
Exit ForFor~NextループまたはFor Each~Next ループを抜け、Nextステートメントの次のステートメントに制御を移します。For~NextループまたはFor Each~Next ループがネスト(入れ子)構造になっている場合は、Exit Forのあるループの1つ外側のループに制御を移します
Exit DoDo~Loopループを抜け、Loopステートメントの次のステートメントに制御を移します。Do~Loopステートメントがネスト(入れ子)構造になっている場合は、Exit Doのあるループの1つ外側のループに制御を移します

Exit Subのプロシージャを抜けるサンプルコード


Sub sample()

    MsgBox "1回目のメッセージボックスです。"

    Exit Sub
    
    MsgBox "2回目のメッセージボックスです。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

Eixt Subステートメントの結果

解説

sampleのSubステートメントには引数の設定はされていません。処理の内容を確認するとMsgBox関数でメッセージを順に表示させているだけですが、途中でExit Subステートメントがありますので、こちらを処理することでSubプロシージャを直ちに抜けます。よって、最後のメッセージは実行されることはありません。

Exit Forのループ処理を抜けるサンプルコード


Sub sample()

    Dim i As Integer

    For i = 1 To 10

        If i <= 3 Then
        
            MsgBox i & "回目のループです。"
        
        Else
        
            Exit For
        
        End If
    
    Next i

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

基本形のFor~Next文の結果

解説

sampleのSubステートメントには引数の設定はされていません。 まず、Dimステートメントを利用してカウンタ変数iに整数型(Integer)を宣言しています。 次にFor~Next文の初期値と終了値に「1」と「10」を設定しています。これによりカウンタ変数iが1から10に達するまで次の行の処理を繰り返し行います。

For~Next文の中の処理ですが、こちらはIf~Then~Elseステートメントを利用してカウンタ変数iが3以下の場合は真(True)を返し、4以上の場合は偽(False)を返す処理になっています。

カウンタ変数iが3までは通常通りメッセージボックスが表示されますが、4の場合は偽(False)となりExit Forステートメントが実行されます。

これによりループを抜け、Nextステートメントの次のステートメントに制御を移します。

Exit Doのループ処理を抜けるサンプルコード


Sub sample()

    Dim i As Integer
    
    i = 1

    Do Until i = 10

        If i < 4 Then
    
            MsgBox i & "回目のループです。"
            
            i = i + 1
        
        Else
        
            Exit Do
        
        End If
        
    Loop

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

Do While~Loop文の結果

解説

sampleのSubステートメントには引数の設定はされていません。まず、Dimステートメントを利用して変数iに整数型(Integer)を宣言し、「1」を代入しています。次にDo Until~Loop文の条件式に「i = 10」設定しています。これにより変数iが10でない限り偽(True)を返し次の行の処理を繰り返し行います。

Do Until~Loop文の中の処理ですが、こちらはIf~Then~Elseステートメントを利用して変数iが3以下の場合は真(True)を返し、4以上の場合は偽(False)を返す処理になっています。

変数iが3までは通常通りメッセージボックスが表示されますが、4の場合は偽(False)となりExit Doステートメントが実行されます。

これによりループを抜け、Loopステートメントの次のステートメントに制御を移します。

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

ExcelのVBAについてのQ&A掲示板

↑ExcelのVBA全般について分からない事があればこちらの掲示板よりご質問ください。

VBAのIE操作入門

↑ExcelのVBAをマスターできたら、エクセルVBAのIE操作にも挑戦してみてください。

目次

VBAのステートメント

こちらでは、エクセルVBAの事例で利用したステートメントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

VBAのオブジェクト

こちらでは、エクセルVBAの事例で利用したオブジェクトをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

VBAのプロパティ

こちらでは、エクセルVBAの事例で利用したオブジェクトのプロパティをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

VBAのメソッド

こちらでは、エクセルVBAの事例で利用したオブジェクトのメソッドをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。

VBAのイベント

こちらでは、エクセルVBAの事例で利用したオブジェクトのイベントをまとめたものです。ExcelのVBAには様々な機能が用意されていますので一度ご確認ください。