アクセスVBAの部屋

VBA Homeへ戻る

条件分岐処理 If・・・EndIf ステートメント

解説

条件が合致しているときに処理を実行します。それ以外は行いません。

書式

次の例は変数iが70以上の時に「合格」のメッセージを出します。それ以外は何も行いません。

If 条件式 Then
   条件式が真(True)のときに実行する処理
EndIf

使用例

次の例は変数iが70点以上を「合格」のメッセージを出します。70点未満は何も行いません。

Sub Sample()
 Dim Tokuten As Integer
 Tokuten = InputBox("点数を入力してください(0~100)")
 If Tokuten >= 70 Then
 MsgBox "合格"
 End If
End Sub

75点の入力しした時の結果です。

(この項終わり)