简单的select案例VBA代码不运行

当我把这个macros分配给一个button并运行它时，没有任何事情发生，没有任何错误。 我不明白为什么没有发生。 它应该查看单元格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的方式试图做math。

所以在第一个案件是寻找w等于-50因为0-50=-50 。

第二个是寻找w等于-8因为51-59=-8 。