利用EXCEL的VBA功能实现准考证的批量打印-江苏省邗江中学.docVIP

利用EXCEL实现江苏省义务教育学业水平测试准考证批量打印 维扬中学 卜方明 2014-01 EXCEL是许多人都在用的电子表格处理软件，其本身提供了非常多的内置函数，这些函数也足以应付一般的数据处理需求。但是EXCEL不仅仅局限于一般电子表格处理软件的这些功能，它真正出色的地方在于引入了VBA（Visual Basic for Application，简而言之就是VB 的变种）语言。 个人对EXCEL的研究并不多，工作中也只是用它处理一些学生数据，比如成绩分析，考试安排等。其实EXCEL有着强大的功能，2006年的江苏省义务教育学业水平测试考试在我校进行的时候，我利用EXCEL的VBA编程完成了考生准考证的批量打印工作，大大提高了工作效率。让那些无数次的重复操作在一次单击鼠标操作下即可完成。 准考证要求含有“姓名”、“性别”、“班级”、“座位号”、“考试号”、“考试时间”相关信息（如图1）。根据尺寸大小，我在一张A4纸上设计放上8张准考证，分两列，每列4张。（如图2）。 -图1- -图2- 下图所示的Sheet1表中是考生相关信息，其中各个字段要和准考证上的相应位置一一对应填充。下图是个说明图（图3）。 -图3- 在Sheet1表中每8个学生对应sheet2中一组准考证（8张），如下图所示 Sheet1 -图4- Sheet2 设计思路（流程图）如下： -图5- 根据流程图，编写功能代码，外层循环体循环次数是要打印的A4纸张数目，内嵌两次循环分别填充左右各4个准考证数据，最终完成打印，保存文件，退出EXCEL，程序结束。 程序代码： Sub 准考证() 建立一个名称为“准考证”的宏。 For i = 0 To Sheet1.Cells (2, 10) / 8 设立一个循环:开始值为1，结束值为sheet1工作表J2单元格内的值(即准考证数目)。 Sheet1.Select 选中sheet1工作表? For j = 0 To 3 填充左边的4 张准考证 Sheet2.Cells(4 + 13 * j, 2).Value = Sheet1.Cells(2 + j + 8 * i, 4).Value 姓名 Sheet2.Cells(6 + 13 * j, 2).Value = Sheet1.Cells(2 + j + 8 * i, 6).Value 班级 Sheet2.Cells(8 + 13 * j, 2).Value = Sheet1.Cells(2 + j + 8 * i, 3).Value 考试号 Sheet2.Cells(4 + 13 * j, 4).Value = Sheet1.Cells(2 + j + 8 * i, 5).Value 性别 Sheet2.Cells(6 + 13 * j, 4).Value = Sheet1.Cells(2 + j + 8 * i, 7).Value 座位号 Next For j = 0 To 3 填充右边的4张准考证 Sheet2.Cells(4 + 13 * j, 7).Value = Sheet1.Cells(6 + j + 8 * i, 4).Value 姓名 Sheet2.Cells(6 + 13 * j, 7).Value = Sheet1.Cells(6 + j + 8 * i, 6).Value 班级 Sheet2.Cells(8 + 13 * j, 7).Value = Sheet1.Cells(6 + j + 8 * i, 3).Value 考试号 Sheet2.Cells(4 + 13 * j, 9).Value = Sheet1.Cells(6 + j + 8 * i, 5).Value 性别 Sheet2.Cells(6 + 13 * j, 9).Value = Sheet1.Cells(6 + j + 8 * i, 7).Value 座位号 Next Sheet2.Select 选中sheet2工作表 ActiveWindow.SelectedSheets.PrintOut 执行一