求一个输入凭证内容，生成日记账的excel表

武松打鼓

清风竹- 发表于 2015-5-14 23:05
增加两行语句。

我只在表一中添加了几行不用的信息，只调整了“保存信息表”的列的顺序，怎么就不运行代码了呢？







传阅单0515.zip (19.46 KB, 下载次数: 109)

2015-5-15 08:57 上传

点击文件名下载附件

清风竹-

武松打鼓 发表于 2015-5-15 08:56
我只在表一中添加了几行不用的信息，只调整了“保存信息表”的列的顺序，怎么就不运行代码了呢？

修改完毕，请测试。

武松打鼓

清风竹- 发表于 2015-5-15 18:26
修改完毕，请测试。

如果要求来文编号和缓急程度单元格为空白也可保存，该改哪句代码呢

清风竹-

武松打鼓 发表于 2015-5-15 18:56
如果要求来文编号和缓急程度单元格为空白也可保存，该改哪句代码呢

Sub 登记保存() '在sheet3中也有一个宏
Dim arr(), brr
xh = [i2]
arr = Array(xh, [c4], [c3], [e3])'…………

     For i = 0 To 3'………      
……………………………………………………
或
Sub 登记保存() '在sheet3中也有一个宏
Dim arr(), brr
xh = [i2]
arr = Array(xh, [c4], [c3], [e3], [g3], [i3])

     For i = 0 To 3'…………
…………

bpw0258

学习了,谢谢分享!

武松打鼓

清风竹- 发表于 2015-5-12 20:20
本文件只对借、贷两行一组的记 账凭证数据有效，有什么问题提出来，再修改。

高手给改改：要求凭单有几行，流水账就登记几行

清风竹-

武松打鼓 发表于 2015-6-2 21:42
高手给改改：要求凭单有几行，流水账就登记几行

请测试一下。

武松打鼓

清风竹- 发表于 2015-6-2 22:17
请测试一下。

如果原来流水账里面的凭单号为1的下面有数据，重新填报1号凭单的话，并不会覆盖原来的，求改进。

清风竹-

武松打鼓 发表于 2015-6-5 22:26
如果原来流水账里面的凭单号为1的下面有数据，重新填报1号凭单的话，并不会覆盖原来的，求改进。

请测试一下。

武松打鼓

清风竹- 发表于 2015-6-6 10:00
请测试一下。

不错，不过发现代码和上一个完全不同呢