信息技术应用实例--高中学生体质健康标准登记卡批量套打方案

信息技术应用实例

——高中学生体质健康标准登记卡批量套打方案笔者在工作中发现有很多同事在处理大量学生档案信息中，被繁杂的数据及学生信息所困扰。他们在网上寻求无果后，只好一个一个的复制、粘贴，使其工作量倍增，工作效率低下。怎样实现大量数据信息批量打印呢？网上也有不少相关文章介绍，如将基本信息录入excel工作表中，再利用word的邮件合并功能；或是利用数十条甚至上百条VBA语句来实现此功能。此番思考，总觉烦琐，尤其是VBA代码，初学者不易理解，借鉴困难。经过本人数日以来的探索，找到了一种好的解决方案，不敢独享，现奉献给大家：

首先，下载“《国家学生体质健康标准》评分表（高中部分）”至自己电脑中，做好准备。

其次，新建工作簿，复制评分表中相关表格，粘贴至第一张工作表，取名“标准1－3”；将评分表中表4－表9复制、粘贴至第二张工作表，取名“标准4－9”。由于评分表中给出的数据均是区间值，而测试人员给我们的都是具体实测数据，故相关评分表需按规定修正数据，才能在“登记卡”表中调取使用。

再次，准备好学生基本信息及基础数据。基本信息包括学生姓名、性别、年龄、学籍号、考籍号及所属班级等。把这些信息放到一个工作表里，取名“基本信息”，选择一个能唯一识别学生信息的字段，如学籍号放到学生基本信息表的第一列，方便其它表中信息的检索。如图一所示：

图一如果不知性别、年龄，知道身份证号也行。可以在性别列对应单元格输入公式：=IF(MOD(MID(F2,17,1),2),

示：

图二基础数据表最好下发给相关测试人员，由他们填好实测数据，再由管理员收集后导入此表。此表相关栏目设置数据自动处理功能，能

自动导入学生基本信息，生成部分项目成绩、得分、等级。主要用到VLOOKUP函数功能。

完全准备好高一、高二、高三基础数据之后，再插入一张工作表，取名“登记卡”，此表用于最终批量打印模板表，因此必须设置好相关栏目及数据导入公式，如有误将影响所有学生，

重新打印势必造成不必要的浪费。在编制好后，最好先打印几页校验，无误后，方可设置打印起始页，点击批量打印。表格部分截图如下：

图三

表中主要用到IF、LOOKUP、VLOOKUP、ISERROR、INT、MID等函数从标准1－3、标准4－9、基础数据等表中导入学生相关信息，主要包括成绩、得分、等级信息。当然根据表的结构不同，所用函数参数有一些差异。总之，要想实现批量套打，就必须要能在模板表中自动生成某学生所有信息。本文旨在实现批量打印功能，故其它方面不再赘述，相信大多数有一定excel基础的人都能做好前期准备工作。

最后，看如何实现批量打印：如图三右所示插入表单控件“数值调节钮”，在右键菜单中，点击“设置控件格式”，选择“控制”标签，做好相关设置后，便可通过此按钮快速调整当前页（当然也可以手动输入当前页序号）。

接下来，在“数值调节钮”右边插入两命令按钮（ActiveX 控件），将第一个按钮名称、Caption属性均设为“当前打印”、第二个按钮名称、Caption属性均设为“批量打印”，Font、ForeColor等外观属性可自行设置，打开Visual Basic编辑器，展开工程－VBAProject中的Microsoft Excel对象，双击“Sheet1 (登记卡)”，在其代码窗口中输入： Private Sub 当前打印_Click() ActiveSheet.PrintOut ‘打印当前活动工作表 End Sub Private Sub 批量打印_Click() For i = Range(

之广，只要你愿意去思考、去探索，就可以使自己的学习、工作和生活变得更简捷、更方便。本文也旨在抛砖引玉，我们只要开动脑筋，总会找到解决问题的办法。那些编程序解决问题的事不再是高级工程师、高级程序员们的专利，我们也可利用OFFICE强大的办公自动化功能实现你想要的目标，达到事半功倍的效果，从而大大提高你的学习、工作效率，进而改善你的生活水平。