【用語集に記載の内容について】
用語集に記載されているメソッドや関数の引数は、VBAエキスパート試験の試験範囲に基づいており、すべての引数を網羅しておりません。
また、書式は公式テキストの記載に準じています。
試験範囲外の引数や詳細については、ヘルプ機能やオブジェクトブラウザーをご参照ください。
【コードをコピーして実行する場合の注意】
文字コードの関係上、半角の「￥」は「/」で表示されるため、当サイトでは全角の「￥」で記載しています。当サイトのコードをコピーして実行する場合は、全角の「￥」を半角の「￥」に変換してください。
Exit Subステートメント
| 名称 | Exit Subステートメント |
|---|---|
| 説明 | Subプロシージャを途中で終了させる命令です。 |
| コード例① |
Sub Macro1()
Dim i As Long
For i = 1 To 6
If Cells(i, 1) = "" Then
MsgBox "空白セルがあります"
Exit Sub
End If
Next
MsgBox "空白セルはありません"
End Sub
<空白セルが存在する場合> 「空白セルがあります」のメッセージボックスを表示し、「Exit Sub」でSubプロシージャを途中で終了します。 <空白セルが存在しない場合> 「空白セルはありません」のメッセージボックスを表示します。 アクティブシートのセル範囲A1:A6のセルA3が空白セルである場合、For…Nextステートメントは以下のように処理されます。 i = 1→「If A1 = "" Then」でFalse i = 2→「If A2 = "" Then」でFalse i = 3→「If A3 = "" Then」でTrue → 「空白セルがあります」のメッセージボックスを表示 → 「Exit Sub」でSubプロシージャを途中で終了 |
| カテゴリ | スタンダード |