《项目二日记账管理系统.ppt》由会员分享,可在线阅读,更多相关《项目二日记账管理系统.ppt(10页珍藏版)》请在金锄头文库上搜索。
1、项目二项目二 日记账管理系统日记账管理系统l学习目标l了解日记账的有关基本概念l掌握如何建立现金日记账l掌握如何建立现金日报表l掌握如何建立银行存款日记账l掌握如何进行银行对账工作思路工作思路工作任务一工作任务一 现金日记账现金日记账 l设置现金日记账格式现金日记账 年月日凭证编号类别摘要借方金额贷方金额余额工作任务二工作任务二 现金日报表现金日报表工作任务三工作任务三 银行存款日记账银行存款日记账银行对账单银行对账单工作任务四工作任务四 利用宏进行银行对账利用宏进行银行对账Sub 对账()Dim LineNo1 As Integer 银行存款日记账初始行号LineNo1 = 5Dim She
2、et1 As WorksheetSet Sheet1 = Worksheets(银行存款日记账)Dim Sheet2 As WorksheetSet Sheet2 = Worksheets(银行对帐单)Sheet1.Columns(L:L).ClearContentsSheet2.Columns(H:H).ClearContentsDo While Sheet1.Cells(LineNo1, 11).Value 余额数据不为空 jf = Sheet1.Cells(LineNo1, 9).Value 借方金额 df = Sheet1.Cells(LineNo1, 10).Value 贷方金额 l
3、ineno2 = 6 银行对账单初始行号 If jf Then Do While Sheet2.Cells(lineno2, 5).Value Or Sheet2.Cells(lineno2, 6).Value 借方或者贷方金额不为空 If jf * 1 = Sheet2.Cells(lineno2, 6).Value * 1 And Sheet2.Cells(lineno2, 8).Value Then 如果金额相等 并且 还没有对过账 Sheet1.Cells(LineNo1, 12).Value = Sheet2.Cells(lineno2, 8).Value = Exit Do End
4、 If lineno2 = lineno2 + 1 Loop Else Do While Sheet2.Cells(lineno2, 5).Value Or Sheet2.Cells(lineno2, 6).Value 借方或者贷方金额不为空 If df * 1 = Sheet2.Cells(lineno2, 5).Value * 1 And Sheet2.Cells(lineno2, 8).Value Then 如果金额相等 并且 还没有对过账 Sheet1.Cells(LineNo1, 12).Value = Sheet2.Cells(lineno2, 8).Value = Exit Do End If lineno2 = lineno2 + 1 Loop End If LineNo1 = LineNo1 + 1LoopEnd Sub