1.需求：计算个人所得税

2.代码：

Sub 计算()For i = 2 To 9Sheets(1).Cells(i, 3).Value = 个人所得税(Sheets(1).Cells(i, 2).Value)NextEnd Sub
Function 个人所得税(curP As Currency)curP = curP - 1600   '1600为免征额If curP > 0 ThenSelect Case curPCase Is <= 500suo = curP * 0.05Case Is <= 2000suo = (curP - 500) * 0.1 + 25Case Is <= 5000suo = (curP - 2000) * 0.15 + 125Case Is <= 20000suo = (curP - 5000) * 0.2 + 375Case Is <= 40000suo = (curP - 20000) * 0.25 + 1375Case Is < 60000suo = (curP - 40000) * 0.3 + 3375Case Is < 80000suo = (curP - 60000) * 0.35 + 6375Case Is < 100000suo = (curP - 80000) * 0.4 + 10375Case Elsesuo = (curP - 100000) * 0.45 + 15375End Select个人所得税 = suoElse个人所得税 = 0End IfEnd Function

3.效果

18.Excel vba开发-计算个人所得税相关推荐

Excel VBA开发中数字签名的管理
Excel 禁用无数字签署的宏网上下载的Excel文件可能含有宏病毒,因此打开Excel文件时最好不要轻易启动宏,同时为了不让"启动宏"的提示每次出现,可以在Excel设置中提高 ...
Excel VBA开发自动发送邮件
一..设置Outlook邮箱帐(略不是本文章的重点) 二..设置Outlook信任中心如下步骤若没有做如下操作设置,则Excel VBA调用Outlook自动发送邮件时提示如下 2.1 Outloo ...
【一】Excel VBA开发初探
一.启用Excel VBA开发功能 1.点击Excel左上角的[文件],然后点击文件下方的[选项] 2.[Excel选项]中点击[自定义功能区],右边勾选[开发工具],点击[确定] 3.返回excel ...
Excel vba开发合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等功能
写在前面: 最近老大丢给我一个数据量比较大,比较复杂的表,让我用VB去处理,刚被分到这个任务的时候一脸茫然,对Excel VB开发一点都不了解,所以就自己研究并查资料,最后终于解决了. 一.Excel ...
利用Excel VBA批量计算长时间序列植被物候动态阈值（逐像元）
本文演示利用Excel VBA编程实现多期栅格数据,逐像元计算物候参数:生长季始期(SOS).生长季末期(EOS)和生长季长度(LOS),计算过程速度快! 说明: (1)利用Raster to Poi ...
Excel·VBA一键计算每月合计
<vba吧提问-怎么写每月合计的代码>,对表格中每月合计的行进行计算 Sub 选中列每月合计()'适用单/多列选中.单/多列部分选中Dim rng As Range, first_row, ...
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
气象数据是地理数据的重要组成部分,存储量虽然不大,但是处理过程非常繁琐,长时序数据更不用说.本文总结了一个气象数据的基本处理方法. 如下图所示,气象数据的排列格式是区站号→年→月→降水量→平均气温,时 ...
利用Excel函数多角度计算个人所得税
新个税征收方法已与2011年9月1日起施行,但计算方法变更改后,有关这方面的计算方法在网络论坛上讨论较多,但在新旧交替时期正误混杂,新人难以分辨.在现实中根本就找不到这方面的经典计算方法,ExcelH ...
Excel VBA：计算BOM*Planning
前面已经使用VBA对所有生产线的排产进行了汇总,以及从Oracle中分解BOM直至采购层. 接下来,我们实现将成品的Planning,转换为物料的Planning: 基础资料: 1,BOM的格式: 2 ...
1.Excel vba开发-处理空格数据
需求:excel表格数据中有的表格存在多余的空格,需要删除多余的空格. 代码 '清除所有sheet页中单元格两端的空格 Public Sub trimCell()Dim sheetCount, col ...

18.Excel vba开发-计算个人所得税

1.需求：计算个人所得税

2.代码：

3.效果

18.Excel vba开发-计算个人所得税相关推荐

最新文章

热门文章