利用ExcelVBA程序对成绩划分为四个等级：0-59为不及格，等级为D；60-79为及格，等级为C；80-89为良好，等级为B；90-100为优秀，等级为A。而且判定成绩输入有误情况提示"输入错误！数值范围在0-100，请重新输入！"
工具/原料
Excel2007
VBA
方法/步骤
1、打开事先准备好的成绩数据，
2、快捷键Alt+F11打开MicrosoftVisualBasic（工具栏/开发工具/VisualBasic）
3、选择VBAProject/MicrosoftExcel对象/sheet1（sheet1），在右边窗口输入以下程序：Sub判断成绩等级()DimiAsIntegerFori=2To16SelectCaseRange("a"&i)Case0To59MsgBox"不及格！等级为D",vbInformation,"系统提示"Range("b"&i)="D"Case60To79MsgBox"及格！等级为C",vbInformation,"系统提示"Range("b"&i)="C"Case80To89MsgBox"良好！等级为B",vbInformation,"系统提示"Range("b"&i)="B"Case90To100MsgBox"优秀！等级为A",vbInformation,"系统提示"Range("b"&i)="A"CaseElseMsgBox"输入错误！数值范围在0-100，请重新输入！",vbInformation,"系统提示"Range("b"&i)="输入错误"EndSelectNextEndSub程序编制完成！
4、快捷键Alt+F8（工具栏/开发工具/宏），查看宏，选择已编制好的宏“判断成绩等级”，执行，就会判断成绩等级，并且成绩输入错误会有系统提示“输入错误！数值范围在0-100，请重新输入！”
5、也可在MicrosoftVisualBasic直接执行宏，工具栏/运行/运行子过程（快捷键F5）或者直接按菜单栏里的那个竖三角形即可执行宏。
