EXCEL VBA在工资管理中的运用.pdfVIP

应用实践 《农业网络信，@,》2009年第3期 EXCELVBA在工资管理中的运用 王金荣1，刘述强2，孔庆晓3 (1．烟台职业学院电子工程系，山东烟台264670；2．烟台市牟平区大窑镇政府，山东烟台264117； 3．烟台市莱山区解甲庄镇政府，山东烟台264670) 摘要：本文介绍了利用EXCEL自定义所得税函数，建立精确查找替换宏，使用JMAlL组件和群发EMAIL宏。 关键词：自定义函数：宏；JmailEXCEL 中图分类号：YP399 文献标识码：B 文章编码：1672—6251(2009)03—0090-02 随着计算机技术的日益普及，绝大多数企事业单 CaseIs=500 位的会计核算系统均采用计算机处理。笔者在日常的 taxratio=0．05 工资管理过程中深刻体会到作为一名工资核算管理人 20 taxing ’此部分根据所得税计算公式。根据所得来定义 员，熟练掌握EXCEL的基础知识。尤其是EXCEL中 函数和VBA的应用，将会给工作带来极大的方便。 税率和速算扣除数．具体语句略 下面笔者结合工作实践谈一下EXCEL在工资管理中 EndSelect 的几个小运用。 cahax=salary半taxratio—taxing l建立基础的工资信息表 Rem应纳个人所得税税额=应纳税所得额X适用税 建立基础的丁资信息表。一般来说有如下基本信 率一速算扣除数 息，例如姓名、参加工作时间、基本工资、职务工 EndFunction 资、工龄、工龄工资、各种补贴、奖金、应发工资、 3建立查找对应的EMAIL或者其它信息的精 公积金、医疗保险、所得税、实发工资、签字、银行 确循环查找宏 卡号、EMAIL等。根据考勤表输入事假天数、病假天 我们在工作中经常遇到这样的情形．想把一个表 数、加班天数等，根据上浮工资分配表输入浮动工资 中的部分信息复制到另外一个表中．而这两个表中的 等。为防止输入数据引起银行卡号误差可以将银行卡 主键信息基本一致，只是顺序不同、或者极少信息不 号项目这一列隐藏。每个人的EMAIL地址也是需要一致。如下的宏能够精确的查找对应的信息。 的，可以从其它工作簿导人或者存在其它表单上。 Sub fendreplaee0 DimwksheetlAs 2建立计算所得税的自定义函数“WGHTAX Worksheet Excel函数虽然丰富．但并不能满足我们的所有 Dimwksheet2AsWorksheet 需要。我们可以自定义一个函数。来完成个人所得税 Dim sfind$，sreplace$ Dim 的运算。 i％，j％，tl％，t2％ Function As Set wghtax(ByValsalarycellRange) Dim税率As7定义税率 Set