EXCEL系列之VBA个人所得税计税自定义函数

《EXCEL系列之VBA个人所得税计税自定义函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、EXCEL系列之VBA个人所得税计税自定义函数第一步：在EXCEL2007中，新建一个EXCEL文件，并将之另存为“启动宏的工作簿”第二步：按ALT+F11，调出代码编辑窗口第三步：选中“工程”下面的“THISWORKBOOK”,点右键，在出现的菜单里选“插入”—“模块”第三步：选中“模块”，在右边的代码编辑窗口输入以下代码PublicFunctionITAX(salary,m)Ifsalary-m<0ThenITAX=0ElseSelectCasesalaryCase0ITAX=0CaseIs<=1500+

2、mITAX=(salary-m)*0.03CaseIs<=4500+mITAX=(salary-m)*0.1-105CaseIs<=9000+mITAX=(salary-m)*0.2-555CaseIs<=35000+mITAX=(salary-m)*0.25-1005CaseIs<=55000+mITAX=(salary-m)*0.3-2755CaseIs<=80000+mITAX=(salary-m)*0.35-5505CaseIs>80000+mITAX=(salary-m)*0.45-13505End

3、SelectEndIfEndFunction第四步，保存文件，退出代码编辑状态第五步，返回EXCEL工作表，即可以进个税计算该自定义函数有两个参数，第一个参数是应税工资，第二个参数是免税基数（目前是3500，外籍人员是4800），如果是计算外籍人员的个税，则将第二个参数改成3500即可敬请关注EXCEL系列之VBA的其它内容（包括年终奖扣税，根据个税计算应税工资、根据税后工资计算税等）