银企轻松对帐程序的改进（对帐程序有重大突破，对帐速度巨大提升）

后生仔

谢谢楼住,正好 在研究

lbl016

简单明了。

FXSHENG

感谢楼主更新.
楼主辛苦!

SSJJWW

结帐的程序需要修改一下:
If Sheet4.Cells(max_h2 + 2, 4) <> "不平衡!差值" & Round(Sheet4.Cells(max_h2 + 1, 4), 2) - Round(Sheet4.Cells(max_h2 + 1, 9), 2) & "元,请检查!" Then
       MS = MsgBox("对不起：调节表不平衡！无法结帐！请您返回检查！！", vbOKOnly + vbInformation, "轻松对账快乐工作")
    Else

中<>号需改成=，原先在测试时忘记改回来了。
即:
If Sheet4.Cells(max_h2 + 2, 4) = "不平衡!差值" & Round(Sheet4.Cells(max_h2 + 1, 4), 2) - Round(Sheet4.Cells(max_h2 + 1, 9), 2) & "元,请检查!" Then
       MS = MsgBox("对不起：调节表不平衡！无法结帐！请您返回检查！！", vbOKOnly + vbInformation, "轻松对账快乐工作")
    Else

提醒一下:
1   在第一次使用时要记住将上月的未达帐也录入进去,以后就不用啦,电脑会自动将找出的未达帐转入下月的
2   在结帐图标下有个期间,那里要输入调节的月份,输入进去后,点结帐后电脑会自动生成一个以此日期为名的备份文件,要记住录入日期
3   本软件如果觉得一步一步操作比较麻烦的话,可以在点自动勾对后,直接运行一对多
4   在点一对多的时候,有可能会出现说"拟勾选的借贷记录不相等,请检查"的提示,不用管它,直接在电脑已自动勾对的项里任选一对勾对标记,将其去掉,点手工勾对即可,然后再运行一次一对多-----手工勾对即可


近日针对一对多的勾对有时会出现不平衡的提示,进行了改进,现在可以进行自动的一对多的勾对了,而不需要多两次
请下改进1

[ 本帖最后由 SSJJWW 于 2010-8-4 09:19 编辑 ]

SSJJWW

对原程序进行一些减肥


今日重新更新一下附件

[ 本帖最后由 SSJJWW 于 2011-1-7 07:52 编辑 ]

leoliu1234

楼主好功力，太佩服

kszcs

对账单，就是NX

SSJJWW

近段时间，对原程序进行提速研究。原有程序在对付一两千笔银企对帐还行，如果数据量大就显得捉襟见肘了，运行起来慢，如果屏蔽刷新的话就象是死机。运行2400笔左右的勾对需要20分钟多，1万笔左右，需要近2小时，非常的慢。因此，本人在研究了一些数组知识后，将原程序的自动勾对模块用了数组进行替换，结果，速度大幅度提升，运行2400笔的勾对，用时84秒。对近2万笔的勾对，用时365秒，6分钟多一点，速度大为提高。以上测试是在未屏蔽刷新的状态下进行的，如果屏蔽则速度更快。考虑到数据量大，屏蔽刷新功能禁止。
原程序中出现的在未屏蔽刷新状态下的闪屏厉害的状况，经过本人改进后，此状况基本消灭，使用者可以在未屏蔽刷新状态下清楚看到程序的运行状况及运行程度。
出现闪屏的现象主要原因在与原程序中自动勾对代码中每勾对一笔，在打上勾对标志后就COPY到记录表中，代码中的Sheet1.Activate是造成闪屏厉害的源头，.每拷一次，就数据表sheet1就激活一次，这样一来，就容易出现闪屏，这次改进，将次代码删除，解决了闪屏现象。
至于一对多模块比较复杂，数组如何替换原代码尚在考虑中。
欢迎有志于银企之间对帐的人士进来探讨如何提速

注意:附件1和附件2要下全才能解压

[ 本帖最后由 SSJJWW 于 2011-3-30 08:13 编辑 ]

zhw79

谢谢分享！

SSJJWW

昨晚对改进后的对帐程序又进行了研究，有了重大的发现：
如果在程序每运行一次勾对-打上勾对标志-复制到记录表中这中模式的状态下，运行速度会受到影响，无疑会减缓自动勾对的速度。
本人换一种角度考虑，如果先进行全部勾对打上标志后，再将勾对后的数据表sheet1全部复制进勾对记录表中，再运行自动排序和删除未勾对的记录，这样一来，速度无疑会大大提高。
程序的照此思路调整后，测试结果果然不出所料，速度有了巨大的提升，2万行的记录勾对仅仅用了70秒中（1分钟多一点），有了本质的飞跃。
至于一对多模块的数组改进，目前尚在研究中。
该如何用数组替换一对多代码，怎么替换速度才能有巨大提升，欢迎有志于这方面研究的人士加入讨论

注意:附件1和附件2要下全方可解压

[ 本帖最后由 SSJJWW 于 2011-4-21 11:09 编辑 ]