第09章 通用工资管理系统

1、主要特点： l适用于各企事业单位。 l能够管理月工资、日工资、计时工资和计件工 资。 主要技术： l数据项属性的标识； l数据项名转换为单元格的相对引用； l用批注表示数据项的计算公式。 9.1 工作簿设计工作簿设计 l“月工资”、“日工资”、“计时工资”、“计件工资”四个工作表的结 构相同。 l设计要点： (1) 背景“白色”，“宋体”、10号字。 (2) 第1行输入工资的各数据项名。 (3) 输入若干行用于测试的数据。 (4) 设置自动筛选功能。 (5) 设置虚线边框。 (6) 标题区背景颜色。 (7) 将光标定位在E2单元格，冻结窗格。 (8) 将公式填写到批注中。 (9) 基本项“黑色

2、”，收入项“绿色”，支出项“红色”，收入合计项为 “深绿”色，支出合计项为“深红”色，实发金额项为“蓝色”。 (10) “年月”、“工号”数字作为文本处理。 (11) 最适合的列宽、行高。 9.1 工作簿设计工作簿设计 l工作簿的Open事件代码： 创建一个临时自定义工具栏。 上面添加6个按钮“隐藏所选列”、“全部显 示”、“数据替换”、“数据统计”、“清统 计结果”和“生成工资条”。 l工作簿的SheetActivate事件代码： 切换工作表时，将控制自定义工具栏的可见性。 9.2 自定义函数与两个子程序自定义函数与两个子程序 1. 自定义函数自定义函数se l个人所得税计算方法： 应纳税额

3、(应纳税所得额扣除标准)适用 税率速算扣除数 l扣除标准2000元。 ly表示“应纳税所得额扣除标准”，s表示 “适用税率”，k表示“速算扣除数”，则它 们之间的关系见表9-1。 9.2 自定义函数与两个子程序自定义函数与两个子程序 9.2 自定义函数与两个子程序自定义函数与两个子程序 l例如，某员工的应纳税所得额为5200元，减 去扣除标准2000元，结果为3200元，适用税 率为15%，速算扣除数为125元。 应纳税额(52002000)15%125元 355元。 l自定义函数se： 根据应纳税所得额sd求出应纳税额。 9.2 自定义函数与两个子程序自定义函数与两个子程序 2.子程序子程序

4、yc l用于把当前工作表选中的列隐藏起来。 3.子程序子程序qb l用于恢复被隐藏的列，显示全部数据行。 9.3 数据替换功能的实现数据替换功能的实现 l用于统一替换某数据项的值。 1. 创建用户窗体创建用户窗体 l插入用户窗体。 l添加控件。 l调整各控件的大小、位置，设置窗体和控件其他必要的属性。 2. 用户窗体用户窗体Initialize事件代码事件代码 l取出第一行每个单元格的批注和文本颜色值，将特定数据项名添加到组 合框中。 3. 子程序子程序th l打开用户窗体。 4. “取消取消”命令按钮代码命令按钮代码 l关闭用户窗体。 5. “确定确定”命令按钮代码命令按钮代码 l完成数据替

5、换操作。 9.4 数据统计与生成工资条数据统计与生成工资条 1. 子程序子程序tj l用来进行数据统计。用来进行数据统计。 l先求出当前工作表数据区的最大行号、最大列号。先求出当前工作表数据区的最大行号、最大列号。 l然后从第二行开始，对每一个数据行进行如下操作：然后从第二行开始，对每一个数据行进行如下操作： l用用For循环语句从第一列到最后一列进行扫描。循环语句从第一列到最后一列进行扫描。 l如果该列第一行的单元格中含有批注，则把批注中的数据项名改如果该列第一行的单元格中含有批注，则把批注中的数据项名改 为为RC偏移式，并填写到当前行、列对应的单元格，得到计算结果。偏移式，并填写到当前行、

6、列对应的单元格，得到计算结果。 l如果当前单元格的文本颜色为如果当前单元格的文本颜色为“绿色绿色”，则把当前单元格的值累，则把当前单元格的值累 加到收入合计变量加到收入合计变量srh中；文本颜色为中；文本颜色为“红色红色”，累加到支出合计，累加到支出合计 变量变量zch中。中。 l如果当前单元格的文本颜色为如果当前单元格的文本颜色为“深绿深绿”色，则将收入合计值填写色，则将收入合计值填写 到当前单元格；文本颜色为到当前单元格；文本颜色为“深红深红”色，填写支出合计值；文本色，填写支出合计值；文本 颜色为颜色为“蓝色蓝色”，填写实发工资。，填写实发工资。 l最后，在数据区的后面填写一行合计数据。

7、最后，在数据区的后面填写一行合计数据。 9.4 数据统计与生成工资条数据统计与生成工资条 2. 子程序子程序qtj l用来清除统计、汇总结果。用来清除统计、汇总结果。 3. 子程序子程序gzt l首先将首先将“工资条工资条”工作表初始化。工作表初始化。 l然后，对每一个未被隐藏的数据行，在然后，对每一个未被隐藏的数据行，在“工资工资 表表”工作表添加虚线、填写数据项名、数据项工作表添加虚线、填写数据项名、数据项 值。值。 l最后追加一行虚线。最后追加一行虚线。 9.5 软件的使用软件的使用 1. 选择工作表选择工作表 l根据员工的工资类型，选择根据员工的工资类型，选择“月工资月工资”、“日工资

8、日工资”、“计时工计时工 资资”、“计件工资计件工资”当中的一个工作表。当中的一个工作表。 2设置数据项设置数据项 l第一行都是用来设置数据项名的，可增、删、改。第一行都是用来设置数据项名的，可增、删、改。 l注意：各数据项顺序应与求值顺序一致。注意：各数据项顺序应与求值顺序一致。 3. 定义公式定义公式 l若数据项的值需要用公式求得，可在该数据项名所在的单元格中若数据项的值需要用公式求得，可在该数据项名所在的单元格中 添加批注，将公式填写到批注中。添加批注，将公式填写到批注中。 l在公式中可以使用任意在公式中可以使用任意Excel工作表函数，可以直接用数据项名来工作表函数，可以直接用数据项名

9、来 代替单元格地址，程序执行时，会将数据项名转换为单元格的相代替单元格地址，程序执行时，会将数据项名转换为单元格的相 对引用。对引用。 9.5 软件的使用软件的使用 4. 设置数据项的属性设置数据项的属性 l基本项用基本项用“黑色黑色”，收入项用，收入项用“绿色绿色”，支出项用，支出项用“红色红色”，收，收 入合计项用入合计项用“深绿深绿”色，支出合计项用色，支出合计项用“深红深红”色，实发金额项色，实发金额项 用用“蓝色蓝色”。 5浏览、修改、筛选和打印数据浏览、修改、筛选和打印数据 l在当前工作表中可以随意浏览、修改、添加和删除数据。在当前工作表中可以随意浏览、修改、添加和删除数据。 l最

10、左边四列和最上边一行被冻结在窗格中，以便于参照。最左边四列和最上边一行被冻结在窗格中，以便于参照。 l暂时不需要的列，可隐藏起来。暂时不需要的列，可隐藏起来。 l对任意数据项可筛选出满足条件的数据行。对任意数据项可筛选出满足条件的数据行。 l用用“文件文件”菜单的菜单的“打印打印”命令进行打印。命令进行打印。 6数据替换数据替换 l单击自定义工具栏的单击自定义工具栏的“数据替换数据替换”按钮，选择数据项，输入常量、按钮，选择数据项，输入常量、 变量或表达式，单击变量或表达式，单击“确定确定”按钮，将完成对所有未被隐藏数据按钮，将完成对所有未被隐藏数据 行指定数据项的替换。行指定数据项的替换。

11、9.5 软件的使用软件的使用 7数据统计数据统计 l单击自定义工具栏的单击自定义工具栏的“数据统计数据统计”按钮，将自动完成对当前工作按钮，将自动完成对当前工作 表所有包含公式的数据项、收入合计、支出合计、实发金额的计表所有包含公式的数据项、收入合计、支出合计、实发金额的计 算，并分别求出各数据项的合计数据。算，并分别求出各数据项的合计数据。 l单击自定义工具栏的单击自定义工具栏的“清统计结果清统计结果”按钮，将清除上述各项统计按钮，将清除上述各项统计 结果。结果。 8排序排序 l在当前工作表第一行的某个数据项单元格中单击自动筛选三角标在当前工作表第一行的某个数据项单元格中单击自动筛选三角标 志，在下拉列表中选择志，在下拉列表中选择“升序排列升序排列”或或“降序排列降序排列”，可实