シンプルセレクトケース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

あなたのすべての番号範囲を使用すると、Excelが数学をやろうとしている必要があり方法でこのCase 0 to 50

ようにする必要があります。

したがって、0-50=-50のためwは-50に等しくなるように最初のケースを探しています。

51-59=-8のためと等しくなるようにwを探しています。