Excel会计信息化教学课件 作者 刘曜 第8章工资管理.pptVIP

本章教学建议： 1.结合“工资管理”系统，注意介绍在Excel环境下设计会计信息系统的基本方法。即直接在工作表上完成数据表格的设计，Excel本身功能不便完成的任务通过编程完成。 2.从“工资标准”工作表自动读取员工工资额数据这一任务可以用多种方法实现。 教材中“工资管理”系统的设计，采用了“确定记录的末行数”和“查找记录”的技术，通过一个双循环完成。  在“学生优秀作品点评”中可以看到其他方法，如设置自定义函数。 分析多种方法实现同一任务有利于培养学生的创新能力。 本章编程练习题： 编程练习题3（可参阅第11章）。 4．检验特定单元格值的目的 在确定员工工资额前，通过代码 If IsEmpty(Sheets(工资单).Cells(5, 1).Value) Or IsEmpty(Sheets(工资标准).Cells(2, 1).Value) Then … End If 先对“工资单”工作表的单元格Cells(5, 1)和“工资标准”工作表的单元格Cells(2, 1)作了是否为空的判断。 按图8-1格式设计，“工资标准”工作表的单元格Cells(2, 1) 为工资标准首行记录的第1个单元格，其值为空认为没有确定工资标准。 按图8-2格式设计，“工资单”工作表的单元格Cells(5, 1)为员工工资首行记录的第1个单元格，其值为空表示无任何员工工资记录。不论出现哪种情况，计算工资都失去了意义，故退出程序。 在进行公式自动填充前，通过代码 If IsEmpty(Sheets(工资单).Cells(6, 1).Value) Then … End If先对“工资单”工作表的单元格Cells(6, 1)作是否为空的判断。 按图8-2格式设计，“工资单”工作表的单元格Cells(6, 1)为员工工资次行记录的第1个单元格，其值为空表示只有首行记录。而“工资单”工作表的格式已设计好计算首行员工工资的公式，不必进行公式填充，故退出程序。 检验特定单元格值的工作并不是画蛇添足。如果不这样，一旦这些特定单元格值为空，程序执行就会出错。 注意: 1.在分析“计算工资”宏时，明确该宏任务： （1）自动确定员工工资 （2）自动填充公式 通过设置断点首先演示任务（1）的完成，再取消断点完成任务（2） 2.在分析代码 Sheets(“工资单”).Cells(x, 3) = Sheets(“工资标准”).Cells(n, 2)时，指出关键是确定x和n（在教材8.2节举例说明了方法） 首先设定x=5（职工工资记录的第一行），利用“查找记录”技术循环查找确定n。 思考：如何类似地得到x=6等数据？ （再用一个循环） 8.3 “工资管理系统”的特点及应用 特点: （1）设计工作量小。系统的设计是依托 Excel进行的，大量的基础工作，如数据格式设计可以直接在工作表上完成，不必使用代码，因而系统使用的宏代码较少。 （2）维护方便。由于系统是使用者自己设计的，故可以根据需要随时进行修改。如修改个人所得税的征税标准，增减应扣款项等。 （3）效率高。使用系统时只需要输入员工姓名和职务，自动化程度较高。 应用: 示例：教材P90 8.4 工资调整 问题: 在工资管理中，可能遇到工资调整，需要特别处理 。 示例：教材P90，按职称提升每位职工的工资 教授 150 副教授 130 讲师 100 助教 80 高级工程师 150 工程师 140 助工 90 建立自定义函数：Function addsalary( 职称 ) Select Case 职称 Case 教授, 高级工程师 addsalary = 150 Case 副教授 addsalary = 130 Case 讲师 addsalary = 100 变量 函数值 变量一种取值 Case 助教 addsalary = 80 Case 工程师 addsalary = 140 Case 助工 addsalary = 90 End S