利用Excel VBA程序对成绩进行等级划分

1、打开事先准备好的成绩数据，

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程序编制完成！

5、也可在Microsoft Visual Basic直接执行宏，工具栏/运行/运行子过程（快捷键F5）或者直接按菜单栏里的那个竖三角形即可执行宏。