[已解决]求助凭证批量打印问题

zjdh · 发表于 2012-6-17 09:17

lgpoo 发表于 2012-6-17 09:09
可能要将原来金额 *100 来取长度

对！我忽视了。

凭证批量打印.rar (14.29 KB, 下载次数: 42)

zjdh · 发表于 2012-6-17 09:32

If .Range("B13").End(3)(2).Row = 5 Then e = 3
这个End（3）=END（xlUp)
(2)表示下一（行）单元

lgpoo · 发表于 2012-6-17 10:33

zjdh 发表于 2012-6-17 09:32
If .Range("B13").End(3)(2).Row = 5 Then e = 3
这个End（3）=END（xlUp)
(2)表示下一（行）单元
...

神一样的 “zjdh” 啊我赞美你，你太伟大太无私了可以加你QQ么

zsd5237 · 发表于 2012-6-17 15:45

所以代码要修改，数据8000，实际上应按8000.00拆分，中间还有一个小数点，否则必然是错误的。

zjdh · 发表于 2012-6-17 20:09

zsd5237 发表于 2012-6-17 15:45
所以代码要修改，数据8000，实际上应按8000.00拆分，中间还有一个小数点，否则必然是错误的。

你先试了再发言！！

zsd5237 · 发表于 2012-6-17 21:33

zjdh 发表于 2012-6-17 09:17
对！我忽视了。

对不起，我没注意到11楼已修正了。

lgpoo · 发表于 2012-6-27 08:22

zjdh 发表于 2012-6-15 15:44
你连一个标准样张都没提供！
合计数据就不要打印啦？

老师您好，您上次帮我做过一个凭证批量打印的代码的
现在又出现了一点小问题，您能不能帮我看看

e = 2
                  If .Range("B13").End(3)(2).Row = 5 Then e = 3
                  .Range("B13").End(3)(e) = Range("E" & i)
                  .Range("C13").End(3)(e) = Range("F" & i)

为什么要End(3)后面有偏移量2  和  3 的区别  为什么要偏移呢

我后来又加了一栏  明细科目，就是红色字体部分，但是有时候会出现没有明细科目的问题，这是为什么呢？
求解

zjdh · 发表于 2012-6-27 18:36

不是我的宏出现了问题！是你的修改不对！！

记账凭证登记表试用版6.27.rar (29.07 KB, 下载次数: 44)

syt188702 · 发表于 2012-6-27 18:45

zjdh 发表于 2012-6-27 18:36
不是我的宏出现了问题！是你的修改不对！！

http://www.excelpx.com/thread-249476-1-1.html
老师好，能否看看这个求助，有点同楼主的打印相同

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