用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基础的小伙伴可以把代码稍作修改应用到自己工作数据中提高工作效率。
「真诚赞赏,手留余香」
真诚赞赏,手留余香
使用微信扫描二维码完成支付
转载请注明:首页 > 投稿 » vba函数怎么使用(用VBA做判断成绩等级)
发表评论
版权声明
求资源网所发布的一切破解补丁,软件,以及其他分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途。
否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。