文档介绍：该【Excel应用实例打印准考证 】是由【雨林书屋】上传分享，文档一共【5】页，该文档可以免费在线阅读，需要了解更多关于【Excel应用实例打印准考证 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。精选文档
精选文档
1
精选文档
Excel应用实例--轻松套打带照片的准考证
礼拜一刚上班,同事小张迎上来笑哈哈地说:“主任让你务必于今日上午将准考证
打印出来,数据已录好了,照片已加入字段”。想起今年第11期F6版《中国电脑
教育报》的一篇《自己着手制作学生胸卡》的文章,我想用VFP的报表功能实现带照片的准考证套打,应该是很轻松的事。
打开小张递过来的数据盘,本来数据所有用Excel录入,照片作为此中的一个字段已放在单元格内(如图1),假如用VFP,还需将工作表变换成DBF格式,并将照片复制成一个个单独的图片文件,好几百人的照片,没有几日的功夫怕是完成不了任
务的。还是在Excel上想一想方法吧,看有没有捷径可走。经过探究,笔者终于将此
问题解决了,现将方法介绍以下。
,建立数据关系
2是空白准考证款式,先用扫描仪将准考证扫描,并保持大小尺寸不变,而后将
图片保存为JPG格式。打开Sheet2工作表,将刚刚保存的图片插入表中,并将图片设定为非打印对象。执行“视图→工具栏→绘图”命令,在准考证需填补文本的部
位插入矩形框。我们用VLOOKUP函数实现Sheet1工作表中数据与Sheet2表中准考
证间的关系(照片填补部分除外)。
第一将A21单元格作为盘问的要点数值,在A20—G20单元格中分别输入[序号]、[姓
]、[级别]等字段。在B21单元格中输入公式
“=IF(VLOOKUP(A21,Sheet1!A2:I1000,2)=0,"",VLOOKUP(A21,Sheet1!A2:I1000,2)
)”,在C21单元格中输入公式
“=IF(VLOOKUP(A21,Sheet1!A2:I1000,6)=0,"",VLOOKUP(A21,Sheet1!A2:I1000,6)
)”,其余依此类推。这样就建立了准考证填补数据与Sheet1表间的关系。
下一步就是要建立数据与准考证相应矩形框的关系,以准考证中[姓名]字段为例,鼠标单击该矩形框,在编写栏右边输入“=”符号,而后用鼠标点击需要填入数据的
B21单元格,这样矩形框就和B21单元格中的数据建立了联系。只要单元格数据变
化,则矩形框数据也跟着变化,其余依此类推。这样,只要在A21单元格输入序号值,那么Sheet1表中相应序号行的数据就会在准考证模板中自动生成。上述工作完
成后,按“Shift”键选中所有矩形框,设置矩形框格式,包含字体、大小、对齐、
颜色和线条等,特别是选中无填补色和无线条色。
,导入照片
经过VLOOKUP函数固然建立了工作表1和准考证的联系,但要在准考证中自动
生成照片则需要用到比较复杂的函数,采纳定义名称的方法。详尽步骤以下:
(1)定义名称:执行“插入→名称→定义”命令,打开如图3所示“定义名称”对话框,将名称定义为“A”,在“引用地址”文本框中输入公式
“=OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)”,按下〔确立〕按钮返回。该公式建立了盘问数据的动向地址。接着用相同方法,再定义另一个名叫“X”的名
称,里面包含公式
“X=INDIRECT(ADDRESS(MATCH(Sheet2!$A$21,A,0),9,1,,"Sheet1"))”,该公式表示当动向地址栏为Sheet2表中A21单元格数值时,返回Sheet1表中第9列即照片
所在列单元格内容。
精选文档
精选文档
2
精选文档
2)导入图片:采用sheet2工作表,执行“视图→工具栏→控件工具箱”命令,打开“控制工具箱”窗口。点击图像框或文字框按钮,在准考证需要填补照片的位
置画出相同大小的图片框或文字框。采用文字框(图像框)后,将编写栏中
“=EMBED("",""”改成“=X”,如图4,这样只要A21单元格数值变化时,照片框中相应的照片就会发生变化。
,编写宏代码
为操作更加方便,可以制作微调按钮调理序号值。执行“视图→工具栏→窗体”,打开窗体对话框,点击微调项标记按钮,建立微调按钮,右击按钮,打开“设置控
件格式”对话框,并与B19单元格建立链接,按下〔确立〕按钮。选中A21单元格,在编写栏中输入“=B19”,此时点击微调按钮,即可自动调理B19和A21单元格序
号值,对应的数据就会在模板中自动生成,成效如图5。接下来就是打印了。
精选文档
精选文档
3
精选文档
执行“工具→宏→VisulBasic编写器”命令,在VisulBasic编写器中选择“插
精选文档
精选文档
4
精选文档
入→增加模块”,在代码窗口输入以下代码:
Sub打印()
:=1,Collate:=True
Calldy
EndSub
Subdy()
Dima%,b$,c$,abc$
a=Sheets("Sheet2").Cells(19,2).Value
b=Sheets("Sheet2").Cells(19,4).Value
精选文档
精选文档
5
精选文档
(说明:a即B19单元格,是图5中打印第×页至第×页中的初步页,b即D19单元格,是停止页。)
Ifa<bThen
a=a+1
Sheets("Sheet2").Cells(19,2).Value=a
Call打印
EndIf
EndSub
PrivateSubCommandButton1_Click()
Call打印
EndSub
输入完成后,保存关闭VBA编写窗口返回工作表状态。同制作微调按钮相同,制作一个〔打印〕按钮,并指定刚刚建立的“打印”宏。将A1:F13所在的单元格地域设
定为打印地域,设定打印起止页,按下〔打印〕按钮即可打印了,也可点击微调按钮,盘问到相应的打印内容,而后打印当前页。自然此中的图片及按钮不会打印出
来。
精选文档
精选文档
6
精选文档