注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

栖客技术札记

栖客王近东,山东泰安人。本杂记主要收录工作、学习、生活中遇到的问题及解决方法。

 
 
 

日志

 
 
关于我

主要收录在技术学习和技术应用方面的文章,有原创、有引用、有转载,学以致用,欢迎浏览。(我的教育类文章发布在http://wjd.blog.edu.cn上)

网易考拉推荐

Excel轻松套打批量 带照片的准考证[转]  

2011-08-25 13:14:53|  分类: Applications |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

打开数据盘,原来数据全部用Excel录入,照片作为其中的一个字段已放在单元格内(如图1),如果用VFP,还需将工作表转换成DBF格式,并将照片复制成一个个单独的图片文件,好几百人的照片,没有几天的功夫怕是完成不了任务的。还是在Excel上想想办法吧,看有没有捷径可走。通过探索,笔者终于将此问题解决了,现将方法介绍如下。

Excel轻松套打批量 带照片的准考证 - guanxiaomin1970 - guanxiaomin1970的博客

 

 

现将方法介绍如下

1. 设计套打模板,建立数据关联
图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”键选中所有矩形框,设置矩形框格式,包括字体、大小、对齐、颜色和线条等,特别是选中无填充色和无线条色。

Excel轻松套打批量 带照片的准考证 - guanxiaomin1970 - guanxiaomin1970的博客

 

2. 定义名称,导入照片
  通过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列即照片所在列单元格内容。

Excel轻松套打批量 带照片的准考证 - guanxiaomin1970 - guanxiaomin1970的博客

(2)导入图片:选取sheet2工作表,执行“视图→工具栏→控件工具箱”命令,打开“控制工具箱”窗口。点击图像框或文字框按钮,在准考证需要填充照片的位置画出相同大小的图片框或文字框。选取文字框(图像框)后,将编辑栏中“=EMBED("Forms.TextBox.1",""”改成“=X”,如图4,这样只要A21单元格数值变化时,照片框中相应的照片就会发生变化。

Excel轻松套打批量 带照片的准考证 - guanxiaomin1970 - guanxiaomin1970的博客

3. 制作微调按钮,编写宏代码
为操作更加方便,可以制作微调按钮调节序号值。执行“视图→工具栏→窗体”,打开窗体对话框,点击微调项标志按钮,建立微调按钮,右击按钮,打开“设置控件格式”对话框,并与B19单元格建立链接,按下〔确定〕按钮。选中A21单元格,在编辑栏中输入“= B19”,此时点击微调按钮,就可自动调节B19和A21单元格序号值,对应的数据就会在模板中自动生成,效果如图5。接下来就是打印了。

Excel轻松套打批量 带照片的准考证 - guanxiaomin1970 - guanxiaomin1970的博客

 

执行“工具→宏→Visul Basic编辑器”命令,在Visul Basic编辑器中选择“插入→添加模块”,在代码窗口输入以下代码:

Sub 打印()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

Call dy

End Sub

Sub dy()

Dim a%, b$, c$, abc$

a = Sheets("Sheet2").Cells(19, 2).Value

  评论这张
 
阅读(9976)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018