VBA Excel funkcja Select Case

Question

Sub start()

Liczba_punktów = Range("A9")

Select Case Liczba_punktów

Case 0 To 30
   Range("B9") = "niedostateczny"
Case 31 To 50
   Range("B9") = "dopuszczający"

End Select
End Sub

Cześć,

mam pytanie, jak zrobić by ta funkcja zadziałała na całą kolumnę B1 do B9, narazie działa tylko w komórce B9.

Liczba_punktow = Range("A9")

Select Case Liczba_punktow

Case 0 To 30

Range("B9") = "niedostateczny"

Case 31 To 50

Range("B9") = "dopuszczający"

End Select

End Sub

Answer 1

Sub start() 
    Liczba_punktow = Range("A9")
 
    Select Case Liczba_punktow 
        Case 0 To 30
            Range("B1:B9") = "niedostateczny"
        Case 31 To 50
            Range("B1:B9") = "dopuszczający" 
    End Select
End Sub

Set Range in Excel VBA