vba 不等于_Excel | VBA（1）——判断等级

有不少粉丝朋友说想要学习VBA，那韩老师从今天开始就写一些VBA应用的问题。其实，上一篇Excel | 让“宏”来替你做重复动作已经开始了。

当然，并不是每天都写哦，因为也还有粉丝关心函数应用的问题。

学VBA是个大工程，韩老师不可能从数据类型、常量变量、语法等一一讲起，只能从简单的应用的写起。很多东西，还是需要大家自己去领悟。

今天讲一个简单的判断等级的问题。

IF函数函数判断等级

如下的数据：

可以用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

如下图：

即可判断等级。

而且用Do While语句写出的代码，不受数据行数的限制，只要添加数据，随时都可点击“判断销售业绩”按钮实现。

结果如下：

如查不知道“判断业绩等级”按钮怎么插入，可参考Excel | 让“宏”来替你做重复动作。

关于更多判断等级的方法可参考韩老师这篇文章：

Excel等级评定：IF、VLOOKUP、LOOKUP、CHOOSE、INDEX都能完成