制作智能化的Excel成绩录入模板

【前言】制作智能化的Excel成绩录入模板由文秘帮小编整理而成，但愿对你的学习工作带来帮助。功能三：当某位学生因病或因事缺考，“成绩”列中的分数为空时，相应的“等第”列就会用黄框显示提示信息：“缺考”。 功能四：当对“成绩”列中的分数进行修改时，相应的“等第”列也自动进行相应的修改。 二、具体制作方法 第一步：新建Excel工作簿，在“Sheet1”中...

每到期中或是期末考试，老师们都要录入学生成绩，并且在录入完后还要根据成绩评定等第，虽然说利用Excel能大大提高工作效率，但录入数据之后的等第评定不管用什么方法都得花费一定的时间和精力，因此，常规的处理方法显然是比较麻烦的。那么，有没有在录入成绩的同时自动生成等第的方法呢？办法是有的。笔者就在Excel中设计了一种智能成绩录入模板，它就能实现上述要求（如图1所示）。

一、实现四大功能

我将要设计的智能成绩录入模板需要实现如下四大功能。

功能一：在“成绩”列输入成绩时，在“等第”列就能智能地显示出相应的“等第”，如果“等第”为“不及格”，还会用红色字体提醒。

功能二：在“成绩”列中误输入文字或者输入的成绩数值不符合具体要求时（考试多采用100分制，数值大于100或者小于0时都是错误的），在“等第”列就会用醒目的灰底篮框显示提示信息：“分数输入错误”。

功能三：当某位学生因病或因事缺考，“成绩”列中的分数为空时，相应的“等第”列就会用黄框显示提示信息：“缺考”。

功能四：当对“成绩”列中的分数进行修改时，相应的“等第”列也自动进行相应的修改。

二、具体制作方法

第一步：新建Excel工作簿，在“Sheet1”中填写表头并在单元格A2、B2、C2、D2中分别输入“学号”、“姓名”、“成绩”、“等第”。

第二步：选择“工具宏Visual Basic编辑器”，在出现的窗口左边双击“Sheet1”，在右边箭头处分别选择“Worksheet”对象和“SelectionChange”事件，并添加相应的代码（如图2所示），关闭这个窗口。（清晰版代码图片参见 .cn/u/1704202287/ish）

说明：这里应用了IF语句的嵌套。

代码中“Target．Column=3”用于指定只能在第三列输入数据时才有效；

“Target．Row>3”用于在第三行及其以后各行输入数据时才有效；

“Target.Row”代表当前行号；

“Target.Column”代表当前列号；

“Cells（Target.Row-1,Target.Column）”代表输入数值回车后所输入的数值（如图3所示），这个代码就代表“70”；

“Cells（Target.Row-1,Target.Column+1）”代表输入的数值右边的单元格；

“Range(prange.Address)”表示单元格的范围，“.Address”代表单元格的地址；

“.Borders()”代表单元格的边框，“.Weight”代表单元格线型，“.ColorIndex”代表颜色索引号；

“.Interior”代表单元格的内部填充。

第三步：要想使这些代码发挥作用，需要点击“工具宏安全性”菜单，将宏的安全性设置为低（如图4所示）。

至此，一个智能化的成绩录入模板就制作完成了，这时你就可以在“成绩”这列输入数值了。试一试，是不是很方便！