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

yanny2

材料检索系统2003版.zip (186.19 KB, 下载次数: 114)

2014-1-13 11:59 上传

点击文件名下载附件

最近年底，忙了一段时间。老师，我改了代码了，可是说“方法range作用于对象worksheet时失败”哦。我K列是下级文件夹名。不搞下下级了。只加一级都感觉好难啊。

lhdcxz

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类型的图片，你存放图片就应该符合这个要求。

lhdcxz

新增：选择形成符合财务要求的黑红人民币大写数字。
自动形成连续单张独立表格：自定义版式、自选项目、可有相片、可并排、可有背景、可财务大写.zip (408.35 KB, 下载次数: 858)

2014-1-22 19:18 上传

点击文件名下载附件

hersey_jhh

谢谢，前辈的分享，真是及时雨，这就下载。{:soso_e163:}

jiangdong110

谢谢分享，好东西！

hersey_jhh

前辈正在研究，可是为什么每次我打开，我电脑会死机？

lhdcxz

hersey_jhh 发表于 2014-2-12 11:48
前辈正在研究，可是为什么每次我打开，我电脑会死机？

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

hersey_jhh

lhdcxz 发表于 2014-2-12 15:14
新人须知：（旧人略过）
1、我的附件都是在2003版本下单机调试通过的，没有在其他高版本上调试过（除开宏 ...

已经搞定，谢谢前辈！就是还有个需求，怎样在现有的基础上，自动生成单据不覆盖以前的单据。如果我选择全部生成，速度会很慢；另外如果选择选择性生成，就会把之前生成的单据覆盖掉。

lhdcxz

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

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

hersey_jhh

lhdcxz 发表于 2014-2-13 10:28
形成的东西不是原始数据只是供打印用的，所以没有保存的必要。你自己新建一个工作簿或者添加一个工作表， ...

好的，谢谢
我现在做的插入图片的部分，除了您说的，把图片放在同一个文件夹，格式为jpg的格式，清单里面的项目名称含有相片字样，另外还有什么要求吗？我目前实验失败，转出来的单证没有图片只有“本文件找不到字样”，不知道哪里出问题了？谢谢