欢迎来到天天文库
浏览记录
ID:51659620
大小:388.84 KB
页数:10页
时间:2020-03-27
《项目二日记账管理系统.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、项目二日记账管理系统学习目标了解日记账的有关基本概念掌握如何建立现金日记账掌握如何建立现金日报表掌握如何建立银行存款日记账掌握如何进行银行对账工作思路工作任务一现金日记账设置现金日记账格式现金日记账年月日凭证编号类别摘要借方金额贷方金额余额工作任务二现金日报表工作任务三银行存款日记账银行对账单工作任务四利用宏进行银行对账Sub对账()DimLineNo1AsInteger'银行存款日记账初始行号LineNo1=5DimSheet1AsWorksheetSetSheet1=Worksheets("银行存款日记账")DimSh
2、eet2AsWorksheetSetSheet2=Worksheets("银行对帐单")Sheet1.Columns("L:L").ClearContentsSheet2.Columns("H:H").ClearContentsDoWhileSheet1.Cells(LineNo1,11).Value<>""'余额数据不为空jf=Sheet1.Cells(LineNo1,9).Value'借方金额df=Sheet1.Cells(LineNo1,10).Value'贷方金额lineno2=6'银行对账单初始行号Ifjf<>"
3、"ThenDoWhileSheet2.Cells(lineno2,5).Value<>""OrSheet2.Cells(lineno2,6).Value<>""'借方或者贷方金额不为空Ifjf*1=Sheet2.Cells(lineno2,6).Value*1AndSheet2.Cells(lineno2,8).Value<>"√"Then'如果金额相等并且还没有对过账Sheet1.Cells(LineNo1,12).Value="√"Sheet2.Cells(lineno2,8).Value="√"ExitDoEndIf
4、lineno2=lineno2+1LoopElseDoWhileSheet2.Cells(lineno2,5).Value<>""OrSheet2.Cells(lineno2,6).Value<>""'借方或者贷方金额不为空Ifdf*1=Sheet2.Cells(lineno2,5).Value*1AndSheet2.Cells(lineno2,8).Value<>"√"Then'如果金额相等并且还没有对过账Sheet1.Cells(LineNo1,12).Value="√"Sheet2.Cells(lineno2,8).
5、Value="√"ExitDoEndIflineno2=lineno2+1LoopEndIfLineNo1=LineNo1+1LoopEndSub
此文档下载收益归作者所有