用exce你l计算个人工资所得税的四套方案.docVIP

用Excel计算个人工资所得税的四套方案 一、个人工薪所得纳税相关背景知识 　　1、个人取得的工资、薪金所得，是指个人因任职或者受雇而取得的工资、薪金、奖金、年终加薪、劳动分红、津贴、补贴以及与任职或受雇有关的其他所得。 　　个人所得税是对按税法规定具有纳税义务的中国公民和外籍人员的个人收入或所得征收的一种税。 　　2、工资、薪金所得项目税率表： 　　表1 　　3、工资、薪金所得按以下步骤计算缴纳个人所得税： 　　每月取得工资收入后，先减去个人承担的基本养老保险金、医疗保险金、失业保险金，以及按省级政府规定标准缴纳的住房公积金，再减去费用扣除额1600元/月（来源于境外的所得以及外籍人员、华侨和香港、澳门、台湾同胞在中国境内的所得每月还可附加减除费用3200元），为应纳税所得额，按5%至45%的九级超额累进税率计算缴纳个人所得税。 　　计算公式是：应纳个人所得税税额=应纳税所得额×适用税率—速算扣除数 　　例：王某当月取得工资收入9000元，当月个人承担住房公积金、基本养老保险金、医疗保险金、失业保险金共计1000元，费用扣除额为1600元，则王某当月应纳税所得额=9000-1000-1600=6400元。应纳个人所得税税额=6400×20%-375=905元。 　　4、个人取得工资、薪金所得应缴纳的个人所得税，统一由支付人负责代扣代缴，支付人是税法规定的扣缴义务人。 　　5、根据十届全国人大常委会第十八次全体会议《关于修改〈中华人民共和国个人所得税法〉的决定》，自2006年1月1日起，工薪所得个调税起征点执行中国公民1600元、外籍人士4800元的标准，计征方法仍执行原定九级累进方案（如表1所示）。 二、工薪所得个调税的Excel计算解决方案 　　表2 【方案一】——IF嵌套版： 　　优点：简单明了，上手容易 【方案二】——辅助数据版： 　　在E、F、G、H、I五列插入辅助列(如表2所示)。 　　缺点：需要借助于辅助列，可移植性不强。 【方案三】——数组公式版： 　　优点：同样克服了IF嵌套版不能涵盖全部九级累进区间的缺陷，且公式内数据相对容易维护，整个公式维护起来也比较简单。 　　缺点：数组公式的操作方法比较独特，每次修改后都要用Ctrl+Shift+Enter组合键加以识别，且可扩展性不如在后台运行的VBA代码。 　　P.S. ： 　　数组公式：数组公式对一组或多组值执行多重计算，并返回一个或多个结果。数组公式括于大括号({})中。按Ctrl+Shift+Enter可以输入数组公式。 【方案四】——VBA代码版： 　　工具 -- 》宏--》VisualBasic编辑器--》插入--》模块 　　=============复制以下代码至编辑窗口================ 　　计算个人收入调节税(IndividualIncomeAdjustmentTax) 　　Function iiatax(x,y) 　　Dim basicnum As Integer 　　Dim downnum As Variant, upnum As Variant,ratenumAsVariant,deductnum As Variant 　　If y = 0 Then 　　basicnum=1600定义中国公民个税起征点 　　ElseIf y = 1 Then 　　basicnum=4800定义外国公民个税起征点 　　Else: basicnum = Null 　　End If 　　downnum = Array(0, 500, 2000, 5000, 20000,40000,60000,80000,100000)定义累进区间下限 　　upnum = Array(500, 2000, 5000, 20000, 40000,60000,80000,100000,100000000)定义累进区间上限 　　ratenum = Array(0.05, 0.1, 0.15, 0.2, 0.25, 0.3,0.35,0.4,0.45)定义累进税率 　　deductnum = Array(0, 25, 125, 375, 1375, 3375,6375,10375,15375)定义累进速算扣除数 　　If IsNumeric(x) = False Then 　　MsgBox(请检查计税工资是否为数值！) 　　End If 　　If x 0 Then 　　MsgBox(计税工资为负，重新输入！) 　　End If 　　If x = 0 And x basicnum Then 　　iiatax = 0 　　End If 　　For i = 0 To UBound(downnum) 　　If x - basicnum downnum(i) And x -bas