Excel 一键判断(VBA版，附全部代码）

VBA？什么是VBA？VBA做什么的？……

不懂，没关系，照着做就行了。

首先，我们准备一张数据表，如下图：

接下来，我们按组合键：【Alt】+【F11】，如下图：

然后，我们选择【插入】→【模块】，如下图：

接下来，我们在空白处，输入如下代码（效果图，如下图）：

Sub 判断成绩等级()

Dim h%

h = 2

Do While Cells(h, 2) <> ""

If Cells(h, 2) >= 90 Then

Cells(h, 3) = "优秀"

ElseIf Cells(h, 2) < 90 And Cells(h, 2) >= 70 Then

Cells(h, 3) = "良好"

ElseIf Cells(h, 2) < 70 And Cells(h, 2) >= 60 Then

Cells(h, 3) = "及格"

Else

Cells(h, 3) = "不及格"

End If

h = h + 1

Loop

End Sub

接下来，我们再按一次组合键：【Alt】+【F11】，切换回Excel界面，同时插入一个图形，如下图：

备注一下：画啥图形，这个随意，没有强制要求。

接下来，我们右击刚才画的图形，点击【指定宏】，如下图：

我们在弹出的指定宏的窗口中，选中【判断成绩等级】，然后点击【确定】，如下图：

然后我们点击，刚才画的图形，就发现，成绩等级，自动标注了哦（效果图如下）

喜欢我的作品的话，请关注一下。谢谢