项目3分类账管理系统.pptVIP

项目三 分类账管理系统的建立 学习目标 了解会计账簿有关基本概念 了解宏的编制 学会用宏建立分类账 工作思路 会计账簿概述 会计账簿的意义与作用 会计账簿是指以会计凭证为依据，在具有专门格式的账页中全面、连续、系统、综合地记录经济业务的簿籍。 会计账簿概述 会计账簿的类型 1. 日记账簿 2. 分类账簿 3. 备查账簿 工作任务一 总分类账的建立 设置总分类账格式 总分类账 利用宏填充科目 ListBox1.Clear Dim Sheet1 As Worksheet Set Sheet1 = Worksheets(总账科目期初余额表) Dim MaxLineNo1 As Integer MaxLineNo1 = Sheet1.UsedRange.Item(Sheet1.UsedRange.Count).Row Dim BeginLineNo1 As Integer BeginLineNo1 = 4 Dim Sheet2 As Worksheet Set Sheet2 = Worksheets(会计凭证表) Dim MaxLineNo2 As Integer MaxLineNo2 = Sheet2.UsedRange.Item(Sheet2.UsedRange.Count).Row Dim BeginLineNo2 As Integer BeginLineNo2 = 4 Dim Code As String Dim LineNo1, LineNo2 As Integer For LineNo1 = BeginLineNo1 To MaxLineNo1 Code = Sheet1.Cells(LineNo1, 1).Value For LineNo2 = BeginLineNo2 To MaxLineNo2 If Code = Sheet2.Cells(LineNo2, 7).Value Then ListBox1.AddItem , ListBox1.ListCount ListBox1.List(ListBox1.ListCount - 1, 0) = Code ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(LineNo1, 2).Value Exit For End If Next Next 利用宏自动生成总分类账 Dim Sheet0 As Worksheet Set Sheet0 = Worksheets(总分类账) Dim LineNo0 As Integer LineNo0 = 6 Dim Sheet1 As Worksheet Set Sheet1 = Worksheets(会计凭证表) Dim MaxLineNo1, LineNo1, BeginLineNo1 As Integer BeginLineNo1 = 4 MaxLineNo1 = Sheet2.UsedRange.Item(Sheet2.UsedRange.Count).Row Dim Code As Integer 科目代号 Code = ListBox1.List(ListBox1.ListIndex, 0) Sheet0.Cells(3, 6).Value = ListBox1.List(ListBox1.ListIndex, 1) Sheet0.Cells(5, 7).Value = =VLOOKUP( Code ,总账科目期初余额表!A4:D94,3,TRUE) Sheet0.Cells(5, 8).Value = =VLOOKUP( Code ,总账科目期初余额表!A4:D94,4,TRUE) Sheet0.Cells(5, 9).Value = =g5-h5 定义变量 Dim 余额 As Double Dim 月 As Integer Dim 日 As Integer Dim 当日借方合计 As Double Dim 当日贷方合计 As Double Dim 当月贷方合计 As Double Dim 当月借方合计 As Double Dim 当年贷方合计 As Double Dim 当年借方合计 As Double Dim 标志 As Boolean 余额 = Sheet0.Cells(5, 9).Value 月 = 0 日 = 0 当日借方合计 = 0 当日贷方合计 = 0 当月借方合计 = 0 当月贷方合计 = 0 当年借方合计 = 0 当年贷方合计 = 0 标志 = Fal