Simple Select Case Код VBA не работает

Question

Когда я назначаю этот макрос кнопке и запускаю его, ничего не происходит, нет ошибки, ничего. Я не понимаю, почему ничего не происходит. Предполагается, что он будет смотреть на ячейку C4 и использовать там счет, чтобы назначить оценку букв и «пропуск» или «провал» для ячеек D4 и E4 на основе оценки.

Sub Grade() 
    Dim x As Range 
    Dim y As Range 
    Dim z As Range 
    Dim w As Integer 

    Set x = Worksheets("Grades").Range("C4") 
    Set y = Worksheets("Grades").Range("D4") 
    Set z = Worksheets("Grades").Range("E4") 
    w = x.Value 

    Select Case w 
    Case 0 - 50 
     y.Value = "F" 
     z.Value = "Fail" 
    Case 51 - 59 
     y.Value = "D" 
     z.Value = "Fail" 
    Case 60 - 65 
     y.Value = "D" 
     z.Value = "Pass" 
    Case 66 - 75 
     y.Value = "C" 
     z.Value = "Pass" 
    Case 76 - 90 
     y.Value = "B" 
     z.Value = "Pass" 
    Case 91 - 100 
     y.Value = "A" 
     z.Value = "Pass" 
    End Select 
End Sub 

Answer 1

Все ваши диапазоны номеров должны быть, как это Case 0 to 50

с тем, как у вас есть Excel пытается сделать математику.

Итак, первый случай ищет w, равный -50, потому что 0-50=-50.

Второй ищет w равным -8, потому что 51-59=-8.