●確認テスト4

【問題文】

セルB4の値を基準にセルC4に次の条件で入力しなさい。
• セルB4が0以上29以下の時、セルC4に"不可"と入力
• セルB4が30以上54以下の時、セルC4に"可"と入力
• セルB4が55以上74以下の時、セルC4に"良"と入力
• セルB4が75以上100以下の時、セルC4に"優"と入力
• セルB4がそれ以外の時、セルC4に"採点ミス"と入力

【解答例】

Sub Test_SelectCase4()
    Select Case Cells(4, 2)
        Case 0 To 29
            Cells(4, 3) = "不可"
        Case 30 To 54
            Cells(4, 3) = "可"
        Case 55 To 74
            Cells(4, 3) = "良"
        Case 75 To 100
            Cells(4, 3) = "優"
        Case Else
            Cells(4, 3) = "採点ミス"
    End Select
End Sub

【解説】

Toを用いて、問題文の通りに処理を分岐させています。
If文ではAndを用いる必要があったため、繁雑化しやすい面がありますが、Select CaseではToで済むため読みやすいかと思います。ただし「10より大きいかつ20以下」や「10以上かつ20未満」など範囲のどちらかに『より大きい』か『未満』が指定されている場合は、If文を使用してください。