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

00锋刃00 · 发表于 2013-12-30 21:30

试试看看。。。

yanny2 · 发表于 2013-12-31 11:49

本帖最后由 yanny2 于 2013-12-31 12:10 编辑

lhdcxz 发表于 2013-12-30 17:53
你打开看看。还有“链接”？怎么一开始就出现错误？还无法到这个模块呢。我是2003版本，可能无法调试。

哦，我的是2010版的。不知道代码应用上，10版和03版语法是不是不一样呢？
我可以打开啊，然后其它都运行正常，就是运行到那个call photo处就显示参数不可选。所以，感觉应该是那个路径的设置吧。但要怎么设置呢？是不是因为panme不是在sheet2的，而我的分类项在sheet2，而造成混乱了呢？那可不可以像pname一样做一个分类项的代名呢？

材料检索系统2003版.zip (180.96 KB, 下载次数: 60) 我加入了我的数据。其实应该就是我的那个代码路径修改有问题。附件我用你的表修改，保存了还是03版的。

lhdcxz · 发表于 2013-12-31 14:24

本帖最后由 lhdcxz 于 2013-12-31 14:34 编辑

你的 Call photo(Sheet3.Range(Cells(i + 10, 28 + j).Value), Sheet2.Cells(2, nn)) 是2个参数
而你改的 Sub photo(reg As Range, iRow As Single, pname As String) ''把pname相片放到reg 是3个参数
所以出现错误。
而且，既然iRow作为子程序入口参数（iRow As Single也不对，应该是 As Integer 或者As  Long）
那么就不能再子程序里面赋值 iRow = 2...
  With Sheet2
  For iRow = 2 To .Cells(65536, 1).End(xlUp).Row 错误：改变了原始参数的值（iRow只能引用）

yanny2 · 发表于 2013-12-31 15:46

{:soso_e127:}汗一个。
那我应该要怎么表达，那个路径好呢？如果不用子程序，而是参考pname一样，那个路径应该怎样写比较好呢？

lhdcxz · 发表于 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和更改任何代码。除原始数据输入（或者拷贝）之外，全部是“傻瓜式操作”。
新人最好仔细看懂说明，再按照按钮操作顺序用我的模拟数据试用几次。

lhdcxz · 发表于 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))

lhdcxz · 发表于 2014-1-1 11:53

本帖最后由 lhdcxz 于 2014-1-2 10:09 编辑

悠哉游哉发表于 2013-12-30 12:32
希望在每张证件里加入统一的背景，请问应该怎么设置？

看看168楼的附件

lhdcxz · 发表于 2014-1-1 17:39

本帖最后由 lhdcxz 于 2014-1-2 09:59 编辑

再次增加功能：可以在证件表格设置背景图片。
本楼附件无法编辑删除，允许选择多种图片作为背景的附件在楼下168楼

自动形成单张证件或表格：自定义版式、自选项目、可有相片、可并排、可有背景.rar (368.88 KB, 下载次数: 267)

lhdcxz · 发表于 2014-1-2 09:58

允许选择多种格式的图片作为背景的附件。

自动形成单张证件或表格：自定义版式、自选项目、可有相片、可并排、可有背景.rar (399.19 KB, 下载次数: 359)

悠哉游哉 · 发表于 2014-1-3 08:55

lhdcxz 发表于 2014-1-2 09:58
允许选择多种格式的图片作为背景的附件。

下来学习一下

		自动登录	找回密码
密码			免费注册

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

评分

评分