有不少粉丝朋友说想要学习VBA,那韩老师从今天开始就写一些VBA应用的问题。其实,上一篇Excel | 让“宏”来替你做重复动作已经开始了。
当然,并不是每天都写哦,因为也还有粉丝关心函数应用的问题。
学VBA是个大工程,韩老师不可能从数据类型、常量变量、语法等一一讲起,只能从简单的应用的写起。很多东西,还是需要大家自己去领悟。
今天讲一个简单的判断等级的问题。
IF函数函数判断等级
如下的数据:
![842b78a4c9cf5c588688807eeaecb3aa.png](https://i-blog.csdnimg.cn/blog_migrate/2e375c91f612b56d22c692f554165bfb.jpeg)
可以用IF函数实现根据销售业绩判断每位销售员的业绩等级。公式为:“=IF(B2>=8,"优秀",IF(B2>=4,"合格","不合格"))“。
判断方法是:
- 销售业绩大于等于8,业绩等级为”优秀“;
- 销售业绩大于等于4,且小于8,业绩等级为”合格“;
- 销售业绩小于4,业绩等级为”不合格“。
VBA实现
打开VBA窗口,可以用Alt+F11组合键,也可以选择”开发工具“菜单中的”Visual Basic"来打开,也可以直接在工作表名称上点击右键,选择“查看代码”打开。
在右侧工程窗口中插入“模块”,在右侧代码窗口中添加代码:
Sub 业绩等级()
Dim i As Integer ‘定义一个整型变量
i = 2 ’变量赋初值
Do While Range("B" & i).Value <> "" ‘当B列数据不为空时则进行等级判断
If Range("B" & i) >= 8 Then
Range("D" & i).Value = "优秀"
ElseIf Range("B" & i) >= 4 Then
Range("D" & i).Value = "合格"
Else
Range("D" & i).Value = "不合格"
End If
i = i + 1
Loop
End Sub
如下图:
![d3e65e5136c3177c8ddf1cf07b97dd52.png](https://i-blog.csdnimg.cn/blog_migrate/d4eb3a579311f0a19a2634a4b39ae91e.jpeg)
即可判断等级。
而且用Do While语句写出的代码,不受数据行数的限制,只要添加数据,随时都可点击“判断销售业绩”按钮实现。
结果如下:
![9b2ffea1e6215a8756d9fb3715d3e03d.gif](https://i-blog.csdnimg.cn/blog_migrate/539e0fabb0219b47ebdff91954cc8c0c.gif)
如查不知道“判断业绩等级”按钮怎么插入,可参考Excel | 让“宏”来替你做重复动作。
关于更多判断等级的方法可参考韩老师这篇文章:
Excel等级评定:IF、VLOOKUP、LOOKUP、CHOOSE、INDEX都能完成