EXCEL宏可帮你缴纳印花税

1、EXCEL 宏可帮你缴纳印花税由于公司合同较多， 每次缴印花税时， 计算每份印花税所需要的各面额印花的张数是一 件比较繁琐的事。如：这份合同需要缴纳 23 元的印花税则需要买两张 10 元、一张 2 元、一张 1 元面额的印花。幸好有 Excel 这个财会人员的得力工具，我编写了一段宏代 码来自动帮我计算各面额印花的张数， 既快捷又方便。 想到还有很多同行要做这项工作， 所以写下来与大家共享。具体操作如下：新建一个 Excel 文件存为 stampduty.xls, 进入宏编辑器( Alt+F11 )在 ThisWorkbook 中加入以下代码：'印花税各面额印花张数计算程序 BY-R

2、AY DENG'用途 :已知印花税额 ,计算各面额印花张数'使用方法 :做好工具条后，只要选择要计算的原始数据,点击 "印花税面额计算 "工具条即可.' ( 请不要选择全列 , 否则无效的计算太多 .)Sub stamp_duty()Static flagcal As Integer ' 计算标志 ,首次计算时清空计算结果页 ,否则在结果页追加计算 结果Static rowbegain As Integer ' 计算结果页上可用行号 ,计算结果追加时从这里开始Dim filename As String ' 打开的需要计算数据

3、的文件名Dim moneytype(7) As Single ' 定义面额Dim money As SingleDim billno As Integer ' 票额张数filename = ActiveWorkbook.Name ' 记录当前打开的文件名If filename = VBAProject.ThisWorkbook.Name Then '不要在自身这个文件中操作MsgBox " 请选择其它文件中的数据！ ", vbInformation + vbOKOnlyExit SubEnd IfApplication.ScreenUpdat

4、ing = False '将屏幕更新关闭，可加快宏的运行速度bill no = 0 '计数清 0moneytype(0) = 100 '印花税面额为0.5-100,以0.5为舍入标准mon eytype(1) = 50mon eytype (2) = 10mon eytype(3) = 5mon eytype(4) = 2mon eytype(5) = 1mon eytype(6) = 0.5VBAProject.ThisWorkbook.Sheets(1) Activate '打开结果页If flagcal = 0 Then '如果为第一次计算，则清空

5、结果页EXCEL宏可帮你缴纳印花税2001-12-18 Ray Denge企业频道/天极上一页1 2 3 4下一页Cells.SelectSelecti on. ClearC ontentsRan ge("A1").SelectEnd IfActiveSheet.Cells(1, 1) = "Origin DATA"' 先写上表头For i = 0 To 6ActiveSheet.Cells(1, i + 2) = mon eytype(i)Next iWorkbooks(file name )A ctivate '转到要计算的原始数据数

6、据文件rowno = ActiveWi ndow.Ra ngeSelectio n.Rows.Cou nt '所选区域有几行rowstart = ActiveWi ndow.Ra ngeSelect ion .Row '起始行colstart = ActiveWi ndow.Ra ngeSelectio n.Colu mn '起始列j = rowbegain '结果页中写结果的起始行For i = 1 To rowno '开始读原始数据origi ndata = Cells(i + rowstart - 1, colstart)'读原始数据广州印

7、花税尾数处理方法：过0.5进1,不足舍去，刚好为0.5及其倍数则不变Iforigi ndata * 100 Mod 50 <> 0 The nmoney = Round(origindata, 0)' 以 0.5 为界限作四舍五入Elsemoney = origindata '整数及尾数刚好为 0.5不作处理End IfVBAProject.ThisWorkbook.Sheets(1) Activate '转到结果页EXCEL宏可帮你缴纳印花税2001-12-18 Ray Denge企业频道/天极上一页 1 2 3 4ActiveSheet.Cells(i

8、+ 1 + j, 1) = origi ndata '在第一列写入原始数据Workbooks(file name )A ctivate ''转到要计算的原始数据数据文件For k = 0 To 6 '循环计算各面额所需张数While money >= moneytype(k) money = money - moneytype(k)billno = billno + 1WendVBAProject.ThisWorkbook.Sheets(1).ActivateActiveSheet.Cells(i + 1 + j, k + 2) = billno '

9、; 在相应位置写入该面额张数billno = 0 ' 清 0准备计算下一面额Workbooks(filename).ActivateNext krowbegain = rowbegain + 1 ' 结果页中写结果的起始行下移一行 Next iflagcal = flagcal + 1 ' 计算次数累加rowbegain = rowbegain + 1 ' 添加一空行区分不同次数的结果Application.ScreenUpdating = True ' 恢复屏幕刷新 VBAProject.ThisWorkbook.Sheets(1).Activate ' 打开结果页End Sub编好后存盘，退出宏编辑器。开始构建一个工具栏：工具 自定义 ，点击 工具栏-新建，工具栏名称定为“印花税”，这时会出现点击命令，将“命令”列表中任意图标拖