Excel 一键判断(VBA版,附全部代码)

VBA?什么是VBA?VBA做什么的?……

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

首先,我们准备一张数据表,如下图:

Excel 一键判断(VBA版,附全部代码)

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

Excel 一键判断(VBA版,附全部代码)

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

Excel 一键判断(VBA版,附全部代码)

接下来,我们在空白处,输入如下代码(效果图,如下图):

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

Excel 一键判断(VBA版,附全部代码)

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

Excel 一键判断(VBA版,附全部代码)

Excel 一键判断(VBA版,附全部代码)

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

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

Excel 一键判断(VBA版,附全部代码)

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

Excel 一键判断(VBA版,附全部代码)

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

Excel 一键判断(VBA版,附全部代码)

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


分享到:


相關文章: