用VBA编制企业收支管理系统.

1、正确学会Excel VBA 的16堂课 用VBA编制企业收支管理系统 设计“企业收支管理”工作簿 实现企业收支管理功能 设计设计“企业收支管理企业收支管理”工作簿工作簿 设计收支登记工作表 设计收支汇总工作表 设计收支对比、收支项目工作表 设计收支登记工作表设计收支登记工作表 具体的操作步骤如下： 步骤1：打开如图16-1所示“收入登记”工作表，切换到【插入】选项卡，单击 “插图”选项组中的【形状】按钮，在弹出列表中单击“矩形”组中的【圆角矩 形】按钮 ，在第一行中绘制一个圆角矩形按钮，如图16-2所示。 步骤2：单击【格式】选项卡“形状样式”选项组中的【其他】按钮 ，在弹出的 列表中选择相应

2、的形状样式，如图16-3所示。 设计收支登记工作表设计收支登记工作表 具体的操作步骤如下： 步骤3：右击添加的圆角矩形，在弹出菜单中选择【编辑文字】菜单项，添加“ 收入登记”文本，将文本的“字体”设置为“华文中宋”，字号设置为“12”， 对齐方式设置为“居中”，如图16-4所示。 步骤4：按照上述添加圆角矩形的方法在工作表中添加其他几个圆角矩形，如图 16-5所示。在【插入】选项卡中单击“文本”选项组中的【艺术字】按钮，即可 弹出相应的艺术字效果，如图16-6所示。 设计收支登记工作表设计收支登记工作表 具体的操作步骤如下： 步骤5：选择相应的艺术字效果，即可弹出“请在此放置您的文字”列表框，

3、如 图16-7所示。在其中输入文本内容“登记”，并设置其字体、字号，将其放置在 工作表的右上角处，如图16-8所示。 步骤6：在“收入登记”工作表中按Ctrl+A组合键将表中的内容全部选中，再按 Ctrl+C组合键复制工作表中的内容，切换到“支出登记”工作表中，按Ctrl+V组 合键粘贴复制的内容。再将表中的A2单元格的内容修改为“支出登记”，其他内 容保持不变。这样“支出登记”工作表也设置完成了，如图16-9所示。 实现企业收支管理功能实现企业收支管理功能 实现收支快速登记 实现收支自动汇总 使用VBA设计收支对比图 为自定义按钮指定宏 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下：

4、 步骤1：在“收入登记”工作表和“支出登记”工作表中输入一些收支项目，为 便于月份汇总操作，此处手动修改编辑时间，使登记的内容分布于几个月份，如 图16-25所示。 步骤2：按Alt+F11组合键打开VBA代码编辑窗口，选择【插入】【模块】菜单 项，插入一个名为“模块1”的模块，在该模块代码窗口中添加用于汇总月收入 的定义函数CollectByMonth1。这段代码中声明数组Month_In()时指定了数组的上 界和下界，即数组的上界为12，下界为1。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤3：双击【工程资源管理器】窗口中的“Sheet3（收入汇总）”选项，即可 打开工作

5、表Sheet3的代码编辑窗口，在其中输入如下代码程序。 步骤4：关闭VBA代码窗口返回到“收入汇总”工作表，就会得到按月份和项目 汇总的结果，如图16-26所示。在G2和G18单元格中分别输入“月份走势图”和 “项目比例图”，然后置其字体，并设置其单元格的边框线及背景颜色，如图 16-27所示。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤5：选中B3:C15单元格区域，在【插入】选项卡中，单击“图表”选项组的 【柱形图】下拉按钮，从中选择“簇状柱形图”，即可在工作表中插入一个图表 ，如图16-28所示。 步骤6：选中B20:C24单元格区域，即每个项目的收入，在【插入】选项卡

6、中单 击“图表”选项组的【饼图】下拉按钮，在其中选择“分离型三维饼图”，即可 在工作表中插入一个图表，如图16-29所示。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤7：由于年的月份就是12个月，不会变化，所以月份走势图的数据源就是单 元格区域“B3:C15”；而项目不是固定不变的，可能会增加新的项目，所以项目 比例图的数据源不一定就是单元格区域“B20:C24”。需要在程序中实现项目比 例图的数据源的动态变化，即在VBA代码窗口中，在工作表Sheet3的代码编辑窗 口中输入如下代码。 步骤8：在工作表Sheet3的Worksheet_Activate代码框架中添加如下一行代

7、码， 用于调用Update_Chart1自定义过程，如图16-30所示。 Update_Chart1 (Item_num) 返回“收支项目”工作表，添加一个新的收入项目“其他”，如图16-31所示。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤9：在“收入登记”工作表中添加一条关于“其他”项目的收入登记，如图 16-32所示。切换到“收入汇总”工作表中，会发现项目比例图自动发生了变化 ，如图16-33所示。 步骤10：进行支出汇总。按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑 窗口中添加如下代码程序。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤1

8、1：进入工作表Sheet4的代码编辑窗口，在其中添加如下代码程序。 步骤12：返回到“支出汇总”工作表中，此时会得到按月份和项目汇总的支出金 额，如图16-34所示。按照“收入汇总”工作表中添加图表的方法，在“支出汇 总”工作表中添加月份走势图和项目比例图，如图16-35所示。 步骤13：在工作表Sheet4的代码编辑窗口中添加如下代码程序，使项目比例图的 数据源动态化。 实现收支自动汇总实现收支自动汇总 具体的操作步骤如下： 步骤14：在工作表Sheet4的代码编辑窗口中的Worksheet_Activate过程的最后添 加调用Update_Chart2的语句“Update_Chart2 (Item_num)”，如图16-36所示 。 专家课堂（常见问题与解答）专家课堂（常见问题与解答） 点拨点拨1：VBA的变量必须要先声明才可以使用吗？ 解答：解答：当然不是，VBA允许用户直接使用变量而不经任何声明。但是这样做 可能会引起难以调试的错误。如用户在第一行直接使用了变量abc，结果到了 后边由于笔误写成了acb，这一定会出逻辑错误，但解释器因为语法没问题而 不会报，用户自己也很难在密密麻麻的代码中将这个错误挑出来。为了强迫 变量必须先声明再使用，在程序的第一行加上“Option Explicit”，如果不经 声明直接使用变量就会报语法错误