excel如何使用vba制作个人所得税计算器
excel如何使用vba制作个人所得税计算器?下面一起来看看。
1、首先我们打开一个工作样表作为例子。
2、打开vba编辑窗口,使用 alt+f11组合快捷键 ,或是使用开发者工具标签下的 vb快捷按钮 。并插入一个新的模块。
3、在模块编辑窗口中输入一个函数代码,代码如下:
Function 个人所得税()
curP = curP - 1600 '1600为免征额
If curP > 0 Then
Select Case curP
Case Is
suo = curP * 0.05
Case Is
suo = (curP - 500) * 0.1 + 25
Case Is
suo = (curP - 2000) * 0.15 + 125
Case Is
suo = (curP - 5000) * 0.2 + 375
Case Is
suo = (curP - 20000) * 0.25 + 1375
Case Is
suo = (curP - 40000) * 0.3 + 3375
Case Is
suo = (curP - 60000) * 0.35 + 6375
Case Is
suo = (curP - 80000) * 0.4 + 10375
Case Else
suo = (curP - 100000) * 0.45 + 15375
End Select
个人所得税 = suo
Else
个人所得税 = 0
End If
End Function
4、分析一下代码是主要是每个随征额的确定, 是工资收入越大,则征税比例越高,所以我们需要对工资额进行判定。如果使用if函数则在条件处理上会写的很繁琐,比如这样:
if suo
elseif suo 500 then shuie =(curP - 500) * 0.1 + 25
....
end if
这样写就会很麻烦。
5、接下来我们要写个过程来调用这个函数。代码如下:
Sub 计算()
curP = InputBox("工资")
个人所得税 (curP)
End Sub
6、点击 F5运行“计算 ”过程调用所得税计算函数,就可以得出正确的结果。这里没有写出返回值的语句,大家可以思考一下,返回结果该怎么写。
推荐系统
雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载
系统大小:0MB系统类型:WinXP雨林木风在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业知名品牌,雨林木风WindowsXP其系统口碑得到许多人认可,积累了广大的用户群体,是一款稳定流畅的系统,雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载,有需要的朋友速度下载吧。
系统等级:进入下载 >萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用
系统大小:0MB系统类型:Win7萝卜家园win7纯净版是款非常纯净的win7系统,此版本优化更新了大量的驱动,帮助用户们进行舒适的使用,更加的适合家庭办公的使用,方便用户,有需要的用户们快来下载安装吧。
系统等级:进入下载 >雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载
系统大小:1.01GB系统类型:WinXP雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载,雨林木风WinXP系统技术积累雄厚深耕多年,采用了新的系统功能和硬件驱动,可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,加固了系统安全策略,运行环境安全可靠稳定。
系统等级:进入下载 >萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,(win10企业版,win10 ghost,win10镜像),萝卜家园win10企业版 免激活密钥 激活工具 ghost镜像 X64位系统下载,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园
系统等级:进入下载 >萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园windows10游戏版 win10游戏专业版 ghost X64位 系统下载,萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园win10国内镜像版,基于国内用户的习惯,做
系统等级:进入下载 >windows11下载 萝卜家园win11专业版 X64位 V2023官网下载
系统大小:0MB系统类型:Win11萝卜家园在系统方面技术积累雄厚深耕多年,windows11下载 萝卜家园win11专业版 X64位 官网正式版可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,使得软件在WINDOWS11系统中运行得更加流畅,加固了系统安全策略,WINDOWS11系统在家用办公上跑分表现都是非常优秀,完美的兼容各种硬件和软件,运行环境安全可靠稳定。
系统等级:进入下载 >
热门系统
推荐软件
推荐应用
推荐游戏
热门文章
常用系统
- 1系统之家win7纯净旗舰版 x64位经典版下载 ghost系统下载 联想电脑专用
- 2电脑公司win10纯净版下载 免激活工具 x64位系统下载 GHOST镜像
- 3技术员联盟Win11纯净版 x64尝鲜装机版下载 免激活工具 ghost镜像下载
- 4深度技术年度经典推出Win11稳定版 最新Win11系统 ghost ISO镜像 X64位
- 5windows10稳定版下载 大地系统64位系统 免激活工具 GHOST镜像下载
- 6雨林木风windows11中文版免激活 ghost镜像 V2022.04下载
- 7番茄花园win10完美版 x86旗舰版下载 Ghost系统镜像 免激活密钥下载
- 8大地系统x64位典藏版 win10旗舰版下载 GHOST镜像 联想笔记本专用下载
- 9Windows11无病毒大神版下载 永久免费 萝卜家园x64位游戏版下载 v2023