第08章 小型财务收支管理器.ppt

主要功能： 收支类型定义； 基本收支数据输入或修改； 按年度和收支类型制作统计表、统计图。 主要特点： 用Excel和VBA实现； 收支类型可随时定义和修改，输入或修改基本收支数据时，可由一位数字替换为对应的收支类型名； 以表格和直条图两种形式输出分类汇总数据。 主要技术： 单元格批注内容的动态更新与显示； 直接代换式输入方法的实现； 数据有效性、光标焦点控制； 下拉列表项的动态更新； 分级显示控制； 分类汇总数据的筛选与图表化。 8.1 工作簿设计 三张工作表：“收支项目”、“基本数据”和“统计图表”。 1. “收支项目”工作表 收支标志“S”表示收入项、“Z”表示支出项； 代码用0～9当中的一位数字。 选中A2单元格，冻结窗格。 8.1 工作簿设计 2. “基本数据”工作表 A列数字作为文本处理。 B、C列两位小数。 在“工具”菜单中选择“选项”命令，取消“零值”复选项。 选中A2单元格，冻结窗格。 选中A1单元格，设置自动筛选功能。 用“控件工具箱”添加组合框ComboBox1、ComboBox2。 8.1 工作簿设计 3. “统计图表”工作表 A列数字作为文本处理。 B、C列两位小数。 用“控件工具箱”添加组合框ComboBox1、选项按钮OptionButton1 和OptionButton12。 隐藏工作表中的零值。 8.1 工作簿设计 在B5:B9、D5:D9区域输入模拟的“收入金额”和“收支类型”数据。 选中B5:B9、D5:D9区域，单击“常用”工具栏的“图表向导”按钮。 选择“柱形图”和默认的子图表类型，单击“完成”按钮。 选中图表区右侧的“图例”项，删除。 8.1 工作簿设计 在图表区上单击鼠标右键，选择“源数据”命令。在“系列”选项卡中，设置“值”为“=统计图表!$B$5:$B$9”，“分类轴标志”为“=统计图表!$D$5:$D$9”，“名称”为“=统计图表!$C$1”。 在图表区上单击鼠标右键，选择“图表区格式”命令。在“图案”选项卡中，选中“阴影”和“圆角”复选项，填充“双色”、“斜上”效果。在“属性”选项卡中，设置对象位置为“大小、位置均固定”。 在绘图区上单击鼠标右键，选择“绘图区格式”命令。设置区域颜色为“白色”。 在分类轴上单击鼠标右键，选择“坐标轴格式”命令。在“对齐”选项卡中，设置文本方向为45度。 8.1 工作簿设计 在图表标题上单击鼠标右键，选择“图表标题格式”命令。设置标题为“宋体”、12号字，文字颜色为“橙色”。 在任意一个柱形上单击鼠标右键，选择“数据系列格式”命令。在“图案”选项卡中，单击“填充效果”按钮，填充“茶色”，“垂直”变形效果。 在数值轴主要网格线上单击鼠标右键，选择“网格线格式”命令。在“图案”选项卡中，设置线条样式为“虚线”。 8.2 组合框列表项的添加 工作簿的Open事件代码： 声明一维数组b，每个元素用来标识一个年份值是否被收集到组合框中。用于将“基本数据”工作表中不重复的年份值添加到组合框中。 用对象变量sh1、sh2表示“基本数据”和“统计图表”工作表。 把“基本数据”工作表第1列的年份，排除重复值后，添加到“基本数据”工作表的ComboBox1和“统计图表”工作表的ComboBox1中。 把“收支项目”工作表第2列的“收支标志”和第3列的“收支类型名”拼接，添加到“基本数据”工作表的ComboBox2中。 8.3 基本数据维护 针对“基本数据”工作表进行操作。 1. 工作表的SelectionChange事件代码 它根据当前单元格位置进行相应的处理。 如果是第1行，则不执行其他操作，直接退出。 如果超过第4列，则定位到下一行的第2列。 如果超过D列数据1行以上，则定位到D列数据下一行的第2列，然后退出。 如果当前行第1列单元格的内容为空，则将第1列最后一个有效的“年月”数据复制到该单元格。 8.3 基本数据维护 如果当前单元格处于第4列，则进行以下操作： (1) 取出当前行第2列、第3列的“收入金额”和“支出金额”。 (2) 如果“收入金额”和“支出金额”全都大于零，或者全部等于零，则将光标定位到当前行第2列，然后退出。 (3) 如果只是“收入金额”大于零，则调用自定义函数zfc，取“收支项目”工作表中的所有收入类型代码和对应的收支类型名，形成一个字符串，送给变量lbx。 (4) 如果只是“支出金额”大于零，则调用自定义函数zfc，取“收支项目”工作表中的所有支出类型代码和对应的收支类型名，形成一个字符串，送给变量lbx。 (5) 在当前单元格中，先删除原有的数据有效性条件，再设置新的数据有效性条件，将变量lbx的值作为数据有效性提示信息。 8.3 基本数据维护 2. 自定义函数zfc 功能： 取“收支项目”工作表的收入或支出类型代码、名称，