excel如何使用vba制作个人所得税计算器
作者：king发布时间：2023-08-12分类：办公软件浏览：15
导读： excel如何使用[使用是一个汉语词汇，读音为shǐyòng，使人员、器物、资金等为某种目的的服务。]vba制作个人所得税[个人所得税（personalincometa...
excel如何使用[使用是一个汉语词汇，读音为shǐyòng，使人员、器物、资金等为某种目的的服务。]vba制作个人所得税[个人所得税（personal income tax）是调整征税机关与自然人（居民、非居民人）之间在个人所得税的征纳与管理过程中所发生的社会关系的法律规范的总称。]计算[计算与人类由于现代人类各个课题学科繁多,涉及面广,而分类又细。]器?下面一起来看看。 1、首先我们打开[打开，是一种常用的动词，它指的是，把器皿或盒子的盖子掀开。]一个工作样表作为例子。 
2、打开vba编辑[编辑是一种工作，也是一类职业身份。]窗口[①窗户②窗户跟前：站在窗口远望。]，使用 alt+f11组合快捷键[快捷键，又叫快速键或热键，指通过某些特定的按键、按键顺序或按键组合来完成一个操作，很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。] ，或是使用开发者工具标签下的 vb快捷按钮 。并插入一个新的模块[模块是对词条中部分内容进行格式化整理的模板。]。 3、在模块编辑窗口中输入一个函数代码[代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。]，代码如下[如下，指如同下面所叙述或列举的。]： Function 个人所得税() curP = curP - 1600 '1600为免征额 If curP > 0 Then Select Case curP Case Is <= 500 suo = curP * 0.05 Case Is <= 2000 suo = (curP - 500) * 0.1 + 25 Case Is <= 5000 suo = (curP - 2000) * 0.15 + 125 Case Is <= 20000 suo = (curP - 5000) * 0.2 + 375 Case Is <= 40000 suo = (curP - 20000) * 0.25 + 1375 Case Is < 60000 suo = (curP - 40000) * 0.3 + 3375 Case Is < 80000 suo = (curP - 60000) * 0.35 + 6375 Case Is < 100000 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<500 then shuie =curP * 0.05 elseif suo <=2000 and suo > 500 then shuie =(curP - 500) * 0.1 + 25 .... end if 这样写就会很麻烦。 5、接下来我们要写个过程来调用[call（调用）用于将程序的执行交给其他的代码段，通常是一个子例程，同时保存必要的信息，从而使被调用段执行完毕后返回到调用点继续执行。]这个函数。代码如下： Sub 计算() curP = InputBox("工资") 个人所得税 (curP) End Sub 6、点击 F5运行“计算 ”过程调用所得税计算函数，就可以得出正确的结果。这里没有写出返回值的语句，大家可以思考一下，返回结果该怎么写。 86％的科技爱好者也看的内容：菜鸟游戏如何联机？怎么使用手机能保护主板？on+the+internet是什么意思？为什么我家电脑网线插上去之后灯不亮？怎么钩杯子套？lol中刀锋怎么玩？求鸿业授权码？手机屏幕变大怎么还原？
2、打开vba编辑[编辑是一种工作，也是一类职业身份。]窗口[①窗户②窗户跟前：站在窗口远望。]，使用 alt+f11组合快捷键[快捷键，又叫快速键或热键，指通过某些特定的按键、按键顺序或按键组合来完成一个操作，很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。] ，或是使用开发者工具标签下的 vb快捷按钮 。并插入一个新的模块[模块是对词条中部分内容进行格式化整理的模板。]。 3、在模块编辑窗口中输入一个函数代码[代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。]，代码如下[如下，指如同下面所叙述或列举的。]： Function 个人所得税() curP = curP - 1600 '1600为免征额 If curP > 0 Then Select Case curP Case Is <= 500 suo = curP * 0.05 Case Is <= 2000 suo = (curP - 500) * 0.1 + 25 Case Is <= 5000 suo = (curP - 2000) * 0.15 + 125 Case Is <= 20000 suo = (curP - 5000) * 0.2 + 375 Case Is <= 40000 suo = (curP - 20000) * 0.25 + 1375 Case Is < 60000 suo = (curP - 40000) * 0.3 + 3375 Case Is < 80000 suo = (curP - 60000) * 0.35 + 6375 Case Is < 100000 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<500 then shuie =curP * 0.05 elseif suo <=2000 and suo > 500 then shuie =(curP - 500) * 0.1 + 25 .... end if 这样写就会很麻烦。 5、接下来我们要写个过程来调用[call（调用）用于将程序的执行交给其他的代码段，通常是一个子例程，同时保存必要的信息，从而使被调用段执行完毕后返回到调用点继续执行。]这个函数。代码如下： Sub 计算() curP = InputBox("工资") 个人所得税 (curP) End Sub 6、点击 F5运行“计算 ”过程调用所得税计算函数，就可以得出正确的结果。这里没有写出返回值的语句，大家可以思考一下，返回结果该怎么写。 86％的科技爱好者也看的内容：菜鸟游戏如何联机？怎么使用手机能保护主板？on+the+internet是什么意思？为什么我家电脑网线插上去之后灯不亮？怎么钩杯子套？lol中刀锋怎么玩？求鸿业授权码？手机屏幕变大怎么还原？