先看看打印效果，高大上吧，若喜欢往下看……
把县局下发的毕业生登记表.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)，获取毕业生的性别。其他需要获取的数据，请参照该数据在“毕业生信息”工作表中的列数，进行修改该函数获取即可。
下面是把照片自动插入毕业生登记表中，打开开发工具，在毕业生登记表工作表中插入两个表单按钮控件，如图：
一个用来让照片自动插入登记表，一个用来打印登记表。
给"生成照片"按钮控件指定宏，宏代码如下：
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的宏功能，并且你只需要第一步点生成照片，第二步点打印登记表。就可以打印出高大上的毕业生登记表了。
本文地址：