|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
2019年实施的新个税方案需要先申报个人所得税专项扣除信息。
申报之后可以下载我们申报的内容。
这个巨集是专门用来从下载后的信息表中提取资料。分享给大家。
首先是自己把需要整理的申报表放在一个workbook中。然后运行这个代码。
- Sub 个税提取()
- Dim br(65536, 20)
- Dim a, b, c, x, y, r, rx, ry, n, item
- For Each sht In Sheets
- sht.Activate
- If [a2] <> "个人所得税专项附加扣除信息表" Then GoTo nextsht
- rx = Cells(Rows.Count, 1).End(xlUp).Row
- ry = Cells(5, Columns.Count).End(xlToLeft).Column
- ar = Range(Cells(1, 1), Cells(rx, ry))
- item = item + 1
- br(item - 1, 0) = ar(4, 2) '姓名
- br(item - 1, 1) = "'" & ar(4, 6) '身份证
- br(item - 1, 2) = "'" & ar(5, 7) '手机号码
- '子女扣除
- n = Application.CountIf(Cells, "本人扣除比例")
- For c = 1 To n
- br(item - 1, 3) = br(item - 1, 3) + 1000 * ar(10 + c * 4, 7) / 100
- br(item - 1, 4) = br(item - 1, 4) & "," & ar(7 + c * 4, 3)
- Next c
- br(item - 1, 4) = Mid(br(item - 1, 4), 2, 99) '"共" & c & "个小孩,他们是:" &
- '教育扣除
- c = Application.Match("当前继续教育起始时间", Application.Index(ar, , 2), 0)
- If ar(c, 3) <> "" Then br(item - 1, 5) = 400: br(item - 1, 6) = ar(c, 7) & ar(c, 3)
- '住房贷款
- c = Application.Match("房屋证书号码", Application.Index(ar, , 6), 0)
- If ar(c + 1, 7) = "是" Then br(item - 1, 7) = 500: br(item - 1, 8) = ar(c + 4, 7)
- If ar(c + 1, 7) = "否" Then br(item - 1, 7) = 1000: br(item - 1, 8) = ar(c + 4, 7)
- '租房
- c = Application.Match("租赁期止", Application.Index(ar, , 6), 0)
- If ar(c, 7) <> "" Then br(item - 1, 9) = 1500: br(item - 1, 10) = ar(c - 3, 3)
- '赡养老人
- c = Application.Match("本年度月扣除金额", Application.Index(ar, , 6), 0)
- If ar(c, 7) <> "" Then br(item - 1, 11) = ar(c, 7): br(item - 1, 12) = ar(c, 2)
- '大病扣除
- c = Application.Match("与纳税人关系", Application.Index(ar, , 6), 0)
- If ar(c - 1, 3) <> "" Then br(item - 1, 13) = ar(c, 5): br(item - 1, 14) = ar(c - 1, 3)
- '合计扣除
- br(item - 1, 15) = br(item - 1, 3) + br(item - 1, 5) + br(item - 1, 7) + br(item - 1, 9) + br(item - 1, 11) + br(item - 1, 13)
- nextsht:
- Next sht
- Sheets("1").Activate
- Sheets.Add: [a2].Resize(item, 16) = br: [a1].Resize(1, 16) = Split("姓名,身份证,手机,子女扣除,子女,教育扣除,教育,贷款扣除,贷款银行,租房扣除,出租房,赡养扣除,是否独生子女,大病扣除,大病人,合计扣除", ",")
- ' Stop
- End Sub
复制代码
补充内容 (2019-1-22 20:52):
那个比较好用的模板在25楼,谁能帮忙把那个附件提到第一页来,让大家不必走弯路。
希望我的努力能帮助到大家。
补充内容 (2019-1-26 17:01):
刚看了个人所得税的系统,系统已经更新,可以从系统直接引出已申报数据。 |
评分
-
1
查看全部评分
-
|