Excel 添加银行存款日记账程序

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

步骤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:单击“保存”按钮,将输入的代码保存起来。此时,在银行存款日记账表中,当输入日期、摘要、存入、取出后,系统会自动计算余额。

Excel 创建银行存款日记账表

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

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

具体创建操作步骤如下。

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

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

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

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

Excel 将“现金日记账表”并另存为“银行存款日记账”

在“现金日记账表格”的基础上,修改表格格式后,另存为“银行存款日记账”。具体操作方法如下所示。

步骤01:右击列标E,从弹出的快捷菜单中单击“删除”命令,删除“对应科目”列,如图3-68所示。

图3-68 删除“对应科目”列

步骤02:右击列标D,从弹出的快捷菜单中单击“插入”命令,插入新列,如图3-69所示。重复此操作,在“摘要”栏左侧插入两列。

图3-69 插入列

步骤03:合并单元格D3:E3,然后分别在D3、D4、E4中输入表格栏目“结算方式”“类”“号码”,如图3-70所示。

图3-70 输入表格栏目

步骤04:选中单元格A1,将单元格中的“现金”更改为“银行存款”,如图3-71所示。

图3-71 修改表格标题

步骤05:在Excel窗口中单击“文件”菜单中的“另存为”命令,打开“另存为”对话框。选择好保存位置后,在“文件名”框中输入“银行存款日记账.xlsx”,然后单击“保存”按钮,如图3-72所示。

步骤06:此时工作簿的名称会更改为“银行存款日记账”,如图3-73所示。

图3-72 “另存为”对话框

图3-73 另存为新工作簿