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

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）或者直接按菜单栏里的那个竖三角形即可执行宏。