Sub test()
Dim intAge As Integer
intAge = InputBox("あなたの年齢を入力してください。")
If intAge > 19 Then
MsgBox "成人です。"
Else
MsgBox "未成年です。"
End If
End Sub
演算子 | 意味 | 例 |
= | 等しい | If Value=5 Then ⇒ Valueの値が5ならTrue |
< | より小さい | If Value<5 Then ⇒ Valueの値が5より小さいならTrue |
<= | 以下 | If Value<=5 Then ⇒ Valueの値が5以下ならTrue |
> | より大きい | If Value>5 Then ⇒ Valueの値が5より大きいならTrue |
>= | 以上 | If Value>=5 Then ⇒ Valueの値が5以上ならTrue |
<> | 等しくない | If Value<>5 Then ⇒ Valueの値が5と等しくないならTrue |
演算子 | 意味 |
条件式1 And 条件式2 | 条件式1と条件式2の両方を満たした場合True |
条件式1 Or 条件式2 | 条件式1か条件式2のいずれか1つを満たした場合True |
Not 条件式 | 条件式を満たさない場合True |