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

用VBA编制企业收支管理系统 ♂设计“企业收支管理”工作簿 ♂实现企业收支管理功能 设计“企业收支管理”工作簿 设计收支登记工作表 设计收支汇总工作表 设计收支对比、收支项目工作表 设计收支登记工作表 具体的操作步骤如下： 步骤1：打开如图16-1所示“收入登记”工作表，切换到【插入】选项卡，单击“插图”选项组中的【形状】按钮，在弹出列表中单击“矩形”组中的【圆角矩形】按钮 ，在第一行中绘制一个圆角矩形按钮，如图16-2所示。 步骤2：单击【格式】选项卡“形状样式”选项组中的【其他】按钮 ，在弹出的列表中选择相应的形状样式，如图16-3所示。 设计收支登记工作表 具体的操作步骤如下： 步骤3：右击添加的圆角矩形，在弹出菜单中选择【编辑文字】菜单项，添加“收入登记”文本，将文本的“字体”设置为“华文中宋”，字号设置为“12”，对齐方式设置为“居中”，如图16-4所示。 步骤4：按照上述添加圆角矩形的方法在工作表中添加其他几个圆角矩形，如图16-5所示。在【插入】选项卡中单击“文本”选项组中的【艺术字】按钮，即可弹出相应的艺术字效果，如图16-6所示。 设计收支登记工作表 具体的操作步骤如下： 步骤5：选择相应的艺术字效果，即可弹出“请在此放置您的文字”列表框，如图16-7所示。在其中输入文本内容“登记”，并设置其字体、字号，将其放置在工作表的右上角处，如图16-8所示。 步骤6：在“收入登记”工作表中按Ctrl+A组合键将表中的内容全部选中，再按Ctrl+C组合键复制工作表中的内容，切换到“支出登记”工作表中，按Ctrl+V组合键粘贴复制的内容。再将表中的A2单元格的内容修改为“支出登记”，其他内容保持不变。这样“支出登记”工作表也设置完成了，如图16-9所示。 实现企业收支管理功能 实现收支快速登记 实现收支自动汇总 使用VBA设计收支对比图 为自定义按钮指定宏 实现收支自动汇总 具体的操作步骤如下： 步骤1：在“收入登记”工作表和“支出登记”工作表中输入一些收支项目，为便于月份汇总操作，此处手动修改编辑时间，使登记的内容分布于几个月份，如图16-25所示。 步骤2：按Alt+F11组合键打开VBA代码编辑窗口，选择【插入】→【模块】菜单项，插入一个名为“模块1”的模块，在该模块代码窗口中添加用于汇总月收入的定义函数CollectByMonth1。这段代码中声明数组Month_In()时指定了数组的上界和下界，即数组的上界为12，下界为1。 实现收支自动汇总 具体的操作步骤如下： 步骤3：双击【工程资源管理器】窗口中的“Sheet3（收入汇总）”选项，即可打开工作表Sheet3的代码编辑窗口，在其中输入如下代码程序。 步骤4：关闭VBA代码窗口返回到“收入汇总”工作表，就会得到按月份和项目汇总的结果，如图16-26所示。在G2和G18单元格中分别输入“月份走势图”和“项目比例图”，然后置其字体，并设置其单元格的边框线及背景颜色，如图16-27所示。 实现收支自动汇总 具体的操作步骤如下： 步骤5：选中B3:C15单元格区域，在【插入】选项卡中，单击“图表”选项组的【柱形图】下拉按钮，从中选择“簇状柱形图”，即可在工作表中插入一个图表，如图16-28所示。 步骤6：选中B20:C24单元格区域，即每个项目的收入，在【插入】选项卡中单击“图表”选项组的【饼图】下拉按钮，在其中选择“分离型三维饼图”，即可在工作表中插入一个图表，如图16-29所示。 实现收支自动汇总 具体的操作步骤如下： 步骤7：由于年的月份就是12个月，不会变化，所以月份走势图的数据源就是单元格区域“B3:C15”；而项目不是固定不变的，可能会增加新的项目，所以项目比例图的数据源不一定就是单元格区域“B20:C24”。需要在程序中实现项目比例图的数据源的动态变化，即在VBA代码窗口中，在工作表Sheet3的代码编辑窗口中输入如下代码。 步骤8：在工作表Sheet3的Worksheet_Activate代码框架中添加如下一行代码，用于调用Update_Chart1自定义过程，如图16-30所示。 Update_Chart1 (Item_num) 返回“收支项目”工作表，添加一个新的收入项目“其他”，如图16-31所示。 实现收支自动汇总 具体的操作步骤如下： 步骤9：在“收入登记”工作表中添加一条关于“其他”项目的收入登记，如图16-32所示。切换到“收入汇总”工作表中，会发现项目比例图自动发生了变化，如图16-33所示。 步骤10：进行支出汇总。按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中添加如下代码程序。 实现收支自动汇总 具体的操作步骤如下： 步骤11：进入工作表Sheet4的代码编辑窗口，在其中添加如下代码程序。 步骤12：返回到“支出汇