文档介绍：主要特点:
适用于各企事业单位。
能够管理月工资、日工资、计时工资和计件工资。
主要技术:
数据项属性的标识;
数据项名转换为单元格的相对引用;
用批注表示数据项的计算公式。
工作簿设计
“月工资”、“日工资”、“计时工资”、“计件工资”四个工作表的结构相同。
设计要点:
(1) 背景“白色”,“宋体”、10号字。
(2) 第1行输入工资的各数据项名。
(3) 输入若干行用于测试的数据。
(4) 设置自动筛选功能。
(5) 设置虚线边框。
(6) 标题区背景颜色。
(7) 将光标定位在E2单元格,冻结窗格。
(8) 将公式填写到批注中。
(9) 基本项“黑色”,收入项“绿色”,支出项“红色”,收入合计项为“深绿”色,支出合计项为“深红”色,实发金额项为“蓝色”。
(10) “年月”、“工号”数字作为文本处理。
(11) 最适合的列宽、行高。
工作簿设计
工作簿的Open事件代码:
创建一个临时自定义工具栏。
上面添加6个按钮“隐藏所选列”、“全部显示”、“数据替换”、“数据统计”、“清统计结果”和“生成工资条”。
工作簿的SheetActivate事件代码:
切换工作表时,将控制自定义工具栏的可见性。
自定义函数与两个子程序
1. 自定义函数se
个人所得税计算方法:
应纳税额=(应纳税所得额-扣除标准)×适用税率-速算扣除数
扣除标准=2000元。
y表示“应纳税所得额-扣除标准”,s表示“适用税率”,k表示“速算扣除数”,则它们之间的关系见表9-1。
自定义函数与两个子程序
自定义函数与两个子程序
例如,某员工的应纳税所得额为5200元,减去扣除标准2000元,结果为3200元,适用税率为15%,速算扣除数为125元。
应纳税额=(5200-2000)×15%-125元=355元。
自定义函数se:
根据应纳税所得额sd求出应纳税额。
自定义函数与两个子程序
用于把当前工作表选中的列隐藏起来。
用于恢复被隐藏的列,显示全部数据行。
数据替换功能的实现
用于统一替换某数据项的值。
1. 创建用户窗体
插入用户窗体。
添加控件。
调整各控件的大小、位置,设置窗体和控件其他必要的属性。
2. 用户窗体Initialize事件代码
取出第一行每个单元格的批注和文本颜色值,将特定数据项名添加到组合框中。
3. 子程序th
打开用户窗体。
4. “取消”命令按钮代码
关闭用户窗体。
5. “确定”命令按钮代码
完成数据替换操作。
数据统计与生成工资条
1. 子程序tj
用来进行数据统计。
先求出当前工作表数据区的最大行号、最大列号。
然后从第二行开始,对每一个数据行进行如下操作:
用For循环语句从第一列到最后一列进行扫描。
如果该列第一行的单元格中含有批注,则把批注中的数据项名改为RC偏移式,并填写到当前行、列对应的单元格,得到计算结果。
如果当前单元格的文本颜色为“绿色”,则把当前单元格的值累加到收入合计变量srh中;文本颜色为“红色”,累加到支出合计变量zch中。
如果当前单元格的文本颜色为“深绿”色,则将收入合计值填写到当前单元格;文本颜色为“深红”色,填写支出合计值;文本颜色为“蓝色”,填写实发工资。
最后,在数据区的后面填写一行合计数据。
数据统计与生成工资条
2. 子程序qtj
用来清除统计、汇总结果。
3. 子程序gzt
首先将“工资条”工作表初始化。
然后,对每一个未被隐藏的数据行,在“工资表”工作表添加虚线、填写数据项名、数据项值。
最后追加一行虚线。