Einfache Select Case VBA-Code nicht ausgeführt

Question

Wenn ich dieses Makro zu einer Schaltfläche zuweisen und ausführen, geschieht nichts passiert kein Fehler, nichts. Ich verstehe nicht, warum nichts passiert. Es soll Zelle C4 betrachten und die Punktzahl dort verwenden, um den Zellen D4 und E4 basierend auf der Punktzahl einen Buchstabengrad und einen "bestanden" oder "nicht bestanden" zuzuweisen.

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

Alle Ihre Nummernkreise müssen wie diese Case 0 to 50

Mit dem Weg sein, müssen Sie Excel die Mathematik zu tun versucht.

Also auf der ersten Fall ist auf der Suche nach w gleich -50 weil 0-50=-50.

Der zweite sucht nach w, um -8 zu gleichen, weil 51-59=-8.