Vba で exit if ステートメントを使用する方法 (例付き)

VBA には組み込みのExit Ifステートメントはありませんが、 GoToステートメントでIfステートメントを使用することで簡単にシミュレートできます。

次の例は、これを実際に行う方法を示しています。

例: VBA で Exit IF ステートメントを使用する方法

ユーザーに 10 未満の整数の入力を要求するマクロを作成し、 IFステートメントを使用して次の処理を実行するとします。

• 入力した整数が 10 未満の場合は、2 を乗算し、結果をセルA1に表示します。
• 入力した整数が 10 以上の場合は、IF ステートメントを終了し、エラー メッセージを生成します。

これを行うには、次の構文を使用できます。

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

このマクロを実行すると、10 未満の整数を入力するように求められます。

値5 を入力してOKを押したとします。

この整数は 10 未満であるため、サブプロシージャは入力した値を 2 で乗算し、結果をセルA1に表示します。

ただし、代わりに値15を入力するとします。

Excel では次のメッセージ ボックスが表示されます。

入力した値は 2 倍されず、セルA1には結果が表示されません。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBAでエラー時にSubを終了する方法
VBAでIFERRORを使用する方法
VBAを使用してファイルを削除する方法