作者：绿色风
分类：
时间：2022-08-17
浏览：123
楼主
BIN_YANG168 |
Q：怎样用自定义函数根据个人收入自定计算个人所得税或根据税额计算收入?
A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码：
- Function Wtax(x As Variant, z, y As Integer)
- If y = 1 Then
- If (x - z) < 0 Then
- Wtax = 0
- Else
- Select Case (x - z)
- Case Is <= 500
- Wtax = (x - z) * 0.05
- Case Is <= 2000
- Wtax = (x - z) * 0.1 - 25
- Case Is <= 5000
- Wtax = (x - z) * 0.15 - 125
- Case Is <= 20000
- Wtax = (x - z) * 0.2 - 375
- Case Is <= 40000
- Wtax = (x - z) * 0.25 - 1375
- Case Is <= 60000
- Wtax = (x - z) * 0.3 - 3375
- End Select
- End If
- ElseIf y = 2 Then
- If x = 0 Then
- Wtax = 0
- Else
- Select Case x
- Case Is <= 25
- Wtax = x / 0.05 + z
- Case Is <= 175
- Wtax = (x + 25) / 0.1 + z
- Case Is <= 625
- Wtax = (x + 125) / 0.15 + z
- Case Is <= 3625
- Wtax = (x + 375) / 0.2 + z
- Case Is <= 8625
- Wtax = (x + 1375) / 0.25 + z
- Case Is <= 14625
- Wtax = (x + 3375) / 0.3 + z
- End Select
- End If
- End If
- End Function
然后在A1单元格输入收入或税额，在其他单元格输入=wtax(A1,1600,1)或=wtax(A1,1600,2)即可。
说明:
=wtax(A1,1600,1)
A1:单元格引用
1600:税基
等于1表示由收入求应纳税
等于2表示由应纳税求收入
 个人所得税函数.rar
|
2楼
xmyjk |
很实用的自定义函数，谢谢杨版分享。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一