|
楼主 |
发表于 2010-4-19 08:43
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
对原对帐程序进行了修正:
修正内容如下:
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 编辑 ] |
|