《别怕》93、94页问题？

langxian912

《别怕》93、94页用Do While语句解决评星方法中，无论把Do 〔While 逻辑表达式〕放在Do开头，或者While结尾处，一旦遇到第一个记录或中间记录考核评分为0时，就无法进行下一个记录评判！
Sub xingji_1()
    Dim xj As String, i As Integer
    i = 2
    Do While Cells(i, "H") <> ""
        Select Case Cells(i, "H")
           Case Is < 85
              xj = "不评级"
           Case Is < 100
              xj = "一星级"
           Case Is < 115
              xj = "二星级"
           Case Is < 130
              xj = "三星级"
           Case Is < 150
              xj = "四星级"
           Case Else
              xj = "五星级"
        End Select
        Cells(i, "I") = xj
    i = i + 1
   Loop
End Sub
请验证！

langxian912

在结尾出判断！请验证
Sub xingji_1()
     Dim xj As String, i As Integer
     i = 2
     Do
         Select Case Cells(i, "H")
            Case Is < 85
               xj = "不评级"
            Case Is < 100
               xj = "一星级"
            Case Is < 115
               xj = "二星级"
            Case Is < 130
               xj = "三星级"
            Case Is < 150
               xj = "四星级"
            Case Else
               xj = "五星级"
         End Select
         Cells(i, "I") = xj
i = i + 1
        Loop  While Cells(i, "H") <> ""
End Sub

dgxsdr

0也是<85的，没理解，请传附件看一下

ggsmart

难道是空单元格？？？

langxian912

请大家验证！

ggsmart

langxian912 发表于 2012-10-25 08:16
请大家验证！

我试了，没有问题。

langxian912

ggsmart 发表于 2012-10-25 15:11
我试了，没有问题。

假设第一个记录或者中间一个记录考核评分为0试一试！