IF (条件式) Then ★条件式に一致する場合(処理) Else ▲条件式に一致しない場合(処理) End IF
【使用例①】:Aが10の場合はAに10を足す。10以外なら20を足す場合の条件
IF A = 10 Then A = A + 10 Else A = A + 20 End If
【使用例②】:Aが70以上の場合は、合格を表示、70未満の場合は不合格と表示する場合の条件
IF A >= 70 Then Msgbox”合格” Else Msgbox”不合格” End If
演算子 | IF文(例) | IF文の条件内容 |
---|---|---|
= | IF A = 10 Then | Aが10と等しければ実行 |
> | IF A < 10 Then | Aが10より小さい(未満)場合に実行 |
< | IF A > 10 Then | Aが10より大きい(超える)場合に実行 |
>= | IF A >= 10 Then | Aが10以上の場合に実行 |
<= | IF A <= 10 Then | Aが10以下の場合に実行 |
<> | IF A <> 10 Then | Aが10以外ならば実行 |
Sub iftest() Dim A As Long A = inputBox("数値を入力してください") '数値を入力します。 If A >= 70 Then MsgBox "合格です。" '入力した値に対して70以上は合格 Else MsgBox "不合格です。" '入力した値が70未満が不合格 End If End Sub
Sub Ifthen02() Dim A As Long A = InputBox("数値を入力してください") '数値を入力します。 If A >= 70 Then 'IF文① MsgBox "合格です。" '入力した値に対して70以上は合格 End If If A < 70 Then 'IF文② MsgBox "不合格です。" '入力した値が70未満が不合格 End If End Sub
Sub Elseif01() Dim temp As Long temp = InputBox("現在の気温を入力して下さい") If 35 < temp And temp <= 40 Then '条件式:気温が36~40まで MsgBox "超暑いです!" ElseIf 30 < temp And temp <= 35 Then '条件式:気温が31~35まで MsgBox "暑いです" ElseIf 20 < temp And temp <= 30 Then '条件式:気温が21~30まで MsgBox "ちょうど良い気温です。" ElseIf 10 < temp And temp <= 20 Then '条件式:気温が11~20まで MsgBox "やや寒いです。" ElseIf 0 <= temp And temp <= 10 Then '条件式:気温が0~10まで MsgBox "寒いです。" Else MsgBox "気温は 0~40の間で数字を入力して下さい" End If End Sub