信息技术应用实例
——高中学生体质健康标准登记卡批量套打方案 笔者在工作中发现有很多同事在处理大量学生档案信息中，被繁杂的数据及学生信息所困扰。他们在网上寻求无果后，只好一个一个的复制、粘贴，使其工作量倍增，工作效率低下。怎样实现大量数据信息批量打印呢？网上也有不少相关文章介绍，如将基本信息录入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强大的办公自动化功能实现你想要的目标，达到事半功倍的效果，从而大大提高你的学习、工作效率，进而改善你的生活水平。