VBA之For next用法

2018-9-26 shubiao05

VBA之For next用法:

要对下面的表格进行评定星级，当然，不止这些数据：

姓名	项目1	项目2	项目3	项目4	项目5	项目6	考核得分	星级评定结果
王一凡	20	20	15	40	20	10	125
李自健	15	30	10	15	20	25	115

Sub XingJi()

Dim xj As String, i As Integer

For i = 2 To 3 Step 1

Select Case Cells(2, "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

Next i

End Sub

执行后，结果如下：

姓名	项目1	项目2	项目3	项目4	项目5	项目6	考核得分	星级评定结果
王一凡	20	20	15	40	20	10	125	三星级
李自健	15	30	10	15	20	25	115	三星级

这样，可以批量处理，节省时间，提高效率！