●確認テスト3

【問題文】

セルB3の値を基準にセルC3に次の条件で入力しなさい。
なお、セルB3は必ず0以上100以下の整数が入力されるとする。
• セルB3が30以下の時、セルB3に"不合格"と入力
• セルB3が100の時、セルB3に"満点合格"と入力
• セルB3がそれ以外の時、セルC3に"合格"と入力

【解答例1】

Sub Test_SelectCase3_1()
    Select Case Cells(3, 2)
        Case Is <= 30
            Cells(3, 3) = "不合格"
        Case 100
            Cells(3, 3) = "満点合格"
        Case Else
            Cells(3, 3) = "合格"
    End Select
End Sub

【解答例2】

Sub Test_SelectCase3_2()
    Select Case Cells(3, 2)
        Case 0 To 30
            Cells(3, 3) = "不合格"
        Case 31 To 99
            Cells(3, 3) = "合格"
        Case 100
            Cells(3, 3) = "満点合格"
    End Select
End Sub

【解説】

解答例1では、Toを用いて設問の条件の通りCaseで処理を分岐させています。
解答例2では、問題文に「0以上100以下の整数」とあることに注目し、0～30と31～99、100の3種類に分けて処理をさせています。