先看一下复印实际效果，高端大气吧，若喜爱往下看……

　　把县局下达的大学毕业生申请表.xlsx存到电脑硬盘的某一文档中，比如我储存在初招文件夹名称中，在这个文件夹名称内再新创建一个文件夹名称，重新命名为“相片”。相片文件夹名称内放大学毕业生相片，相片以学员姓名取名，比如：张三.jpg，务必是JPG文件格式。

　　开启大学毕业生申请表.xlsx，再建一个工作簿，重新命名为“大学毕业生信息内容”，如下图：

　　这一工作簿必须搜集大学毕业生的各种各样信息内容，从A列到U列包含：序号、大学毕业院校、名字、性別、出世年月、中华民族、家庭住址、考试点、考试场、座号、学籍号、之一家庭主要成员名字、与本人关系、所在单位、联系方式、第二家庭主要成员名字、与本人关系、所在单位、联系方式、教导主任签字、校领导签字。此表设定好后，能够下达到各院校搜集数据信息。

　　准备工作结束，先学习培训一个采用的搜索引用函数：VLOOKUP

　　VLOOKUP涵数是excel中十分关键的搜索引用函数之一，在平常的数据处理 *** 工作上能够说成没它不能。把握了它的操作 *** 能够降低许多劳动量，极大地提升工作效能。下边就为大伙儿详细介绍VLOOKUP涵数单标准搜索的基础操作 *** 。

　　1、vlookup涵数英语的语法分析

　　vlookup(lookup_value,table_array,col_index_num,[range_lookup])

　　lookup_value表明要搜索的目标；

　　table_array表明搜索的数据信息地区；

　　col_index_num表明要搜索的数据信息在table_array地区中处在第几行的列号；

　　range_lookup表明搜索种类，在其中1表明类似配对，0表明精准配对，一般大家都用精准配对。

　　在I1表格中键入”序号“，J1表格中键入学员的序号，逐渐把“大学毕业生信息内容”导到“大学毕业生申请表”中，这儿采用一个搜索引用函数VLOOKUP，在“大学毕业生申请表“中的A2表格中内键入=VLOOKUP(J1,大学毕业生信息内容!A:U,2)，获得“大学毕业生信息内容”工作簿中的大学毕业院校信息内容。

　　别的“名字、性別、出世年月、中华民族、家庭住址、考试点、考试场、座号、学籍号、之一家庭主要成员名字、与本人关系、所在单位、联系方式、第二家庭主要成员名字、与本人关系、所在单位、联系方式、教导主任签字、校领导签字”相匹配填写相对涵数就可以。比如：在B3表格中键入=VLOOKUP(J1,大学毕业生信息内容!A:U,3)，获得大学毕业生的名字。在D3表格中键入=VLOOKUP(J1,大学毕业生信息内容!A:U,4)，获得大学毕业生的性別。别的必须获得的数据信息，请参考该数据信息在“大学毕业生信息内容”工作簿中的行数，开展改动该涵数获得就可以。

　　下边是把相片全自动 *** 大学毕业生申请表中，开启开发环境，在大学毕业生申请表工作簿中 *** 2个表格按键控制，如图所示：

　　一个用于让相片全自动 *** 申请表，一个用于复印申请表。

　　给"转化成相片"按键控制特定宏，宏代码以下：

　　Sub 转化成相片()

　　Application.ScreenUpdating=False '避免屏幕抖动,显示屏更新严禁

　　Dim fs1$

　　Dim d As Object

　　If [j1] > Sheets("大学毕业生信息内容").Cells(Rows.Count, 1).End(xlUp).Row Then

　　MsgBox "后边没了!": Exit Sub

　　End If

　　Set d=CreateObject("scripting.dictionary")

　　For Each a In Sheets("大学毕业生申请表").Pictures

　　a.Delete

　　Next

　　On Error Resume Next '忽视不正确执行VBA编码,防止出现不正确信息

　　fs1=ThisWorkbook.Path & "\相片\" & CStr(Sheets("大学毕业生申请表").[b3]) & ".jpg"

　　If d.ExistsFile(fs1)=True Then

　　Range("G3:H6").Select

　　ActiveSheet.Pictures.Insert(fs1).Select

　　With Selection.ShapeRange

　　Selection.ShapeRange.LockAspectRatio=msoFalse

　　.Top=Range("G3:H6").Top 1

　　.Left=Range("G3:H6").Left 1

　　.Width=Range("G3:H6").Width

　　.Height=Range("G3:H6").Height

　　End With

　　End If

　　[j1].Select

　　Application.ScreenUpdating=True

　　End Sub

　　给“复印申请表”按键控制特定宏，宏代码以下：

　　Sub 复印申请表()

　　Sheets("大学毕业生申请表").PrintOut From:=1, To:=1, Copies:=1

　　[j1]=[j1] 1

　　End Sub

　　最终，也要留意设定打印区域，并把文档另存启用宏的工作表，就做好了了！

　　最终的最终，应用全过程一定要开启EXCEL的宏作用，而且你只必须之一步点转化成相片，第二步点复印申请表。就可以复印出高端大气的大学毕业生申请表了。