关于会计，有序时账生成会计凭证

d白菜

“有序时账生成会计凭证.RAR”是本站鱼东东大侠的作品，我本想对照修改一下代码达成自己的目的，无奈水平不够，没能看懂他的代码，无从修改 ，恳请大侠们帮忙。
存在的问题：一是序时账格式略有不同，原作品中的序时账每一行都有时间，我这个序时账只有凭证第一行有时间；二是凭证编号格式略有不同，原作品凭证编号用短横线，现序时账中凭证编号用下横线；三是凭证模板格式也略有不同，我这个凭证模板还多了金额大写合计。
目的：目的与鱼东东大侠作品是一致的，依据“复件 最后一点小问题1.rar”提供的序时账，按凭证模板生成会计凭证。

d白菜

路过的人不少，都不知道怎么解决吗？帖子要沉了，自己顶一下。

d白菜

唉！再顶一下，真的没人看懂吗？

wj2368

.................................

wj2368

d白菜 发表于 2016-2-18 14:13
唉！再顶一下，真的没人看懂吗？

...........................

d白菜

非常感谢wj2368的无私帮助，后学又发现几个问题，不知是否有办法解决，预期达到效果详见附件。
1.凭证号数，如“记_1”实际生成凭证编号为“记1”，“记”为凭证种类，“1”为凭证序号。“记”和“1”分属前后两个单元格。只有一张凭证时，序号后不带类似“-1/1”分号。
2.“附件数”,在序时账中没有提供，可以默认为“0”，如果能预留字段取值更好。
3.分成多张的凭证，如“记_5”实际生成凭证编号为“记5-1/3”、“记5-2/3”、“记5-3/3”，“5”为凭证序号。“记”和“5-1/3”、“5-2/3”、“5-3/3”分属前后两个单元格。“5-1/3”的借、贷方小写合计为该凭证内借、贷方小写合计，“5-2/3”借、贷方小写合计为“5-1/3”和“5-2/3”借、贷方发生额的小写合计，依此类推。不是多页凭证的最后一张凭证时合计大写金额栏始终为“空”。最后一张如“5-3/3”借贷方合计平衡时，“合计”栏填上相应的大写金额。

wj2368

d白菜 发表于 2016-2-20 23:58
非常感谢wj2368的无私帮助，后学又发现几个问题，不知是否有办法解决，预期达到效果详见附件。
1.凭证号数 ...

。。。。。。。。。。。。。。。

d白菜

wj2368 发表于 2016-2-23 09:14
。。。。。。。。。。。。。。。

生成的凭证中，附件张数是怎么出来的呢？

wj2368

d白菜 发表于 2016-2-23 11:18
生成的凭证中，附件张数是怎么出来的呢？

怎么给你说呢？？？？？

d白菜

wj2368 发表于 2016-2-23 12:33
怎么给你说呢？？？？？

研究了一下，附件张数等于该号凭证涉及的科目名称个数，如果以汇总记账凭证来计数也符合逻辑，只是这会增加工作量。我把.Cells(10, "c").Value = totalEnclosure 改成 .Cells(10, "c").Value = 0 ，附件张数就变成 0了，达到我自己的要求。