Excel中为学生成绩快速分出等级的方法

Excel中为学生成绩快速分出等级的方法

 

 

期中考试结束后的一天，我校的地理老师来到我的办公室，希望我能够帮助他把学生的成绩按照分数分出等级。要求是90分及90分以上的为A，75分至89分的为B，60分至74分的为C，不足60分的为D。为了快速的解决这个问题，而且能使他以后自己也能够很方便的为成绩分等级，我决定使用Excel中的“ 宏”来完成。

第一步：建立工作表，存放基本信息。比如：学生学号、姓名、成绩、字母等级。输入学生的数据。如图1。

第二步：创建宏，并修改宏

1. 单击“ 工具→宏→录制新宏”，创建一个新的宏。在录制新宏对话框内，输入宏名(本例用DENGJI)；“ 快捷键”可有可无(本例用Ctrl+Shift+K，注意不要使用Excel默认的快捷键Ctrl+C等，会为以后的工作带来不必要的麻烦)；“保存在”选择“当前工作簿 ”，“说明”简单地为新宏做一下注解，为了以后使用方便，如图2。然后单击[确定]按钮，工作表中显示“ 停止录制”按钮条后，单击“ 停止录制”按钮。

2. 在菜单条上，单击“工具→宏”，打开宏对话框。选择修改的宏名，然后单击[ 编辑]按钮，如图3，启动VBA编辑器。

3. 在第一行你会看到Sub后跟着宏名(如：DENGJI)以及双括号。删除Sub，并在Sub的位置上键入“ Function”，如图4。

4. 声明变量，Excel查找变量，并返回变量的值。(本例中使用CHENGJI)，结果是第一行变为：Function DENGJI(CHENGJI)。

5. 宏的标题文本不动，将光标的插入点放在第一空行，输入代码如图5：

if CHENGJI >= 90 then

DENGJI = "A"

else if CHENGJI >= 75 then

DENGJI = "B"

else if CHENGJI >= 60 then

DENGJI = "C"

else

CHENGJI = "D"

end if

6.关闭VBA编辑器，返回到Excel工作表。

7. 在“ 字母等级”列的第一个空白单元格中输入下列公式：=DENGJI(C3)。回车即可出现等级“ A”，如图6。

8. 然后利用填充柄将其他单元格填充上即可。

以后只要地理老师打开这个工作簿，将基本数据输入后，利用DENGJI这个宏，就可以将学生的成绩变成等级。

 

来源：互联网