【用語集に記載の内容について】
用語集に記載されているメソッドや関数の引数は、VBAエキスパート試験の試験範囲に基づいており、すべての引数を網羅しておりません。
また、書式は公式テキストの記載に準じています。
試験範囲外の引数や詳細については、ヘルプ機能やオブジェクトブラウザーをご参照ください。
【コードをコピーして実行する場合の注意】
文字コードの関係上、半角の「￥」は「/」で表示されるため、当サイトでは全角の「￥」で記載しています。当サイトのコードをコピーして実行する場合は、全角の「￥」を半角の「￥」に変換してください。
Exit Doステートメント
| 名称 | Exit Doステートメント |
|---|---|
| 説明 | Do…Loopステートメントの繰り返しを途中で終了させる命令です。 Do…Loopステートメントで繰り返しの終了条件が永遠に満たされない場合は、無限ループが発生します。 Do…Loopステートメントに条件を指定できない場合は、Do…Loopステートメントの中で繰り返し処理を終了するための条件を判定し、Exit DoステートメントでDo…Loopステートメントの繰り返しを途中で終了させます。 |
| コード例① |
Sub Macro1()
Dim i As Integer
i = 1
Do
' 変数iの値が3になったらループを終了
If i = 3 Then
MsgBox "i = " & i
Exit Do
End If
i = i + 1
Loop
End Sub
Do…Loopステートメントに繰り返しを終了する条件を指定せず、Ifステートメントで条件を判定し、変数iの値が3になったら、メッセージボックスを表示して、「Exit Do」で繰り返しを終了しています。 Do…Loopステートメントは以下のように処理されます。 i = 1→ 「If 1 = 3 Then」でFalse i = 2→ 「If 2 = 3 Then」でFalse i = 3→ 「If i = 3 Then」でTrue→ 「i = 3」のメッセージボックスを表示→ 「Exit Do」で繰り返し終了 |
| カテゴリ | スタンダード |