利用Excel批量打印证照.docVIP

利用Excel批量打印证照 有时我们经常要制作证件卡片等资料，通常都是希望使用这样的思路：制作好样证，然后通过数据源如Excel提供的数据，将每条记录分别读入并显示到卡片上，再实现套打。有人用Word的邮件合并接合Excel实现过，其实我们完全可以利用Excel这一个软件来实现。 一、建立数据源和样证首先在Excel的Sheet1中建立三个字段：考号、姓名、照片，分别输入数据，插入图片： 制作一张如图所示空白准考证： 在Sheet2中左上角插入制作的准考证，调整到合适的位置。 二、准备建立数据关联在Sheet2中A20单元格(视情况而定)输入考号、B20处输入姓名。在A21单元格中输入1，在B21单元格中输入：=IF(VLOOKUP(A21,Sheet1！A2：B4,2)=0,,VLOOKUP(A21,Sheet1！A2：B4,2))，这里的意思是从Sheet1中A2到B4区域中垂直查找Sheet2中A21单元格的值(即1)，如果找到则返回相应行的第2列(即姓名列)的值，如果操作正确的话，确认后，B21将显示阿狗，如果还有其他数据字段可依此类推，这样就建立了准考证填充数据与Sheet1表中数据的关联。执行视图→工具栏→绘图命令，打开绘图工具栏，在准考证的考号部位插入一个矩形框，然后在地址栏中的编辑栏内输入=A21，即该矩形框中显示A21单元格的内容；同样的在姓名处插入一个矩形框，输入=B21，使之与B21关联。利用Shift键选中所有矩形框，双击选择区域，设置矩形框格式，主要是字体、大小、颜色、填充色和线条色等。 三、定义名称，导入照片关联照片比关联数据要复杂一些。可采用定义名称的办法：执行插入→名称→定义命令，打开如图所示定义名称对话框，输入名称A，在引用位置文本框中输入公式=OFFSET(Sheet1！$A,0,0,COUNTA(Sheet1！$A：$A),1)，确定，该公式建立了查询数据的动态地址。 用同样方法，再定义另一个名为X的名称，里面包括公式=INDIRECT(ADDRESS(MATCH(Sheet2！$A,A,0),3,1,Sheet1))，该公式表示当动态地址栏为Sheet2表中A21单元格数值时，返回Sheet1表中第3列即照片所在列单元格内容。执行视图→工具栏→控件工具箱命令，打开控制工具箱： 点击图像控件，在准考证照片处画出一个合适大小的图片框，选中该图片框，在编辑栏中将公式改成=X，这样图片框中就显示出了照片： 四、制作查询和打印按钮在Sheet2中A19单元格中输入打印第，在B19单元格中输入1，在C19单元格中输入页至第，在D19单元格中输入4，在E19单元格中输入页。选中A21单元格，在编辑栏中输入=B19，使A21与B19建立关联。执行视图→工具栏→窗体，打开窗体工具箱，点击微调项控件，在F19单元格画出一个微调项控件按钮，右击该按钮，打开设置控件格式对话框： 点击单元格链接右边的图标，选择B19单元格，与之建立链接，确定。这样，调节按钮就可以改变学号，显示不同的考生信息。再从窗体工具箱中在微调项按钮的右边画一个按钮控件，选择该按钮，将按钮上文字改为打印，接下来就要为打印按钮添加代码了。执行工具→宏→Visul Basic编辑器命令，在Visul Basic编辑器中选择插入→模块，在代码窗口输入以下代码： Sub打印() Range(A1,H8).Select设置选择区域，该区域应覆盖准考证 ActiveSheet.PageSetup.PrintArea=Selection.Address设置打印区域为所选区域，保证只打印准考证 ActiveWindow.SelectedSheets.PrintOut Copies：=1,Collate：=True开始打印 Call dy调用子程序更改考生信息并继续打印 End Sub Sub dy() Dim a,b a=Sheets(Sheet2).Cells(19,2).Value b=Sheets(Sheet2).Cells(19,4).Value If ab Then a=a+1 Sheets(Sheet2).Cells(19,2).Value=a Call打印 End If End Sub 五、其他说明上面的例子中每个准考证都是分页打印，如果需要在一页中打印多个准考证，可以通过复制的方法复制出模板，用类似的方法关联数据和照片，设置微调项控件的格式，将其步长设置为2(若一页中打印两个准考证)。然后在Visul Basic编辑器中将a=a+1改为a=a+2。 【参考资料1：关于VLOOKUP函数】在表格或数值数组的首列查找指定的数值，并由此返回表格或数组当前行中指定列处的数值。当比较值位于数据表首列时，可以使用函数VLOOKUP代替函数HLOOKUP。