vba函数怎么使用(用VBA做判断成绩等级)

用VBA做判断成绩等级，判断标准如下表

按快捷键Alt+F11进入VBA编辑器，插入模块，复制粘贴以下代码

Sub 判断成绩等级()

Dim i As Integer

i = 2

Do While Cells(i, 1) <> ""

If Cells(i, 2) >= 90 Then

Cells(i, 3).Value = "优秀"

ElseIf Cells(i, 2) >= 80 Then

Cells(i, 3).Value = "良好"

ElseIf Cells(i, 2) >= 60 Then

Cells(i, 3).Value = "及格"

Else

Cells(i, 3).Value = "不及格"

End If

i = i + 1

Loop

End Sub

然后单击【开发工具】-【插入】，插入按钮（窗体控件），关联到刚才的宏代码，修改控件显示文字。

单击控件按钮，一键搞定你的工作。

友情提示：含有VBA代码的工作簿保存的时候需要选择xlsm格式，如果直接保存成xlsx格式那就前功尽弃了哈。

VBA效率高，稍微有一点VBA基础的小伙伴可以把代码稍作修改应用到自己工作数据中提高工作效率。