标签：银行存款日记账

在添加完现金日记账程序后，我们接着进行添加银行存款日记账程序，具体操作步骤如下所示。

步骤01：切换至“银行存款日记账”工作表，在“开发工具”里选择“Visual Basic编辑器”命令。

步骤02：在弹出的Visual basic编辑对话框中，输入如图10-27所示的代码。具体代码如下所示：

Private Sub WorkSheet_change(ByVal Target As Range)
Dim iRow, iCol, iRow_dn As Integer
Dim rng1, rngl2, rng, cel As Range
iRow = Target.Row
iCol = Target.Column
iRow_dn = [A65536].End(xlUp).Row        'A列的最后一行
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    If iRow >= 3 And iCol = 2 And Cells(iRow, iCol) <> "" Then
        Cells(iRow, 1) = Date        '在第一列填写日期
        ElseIf iRow >= 3 And iCol = 2 And Cells(iRow, iCol) = "" Then
                Range(Cells(iRow, 1), Cells(iRow, 5)).ClearContents
        ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow = iRow_dn Then
            Total1 = Application.WorkSheetFunction.Sum(Range("C3:C" & iRow))
            Total1 = Application.WorkSheetFunction.Sum(Range("D3:D" & iRow))
            Cells(iRow, 5) = Total1 - Total2        '在第5列运算
        ElseIf iRow >= 3 And (iCol = 3 Or iCol = 4) And iRow <> iRow_dn Then
            Set rng = Range("E" & iRow & " :E" & iRow_dn)
            For Each cel In rng
                Set rng1 = Range("C3:C" & cel.Row)
                Set rng2 = Range("D3:D" & cel.Row)
                Total1 = Application.WorkSheetFunction.Sum(rng1)
                Total2 = Application.WorkSheetFunction.Sum(rng2)
                cel.Value = Total1 - Total2
        Next cel
End If
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

图10-27　输入银行存款日记账程序代码

步骤03：单击“保存”按钮，将输入的代码保存起来。此时，在银行存款日记账表中，当输入日期、摘要、存入、取出后，系统会自动计算余额。

银行存款日记账是按照与银行存款收入相对应的贷方科目以及与银行存款支出相对应的借方科目分别设置专栏，以序时地、分类地反映与银行存款收支有关的经济业务事项。

根据银行存款收、付款凭证，将与银行存款账户对应的贷方账户的金额或借方账户的金额登记在“应贷科目”栏或“应借科目”栏相应账户专栏和“收入合计”栏或“支出合计”栏内，既表示银行存款的增加或减少，也表示与银行存款账户对应账户的减少或增加；“余额栏”（每日所记最后一笔经济业务的行）填写每日的现金（银行存款）余额。

具体创建操作步骤如下。

步骤01：新建工作表，并将其命名为“银行存款日记账”。

步骤02：输入相应的标题题目，输入“日期”“摘要”“收入”“支出”“余额”等标志项，调整文本内容的对齐方式，调整合适的文本格式。

步骤03：选择标志项内容，设置合适的底色。最终效果如图10-2所示。

图10-2　创建“银行存款日记账”工作表