1、打开事先准备好的成绩数据，
2、快捷键Alt+F11打开Microsoft Visual Basic（工具栏/开发工具/Visual Basic）
3、选择VBAProject/Microsoft Excel 对象/sheet1（sheet1），在右边窗口输入以下程序：
Sub 判断成绩等级()
Dim i As Integer
For i = 2 To 16
Select 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 Select
Next
End Sub
程序编制完成！
4、快捷键Alt+F8（工具栏/开发工具/宏），查看宏，选择已编制好的宏“判断成绩等级”，执行，就会判断成绩等级，并且成绩输入错误会有系统提示“输入错误！数值范围在0-100，请重新输入！”
5、也可在Microsoft Visual Basic直接执行宏，工具栏/运行/运行子过程（快捷键F5）或者直接按菜单栏里的那个竖三角形即可执行宏。
