if文 - nanamin48 @ Memo

• if文

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