根据分数为职工评定星级

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

如果H2单元格中保存的成绩是0到150之间的整数，用Select Case解决的代码可以写为：

Sub 用Slect语句评定星级()
Select Case Cells(2, "H").Value
Case Is

用If语句解决的代码可以写为：

Sub 用If语句评定星级()
Dim Cj As Integer
Cj = Cells(2, "H").Value
If Cj