excelvba新个人所得税税率自定义函数in_tax()及用法

《excelvba新个人所得税税率自定义函数in_tax()及用法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ExcelVBA新个人所得税税率自定义函数in_tax（）及用法1、VBA代码PublicFunctionin_tax(in_monthAsSingle)AsSingleDimsiAsSingle,kcsAsSingle,ynseAsSingle'定义税率si,扣除数kcs,应纳税额ynse变量ynsc=in_month-3500SelectCaseynseCase0To1500'如果应纳税额＜=1500,税率3%,速算扣除数0osi=0.03kcs==0Case1501To4500'如果应纳税额（1500,4500]

2、,税率10%,速算扣除数105osi=0.1kcs-二105Case4501To9000'如果应纳税额（4500,9000],税率20%,速算扣除数555。si=0.2kcs=二555Case9001To35000'如果应纳税额（9000,35000],税率25%,速算扣除数1005。si=0.25kcs=1005Case35001To55000si=0.3kcs=2755Case55001To80000si=0.35kcs=5505如果应纳税额（35000,55000],税率30%,速算扣除数2755。如果应纳税额（

3、55000,80000],税率35%,速算扎I除数5505^CaseElsesi=0.45kcs=13505如果应纳税额＞80000,税率45%,速算扣除数13505oEndSelectIfynse<=0Thenintax=0Elseintax=Round(ynse*si-kcs,2)EndTfEndFunction2、使用方法萨MicrosoftVisualBasic・2013年工空表：文件(0编辑(£)视圏0插入①格式9)调试(Q)运行®工具CD夕展程序(A)■窗口(W)帮助但)双击“模块1”，在右侧代码窗口复制

4、“PublicFunctionEndFunction"(含)之间的自定义函数代码，如下图所示:点击“保存”，退出"VisualBasic编辑器〃窗口。回到工作表界面,蚓MicrosoftExcel-Bookl文件(£)编辑(E)视圏G0插入0)t@xC(O)工具CDIK国囚二B4▼=intax(A4)ABcD123月薪酬总额应纳个税45000455678如图所示,月薪酬总额为5000时,应纳个税45。b4=in_tax(a4)in_tax()函数用法如下图所示: