ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: lhdcxz

分享:自动形成连续单个证件或表格:自定义版式、自选项目、可有相片、可并排

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-1 11:17 | 显示全部楼层
本帖已被收录到知识树中,索引项:模板和开源系统
本帖最后由 lhdcxz 于 2014-1-2 10:09 编辑

再次增加功能:可以在证件表格设置背景图片。
现在重新编辑不能改动附件??只好重新发的附件在168 楼

(本楼的附件也没有问题,只是168楼的对话框更详细)

新人须知:(旧人略过)
1、我的回复附件都是在2003版本下单机调试通过的,没有在其他高版本上调试过(除开宏表函数之外,一般应该没有问题)。
2、我的回复附件最好不要直接打开运行,否则也许会因为在当前文件夹里面找不到你的文件而出现错误(这也是一些人使用我的附件失败的原因)。
   应该解压到某个文件夹里面(其他在操作的时候要访问的文件也放到这个文件夹里面)解压后再运行。
  (建议新人把附件先“另存为”在桌面,即C:\Users\Administrator\Desktop,解压后再运行)
3、回复附件大多数含VBA代码。如果你没有操作过含VBA代码(也称为“宏”)的Excel文件,
   就先要在窗口工具栏的“工具”--“宏”--“安全性”选择“中(或者低)”。
   如果你的“宏、安全性选择的是“中”,打开运行的时候要“启用宏”。
新人特别注意第2条的要求。不需要懂VBA和更改任何代码。除原始数据输入(或者拷贝)之外,全部是“傻瓜式操作”。
新人最好仔细看懂说明,再按照按钮操作顺序用我的模拟数据试用几次。

自动形成单张证件或表格:自定义版式、自选项目、可有相片、可并排、可有背景.rar

365.45 KB, 下载次数: 280

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-1 11:41 | 显示全部楼层
本帖最后由 lhdcxz 于 2014-1-1 17:46 编辑
yanny2 发表于 2013-12-31 15:46
汗一个。
那我应该要怎么表达,那个路径好呢?如果不用子程序,而是参考pname一样,那个路径 ...


模块里面定义子程序
Sub photo(reg As Range, iRow As String, pname As String) ''把pname相片放到reg
  FilPath = ThisWorkbook.Path & "\pic\" & iRow & "\" & pname & ".jpg"
  If Dir(FilPath) <> "" Then '找到
下面不动.......
End Sub

调用的时候,如果你的Sheet2的K列是本文件夹的pic文件夹的下级文件夹的名字的话,就
Call photo(Sheet3.Range(Cells(i + 10, 28 + j).Value),Sheet2.Range("K" &  j).Value,Sheet2.Cells(2, nn))
如果你的Sheet2的J列是本文件夹的pic文件夹的下级文件夹名字,K列是下下级文件夹的名字的话,就
Call photo(Sheet3.Range(Cells(i + 10, 28 + j).Value),Sheet2.Range("J" &  j).Value & "\" & Sheet2.Range("K" &  j).Value,Sheet2.Cells(2, nn))

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-1 11:53 | 显示全部楼层
本帖最后由 lhdcxz 于 2014-1-2 10:09 编辑
悠哉游哉 发表于 2013-12-30 12:32
希望在每张证件里加入统一的背景,请问应该怎么设置?


看看168楼的附件

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-1 17:39 | 显示全部楼层
本帖最后由 lhdcxz 于 2014-1-2 09:59 编辑

再次增加功能:可以在证件表格设置背景图片。
本楼附件无法编辑删除,允许选择多种图片作为背景的附件在楼下168楼
自动形成单张证件或表格:自定义版式、自选项目、可有相片、可并排、可有背景.rar (368.88 KB, 下载次数: 259)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-2 09:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
允许选择多种格式的图片作为背景的附件。
自动形成单张证件或表格:自定义版式、自选项目、可有相片、可并排、可有背景.rar (399.19 KB, 下载次数: 354)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-13 16:23 | 显示全部楼层
本帖最后由 lhdcxz 于 2014-1-13 16:29 编辑
yanny2 发表于 2014-1-13 12:02
最近年底,忙了一段时间。老师,我改了代码了,可是说“方法range作用于对象worksheet时失败”哦。我K列是下 ...


你说你的文件夹是在K列,但是你调用的时候却写的是J列啊?
你在代码里面查找一下"photo",看看所有的与"photo"有关的地方是不是都是对的。例如
Call photo(Sheet3.Range(Cells(i + 10, 28 + j).Value), Sheet2.Range("J" & j).Value, Sheet2.Cells(2, nn))
就错了。
注意这句话:FilPath = ThisWorkbook.Path & "\pic\" & iRow & "\" & pname & ".jpg"
它的意思是“取得本文件夹下面的 pic 文件夹下面的iRow 文件夹里面的名字叫pname 的jpg类型的图片,你存放图片就应该符合这个要求。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-1-22 19:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
新增:选择形成符合财务要求的黑红人民币大写数字。
自动形成连续单张独立表格:自定义版式、自选项目、可有相片、可并排、可有背景、可财务大写.zip (408.35 KB, 下载次数: 852)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-2-12 15:14 | 显示全部楼层
hersey_jhh 发表于 2014-2-12 11:48
前辈正在研究,可是为什么每次我打开,我电脑会死机?

新人须知:(旧人略过)
1、我的附件都是在2003版本下单机调试通过的,没有在其他高版本上调试过(除开宏表函数之外,一般应该没有问题)。
2、我的压缩附件如果包括文件夹,不能直接打开运行。因为需要访问其他文件,否则会因为在当前文件夹里面找不到文件而出现错误(这也是一些人使用我的附件失败的原因)。
   应该解压到某个文件夹里面(其他在操作的时候要访问的文件也放到这个文件夹里面)解压后再运行。
  (建议新人把附件先“另存为”在桌面,即C:\Users\Administrator\Desktop,解压后再运行)
3、回复附件大多数含VBA代码。如果你没有操作过含VBA代码(也称为“宏”)的Excel文件,
   就先要在窗口工具栏的“工具”--“宏”--“安全性”选择“中(或者低)”。
   如果你的“宏、安全性选择的是“中”,打开运行的时候要“启用宏”。
新人特别注意第2条的要求。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-2-13 10:28 | 显示全部楼层
hersey_jhh 发表于 2014-2-13 10:16
已经搞定,谢谢前辈!就是还有个需求,怎样在现有的基础上,自动生成单据不覆盖以前的单据。如果我选择全 ...

形成的东西不是原始数据只是供打印用的,所以没有保存的必要。你自己新建一个工作簿或者添加一个工作表,把形成的原来的东西拷贝过去。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-2-13 20:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 lhdcxz 于 2014-2-13 20:40 编辑
hersey_jhh 发表于 2014-2-13 11:28
好的,谢谢
我现在做的插入图片的部分,除了您说的,把图片放在同一个文件夹,格式为jpg的格式,清单里面 ...


你把打印用的东西生成以后再保存,其他电脑也许可以用(我没有试过)。
或者你把全部东西都给另外的电脑。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 22:59 , Processed in 0.076255 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表