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

正确学会ExcelVBA的16堂课

用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：返回到“支出汇总”工作表中，此时会得到按月份和工程汇