黑白鱼-黑白鱼001-软件工具-股票投资-股海泛舟

VBA之For next用法

发布:shubiao052018-9-26 10:40分类: VBA 标签: VBA

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 三星级

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

温馨提示如有转载或引用以上内容之必要,敬请将本文链接作为出处标注,谢谢合作!

已有 0/17131 人参与

欢迎订阅黑白鱼

欢迎使用手机扫描二维码,关注公众号“黑白鱼001”