IF文を使った条件分岐

今回はIF文を使った条件分岐についてメモしておきます。

単一条件で分岐

実行プログラム

Sub Sample2_1_1()

    Dim intScore  As Integer
    
    intScore = Cells(1, 2).Value
    
    If intScore >= 70 Then
        MsgBox "70点以上"
    Else
        MsgBox "70点未満"
    End If

End Sub

Sub Sample2_1_1()

Dim intScore As Integer

intScore = Cells(1, 2).Value

If intScore >= 70 Then

MsgBox "70点以上"

Else

MsgBox "70点未満"

End If

End Sub

実行結果

複数条件で分岐

実行プログラム

Sub Sample2_1_2()

    Dim intScore  As Integer
    
    intScore = Cells(1, 2).Value

    If intScore >= 70 And intScore <= 100 Then
        MsgBox "70点～100点 範囲内"
    Else
        MsgBox "70点～100点 範囲外"
    End If

End Sub

Sub Sample2_1_2()

Dim intScore As Integer

intScore = Cells(1, 2).Value

If intScore >= 70 And intScore <= 100 Then

MsgBox "70点～100点範囲内"

Else

MsgBox "70点～100点範囲外"

End If

End Sub

実行結果

ElseIfを使った条件分岐

実行プログラム

Sub Sample2_1_3()

    Dim intScore  As Integer
    
    intScore = Cells(1, 2).Value
    
    If intScore >= 90 Then
        MsgBox "90点以上"
    ElseIf intScore >= 70 And intScore < 90 Then
        MsgBox "70点以上 90点未満"
    Else
        MsgBox "70点未満"
    End If

End Sub

Sub Sample2_1_3()

Dim intScore As Integer

intScore = Cells(1, 2).Value

If intScore >= 90 Then

MsgBox "90点以上"

ElseIf intScore >= 70 And intScore < 90 Then

MsgBox "70点以上 90点未満"

Else

MsgBox "70点未満"

End If

End Sub

実行結果