分类：现金和银行存款管理系统

我们在使用Excel 2016的过程中，有时Excel会阻止宏的应用，并且在保存时自动删除文件属性的个人信息。我们可以通过Excel 2016中的信任设置，更改相关的设置。

我们可以进行如下操作设置对宏的信任。

步骤01：单击“文件”菜单，选择“选项”，弹出“Excel选项”对话框。

步骤02：在弹出的“Excel选项”对话框中，选择“信任中心”选项，单击“信任中心设置”按钮，如图10-28所示。

步骤03：在弹出的“信任中心”对话框中，单击“宏设置”选项，单击选中“启用所有宏”单选按钮，再单击“确定”按钮，如图10-29所示。完成设置。

图10-28　选择“信任中心设置”

图10-29　选择“启用所有宏”

对于Excel保存时出现“请注意，您的文档的部分内容可能包含了文档检查器无法删除的个人信息”的对话框，我们可以通过以下操作来去除。

步骤01：单击“文件”菜单，选择“选项”，弹出“Excel选项”对话框。

步骤02：在弹出的“Excel选项”对话框中，选择“信任中心”选项，单击“信任中心设置”按钮，如图10-28所示。

步骤03：在弹出的“信任中心”对话框中，单击“隐私选项”选项，取消“保存时从文件属性中删除个人信息”复选框的选中，单击“确定”按钮，如图10-30所示。完成设置。

图10-30　取消删除个人信息设置

高手支招：隐藏VBA代码

对于所编辑的VBA代码，为了防止别人窃取或随意更改，用户可以对工程代码设置相应的密码，确保其安全性。具体操作步骤如下所示。

步骤01：打开Visual Basic编辑框，在左侧栏里选择要保护的工程，单击“工具”选项卡，在下拉菜单里选择“VBAProject属性”选项。

步骤02：在弹出的“VBAProject–工程属性”对话框里，切换到“保护”选项卡，在“查看工程属性的密码”中输入相应的密码内容，然后单击“确定”按钮，完成对目标工程密码的设定，如图10-31所示。

图10-31　设定VBA工程密码

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

步骤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：切换至“现金日记账”工作表，在“开发工具”里，选择“Visual Basic编辑器”命令，如图10-25所示。

图10-25　选择“Visual Basic”编辑器

步骤02：在弹出的对话框中，输入如图10-26所示的代码。代码如下：

---

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(x1Up).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("C4:C" & iRow))
        Total1 = Application.WorkSheetFunction.Sum(Range("D4: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("C4:C" & cel.Row)
            Set rng2 = Range("D4: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-26　插入现金日记账代码

输入以上代码后，我们可以控制数据的输入和余额的累计计算。如果需要打开“现金日记账”工作表中自动定位到需要输入数据的第一个单元格，还需要输入相关的定位代码。具体代码段如下所示：

---

Private Sub WorkSheet_Active()
ActiveSheet.[B65536].end(xlUp).Offset(1, 0) .Select '打开现金后自动
        '定位到需要输入数据的第一个单元格
End Sub

---

Excel中的宏，通俗来讲，就是实现单一功能或复杂功能的VBA代码的集合。使用宏功能，可以让我们在处理电子表格的时候，仅通过一步操作，就能实现需要通过多步才能完成的操作。

在我们之前创建按钮中，单击时，会弹出无法运行的对话框，这是因为指定的宏还没有创建，禁止访问。为按钮添加指定宏的具体操作步骤如下所示。

步骤01：切换至“主界面”工作表，右击“现金日记账”按钮，选择“指定宏”选项，在弹出的“指定宏”对话框的“位置”下拉列表框中选择“当前工作簿”，如图10-21所示。

图10-21　设置指定宏位置

步骤02：在“指定宏”对话框里单击“新建”按钮，弹出VBA代码框。在代码对话框中的开始语句和结束语句之间输入以下代码：Sheets（“现金日记账”）.Select，如图10-22所示。

图10-22　输入代码

步骤03：单击“保存”按钮，将代码保存起来，当我们再次单击“主界面”中的“现金日记账”按钮时，就会自动跳转到“现金日记账”工作表。

步骤04：为其他表格按钮添加相应的代码，如图10-23所示。全部代码如下所示：

---

Sub 按钮1_Click()
Sheets("现金日记账").Select
End Sub
Sub 按钮2_Click()
Sheets("银行存款日记账").Select
End Sub
Sub 按钮3_Click()
Sheets("主界面").Select
End Sub
Sub 按钮4_Click()
Sheets("主界面").Select
End Sub

---

图10-23　添加全部按钮

添加完毕后，单击“保存”按钮，这时，界面与表之间就可以进行切换操作了。

注意，在我们保存代码时，会弹出“无法在未启用宏的工作簿中保存以下功能”提示对话框，如果单击“是”按钮，那保存文件时会删除相应的宏内容，Excel这样设置导入目的是确保Excel面对未知宏的危险；如果单击“否”，则可以保存成带有宏的Excel.xlms文件。这里选择“否”按钮。

高手支招：隐藏工作表

在Excel 2016中，有些工作表不希望使用者查看和修改。我们可以利用Excel隐藏的功能，把工作表隐藏起来。具体操作步骤如下所示。

步骤01：切换到要保护的工作表，单击“开始”菜单，单击“单元格”按钮，选择“格式”选项。在下拉菜单里选择“隐藏和取消隐藏”中的“隐藏工作表”，即可完成对目标工作表的隐藏，如图10-24所示。

图10-24　隐藏工作表

步骤02：如果想取消隐藏工作表，只需再次执行步骤01操作即可。

设计完界面元素后，我们需要为界面添加ActiveX表单控件命令按钮。

ActiveX控件是插件程序，它们允许播放动画，或帮助执行任务，如在Microsoft Update安装安全更新，因此可以增强用户的浏览体验。ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中主要的技术是组件对象模型（COM）。在有目录和其他支持的网络中，COM变成了分布式COM（DCOM）。

利用这些命令按钮，可以进行管理系统程序的控制。具体操作步骤如下所示。

步骤01：在“主界面”工作表里，选择“开发工具”菜单，单击“插入”按钮，在表单控件里选择“按钮”选项，如图10-17所示。

图10-17　插入表单控件按钮

步骤02：拖动鼠标绘制按钮，此时弹出“指定宏”对话框，在对话框中的“位置”下拉列表框里选择“当前工作簿”，然后单击“确定”按钮，完成按钮的添加，如图10-18所示。

图10-18　设置指定宏

步骤03：右击创建的按钮，选择“编辑文字”选项，输入相应的按钮名称内容。用鼠标拖动按钮边框，调整合适的大小，如图10-19所示。

图10-19　添加“现金日记账”按钮

步骤04：利用相同的方法，添加“银行存款日记账”按钮，在“现金日记账”工作表里添加“返回”按钮，在“银行存款日记账”工作表里添加“返回”按钮，如图10-20所示。

图10-20　添加多个按钮

注意，宏名称和按钮名称要区分开来，宏名称是开发时的类对象名称，而按钮名称是用于显示的名称。

创建系统界面，需要为系统界面添加相应的菜单元素，我们可以利用Excel 2016提供的相应的自选图形功能加以实现。自选图形可以创建美观的文档，甚至应用程序界面。

具体操作步骤如下所示。

步骤01：在“现金和银行存款管理系统”中添加新工作表，并将其命名为“主界面”。

步骤02：切换到“插入”选项卡，单击“插图”按钮，然后单击“形状”按钮，在“矩形”选项里选择第一个“矩形”形状，如图10-6所示。此时，鼠标变为十字形状，拖动鼠标，可绘制合适大小的图形，如图10-7所示。

图10-6　选择“矩形”形状

图10-7　绘制主界面图形

步骤03：切换到“格式”菜单，在“形状样式”组中单击“形状填充”按钮，然后选择“纹理”选项，如图10-8所示。选择合适的纹理，效果如图10-9所示。

图10-8　选择纹理填充

图10-9　纹理填充效果

步骤04：接下来为图形添加阴影效果。在“格式”选项里单击“形状效果”按钮，选择“阴影”选项中的“内部阴影”，如图10-10所示。这样可使图形更有立体感。

图10-10　添加“内部阴影”

步骤05：切换到“插入”菜单，单击“文本框”按钮，选择“横排文本框”选项，在图形上拖动鼠标绘制合适大小的文本框，并输入相应的文本内容，调整合适的字体大小，如图10-11所示。

图10-11　调整文本框

步骤06：选中文本框，切换到“格式”菜单，单击“形状填充”按钮，选择“无填充颜色”选项，如图10-12所示。

图10-12　选择“无填充颜色”

步骤07：切换到“插入”菜单，单击“文本”按钮，选择“艺术字”，如图10-13所示。在艺术字选项中选择一个合适的格式，在艺术字文本框里输入相应的文本内容，调整合适的字体大小与位置，效果如图10-14所示。

步骤08：切换至“插入”菜单，单击“插图”按钮，然后单击“图片”选项，如图10-15所示。在弹出的“插入图片”对话框中，在相应的本地位置里添加公司图标图片，调整合适的大小与位置，效果如图10-16所示。

图10-13　选择插入“艺术字”

图10-14　艺术字效果

图10-15　插入图片

图10-16　插入公司图标效果

要建立现金和银行存款管理系统，需要由管理员进行管理，我们可以将“管理员表”添加到系统表格里，以方便对系统的管理。具体创建操作步骤如下。

步骤01：新建工作表，并将其命名为“管理员表”。

步骤02：输入“管理员姓名”“密码”等标志项，调整合适的文本格式与底色，如图10-3所示。

图10-3　创建“管理员表”

高手支招：添加开发者工具

我们在进行现金和银行系统存款管理系统设计或其他系统设计时，需要利用“开发者工具”进行开发。“开发者工具”为用户提供了多种开发功能，但是初始默认的Excel 2016中的菜单栏里没有“开发者工具”选项，这时需要我们手动添加，具体操作步骤如下所示。

步骤01：切换至“文件”菜单，选择左下侧的“选项”按钮，如图10-4所示。

图10-4　选择开始选项

步骤02：在弹出的“Excel选项”对话框里，单击“自定义功能区”选项，在勾选“开发工具”复选框，然后单击“确定”按钮，即可完成“开发者工具”的添加，如图10-5所示。

图10-5　添加“开发工具”

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

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

具体创建操作步骤如下。

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

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

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

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

现金日记账是用来逐日反映库存现金的收入、付出及结余情况的特种日记账，是由单位出纳人员根据审核无误的现金收、付款凭证和从银行提现的银付凭证逐笔进行登记的。为了确保账簿的安全、完整，现金日记账必须采用订本式账簿。

现金日记账通常由出纳人员根据审核后的现金收款凭证和现金付款凭证，逐日逐笔顺序登记。每日业务终了时，应计算、登记当日现金收入合计数、现金支出合计数，以及账面结余额，并将现金日记账的账面余额与库存现金实有数核对，借以检查每日现金收入、付出和结存情况。

具体创建操作步骤如下。

步骤01：启动Excel 2016，单击“文件”菜单，选择新建“空白工作簿”，将工作簿命名为“现金和银行存款管理系统”，然后将Sheet1表命名为“现金日记账”。

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

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

图10-1　创建“现金日记账”表格