Exit
Do...Loop、For...Next、Function、もしくは Sub コードのブロックを終了します。
Synopsis
Exit Do Exit For Exit Function Exit Sub
引数
Exit 文の構文には、以下の形式があります。
| Exit Do | Do...Loop 文を終了します。これは、Do...Loop 文でのみ使用できます。Exit Do は Loop 文の後の文に制御を移動します。入れ子になった Do...Loop 文で使用する場合、Exit Do 文は、入れ子のレベルが 1 つ上のループへ制御を移動します。 |
| Exit For | For ループを終了します。これは、For...Next または For Each...Next ループでのみ使用できます。Exit For は Next 文の後の文に制御を移動します。入れ子になった For ループで使用する場合、Exit For 文は、入れ子のレベルが 1 つ上のループへ制御を移動します。 |
| Exit Function | この文を含む Function プロシージャを即時に終了します。Function を呼び出した文の後に続く文で実行を継続します。 |
| Exit Sub | この文を含む Sub プロシージャを即時に終了します。Sub を呼び出した文の後に続く文で実行を継続します。 |
例
以下の例は、Exit 文の使用法を示しています。
Sub RandomLoop
Dim I, MyNum
Do ' Set up infinite loop.
For I = 1 To 1000 ' Loop 1000 times.
MyNum = Int(Rnd * 100) ' Generate random numbers.
Select Case MyNum ' Evaluate random number.
Case 17: Print "Case 17"
Exit For ' If 17, exit For...Next.
Case 29: Print "Case 29"
Exit Do ' If 29, exit Do...Loop.
Case 54: Print "Case 54"
Exit Sub ' If 54, exit Sub procedure.
End Select
Next
Loop
End Sub
