1、打开事先准备好的成绩数据，
2、快捷键Alt+F11打开Microsoft Visual Basic（工具栏/开发工具/Visual Basic）
3、选择VBAProje罕铞泱殳ct/Microsoft Excel 对象/sheet1（sheet1），在右边窗口脶巴躔炒输入以下程序：Sub 判断成绩等级()Dim i As IntegerFor i = 2 To 16Select Case Range("a" & i)Case 0 To 59 MsgBox "不及格！等级为D", vbInformation, "系统提示" Range("b" & i) = "D"Case 60 To 79 MsgBox "及格！等级为C", vbInformation, "系统提示" Range("b" & i) = "C"Case 80 To 89 MsgBox "良好！等级为B", vbInformation, "系统提示" Range("b" & i) = "B"Case 90 To 100 MsgBox "优秀！等级为A", vbInformation, "系统提示" Range("b" & i) = "A"Case Else MsgBox "输入错误！数值范围在0-100，请重新输入！", vbInformation, "系统提示" Range("b" & i) = "输入错误"End SelectNextEnd Sub程序编制完成！
4、快捷键Alt+F8（工具栏/开发工具/宏），查看宏，选择已编制好的宏“判断成绩等级”，执行，就会判断成绩等级，并且成绩输入错误会有系统提示“输入错误！数值范围在0-100，请重新输入！”
5、也可在Microsoft Visual Basic直接执行宏，工具栏/运行/运行子过程（快捷键F5）或者直接按菜单栏里的那个竖三角形即可执行宏。
