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

SSJJWW · 发表于 2010-4-13 11:54

本人结合王昌盛和龙逸凡的银行对帐程序,综合了他们的优点,进行了部分调整和美化,与大家分享。感谢王昌盛和龙逸凡。

在11楼上传了修正后的程序,进行了部分修正
大家可直接下19楼和20楼改进后的对帐程序，改进后的程序对数据量较多时间也可得心应手（2万行记录自动勾对19楼仅需6分钟365秒时间，20楼的程序运行时间在80秒（13日晚进行局部调整），一对多模快尚在研究中）

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

飞云楼主 · 发表于 2010-4-13 12:03

简单明了。收下。谢了。

FXSHENG · 发表于 2010-4-13 12:06

我也喜欢,感谢分享!

lb_bn · 发表于 2010-4-13 12:09

很强大啊,谢谢楼主分享.

zhc19620430 · 发表于 2010-4-13 12:20

不错不错呀，学习。

execl · 发表于 2010-4-13 21:18

谢谢楼主分享

JLF2003 · 发表于 2010-4-13 21:50

不错！收下了！谢谢！

donghua200 · 发表于 2010-4-13 21:59

收下了！收下了！

AVEL · 发表于 2010-4-14 21:35

还记得当时看到龙逸凡的银行对账之后

我都为之一振。呵呵，看到楼主这个觉得好熟悉。。。

SSJJWW · 发表于 2010-4-19 08:43

对原对帐程序进行了修正:
修正内容如下:
1,修正了调节表的字体变化的问题,锁定为12号字体
2,修正了"减：银行已付，企业未付：","减：企业已付，银行未付：","调整后（企业银行存款）日记账余额"|和"调整后（银行对账单）日记账余额"行的着色问题
3,修正"【轻松对账快乐工作】","打印日期："等的字体锁定为12号
4,将调节表不平衡改为先进行判断,如果不平衡就允许结帐.
5,锁定行高

第4点修正需要修改一下：
原程序:
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

[ 本帖最后由 SSJJWW 于 2010-4-21 12:28 编辑 ]

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

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