财务处理系统V6.0改进版!

zhaoqiang_

谢谢!

另外,我发现退出时特慢,代码能改进一下吗?

第三杯茶

以下是引用zhaoqiang_在2005-6-16 0:56:00的发言：

谢谢!

另外,我发现退出时特慢,代码能改进一下吗?

那是文件大的原因吧,我好不知道怎么做,不好意思!

xxiaoa

不能正常解压了，是不是还缺一个文件？

第三杯茶

以下是引用xxiaoa在2005-6-18 8:51:00的发言：

不能正常解压了，是不是还缺一个文件？

你把三个文件都下载了吗?不少文件的!

wingfreely

你的东东做得很精致，谢谢你，对我帮助很大

rubby815

和一般软件差不多，那我还要软件干什么？楼主真是太棒了。

canicula

高人哪，pf

第三杯茶

稍加改进,可实现明细帐的同步,别忘了表"凭证信息汇总"里的第二个图标同时作废不用:

Sub 导入汇总表() Dim k As Long, c As Range If Sheets("凭证信息录入").Cells(16, 8) = Sheets("凭证信息录入").Cells(16, 9) Then If MsgBox("是否导入凭证信息汇总表?", vbYesNo) = vbNo Then Exit Sub

With Sheets("凭证汇总总表") '以下代码前带点的都是对【凭证汇总总表】操作 Sheets("凭证汇总总表").Unprotect Password:="GYX" k = .[D65536].End(xlUp).Row + 1 .Cells(k, 1) = [I2] .Cells(k, 2) = DateSerial([C2], [d2], [e2]) .Cells(k, 3) = [a5] .Cells(k, 9) = [f11] .Cells(k, 10) = [i11] For Each c In [h5:h10] If c <> "" Then .Cells(k, 4) = c.Offset(0, -6) .Cells(k, 5) = c.Offset(0, -5) .Cells(k, 6) = c.Offset(0, -4) .Cells(k, 7) = c k = k + 1 ElseIf c.Offset(0, 1) <> "" Then .Cells(k, 4) = c.Offset(0, -3) .Cells(k, 5) = c.Offset(0, -2) .Cells(k, 6) = c.Offset(0, -1) .Cells(k, 8) = c.Offset(0, 1) k = k + 1 End If Next Sheets("凭证汇总总表").Protect Password:="GYX" End With With Sheets("凭证信息汇总") '以下代码前带点的都是对【凭证信息汇总】操作 Sheets("凭证信息汇总").Unprotect Password:="GYX" k = .[D65536].End(xlUp).Row + 1 .Cells(k, 1) = [I2] .Cells(k, 2) = DateSerial([C2], [d2], [e2]) .Cells(k, 3) = [a5] .Cells(k, 9) = [f11] .Cells(k, 10) = [i11] For Each c In [h5:h10] If c <> "" Then .Cells(k, 4) = c.Offset(0, -6) .Cells(k, 5) = c.Offset(0, -5) .Cells(k, 6) = c.Offset(0, -4) .Cells(k, 7) = c k = k + 1 ElseIf c.Offset(0, 1) <> "" Then .Cells(k, 4) = c.Offset(0, -3) .Cells(k, 5) = c.Offset(0, -2) .Cells(k, 6) = c.Offset(0, -1) .Cells(k, 8) = c.Offset(0, 1) k = k + 1 End If Next Sheets("凭证信息汇总").Protect Password:="GYX" End With If MsgBox("你确认凭证信息已导入信息汇总表吗?", vbYesNo) = vbNo Then Exit Sub Range("A5:B10,D5:E10,G5:G10,H5:I10,I11").ClearContents Range("A5").Select Else MsgBox "借货不平,请进行凭证的审核!", 1 + 64, "系统提示" End If End Sub

zcj005

不能自行添加明细科目很懊恼的

第三杯茶

以下是引用zcj005在2005-6-22 21:07:39的发言：

不能自行添加明细科目很懊恼的

是的,我也正在考虑这个问题,希望能得以改进,只是近期没有时间!希望高手能帮忙!