《EXCEL宏可帮你缴纳印花税》由会员分享，可在线阅读，更多相关《EXCEL宏可帮你缴纳印花税（5页珍藏版）》请在金锄头文库上搜索。
1、EXCEL 宏可帮你缴纳印花税由于公司合同较多， 每次缴印花税时， 计算每份印花税所需要的各面额印花的张数是一 件比较繁琐的事。如：这份合同需要缴纳 23 元的印花税则需要买两张 10 元、一张 2 元、一张 1 元面额的印花。幸好有 Excel 这个财会人员的得力工具，我编写了一段宏代 码来自动帮我计算各面额印花的张数， 既快捷又方便。 想到还有很多同行要做这项工作， 所以写下来与大家共享。具体操作如下：新建一个 Excel 文件存为 stampduty.xls, 进入宏编辑器( Alt+F11 )在 ThisWorkbook 中加入以下代码：印花税各面额印花张数计算程序 BY-RAY DE
2、NG用途 :已知印花税额 ,计算各面额印花张数使用方法 :做好工具条后，只要选择要计算的原始数据,点击 印花税面额计算 工具条即可. ( 请不要选择全列 , 否则无效的计算太多 .)Sub stamp_duty()Static flagcal As Integer 计算标志 ,首次计算时清空计算结果页 ,否则在结果页追加计算 结果Static rowbegain As Integer 计算结果页上可用行号 ,计算结果追加时从这里开始Dim filename As String 打开的需要计算数据的文件名Dim moneytype(7) As Single 定义面额Dim money As Si
3、ngleDim billno As Integer 票额张数filename = ActiveWorkbook.Name 记录当前打开的文件名If filename = VBAProject.ThisWorkbook.Name Then 不要在自身这个文件中操作MsgBox 请选择其它文件中的数据！ , vbInformation + vbOKOnlyExit SubEnd IfApplication.ScreenUpdating = False 将屏幕更新关闭，可加快宏的运行速度bill no = 0 计数清 0moneytype(0) = 100 印花税面额为0.5-100,以0.5为舍入
4、标准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 如果为第一次计算，则清空结果页EXCEL宏可帮你缴纳印花税2001-12-18 Ray Denge企业频道/天极上一页1 2 3 4下一页Cells.SelectSelecti on. ClearC ontentsRan ge(A1).Selec
5、tEnd IfActiveSheet.Cells(1, 1) = Origin DATA 先写上表头For i = 0 To 6ActiveSheet.Cells(1, i + 2) = mon eytype(i)Next iWorkbooks(file name )A ctivate 转到要计算的原始数据数据文件rowno = ActiveWi ndow.Ra ngeSelectio n.Rows.Cou nt 所选区域有几行rowstart = ActiveWi ndow.Ra ngeSelect ion .Row 起始行colstart = ActiveWi ndow.Ra ngeSel
6、ectio n.Colu mn 起始列j = rowbegain 结果页中写结果的起始行For i = 1 To rowno 开始读原始数据origi ndata = Cells(i + rowstart - 1, colstart)读原始数据广州印花税尾数处理方法：过0.5进1,不足舍去，刚好为0.5及其倍数则不变Iforigi ndata * 100 Mod 50 0 The nmoney = Round(origindata, 0) 以 0.5 为界限作四舍五入Elsemoney = origindata 整数及尾数刚好为 0.5不作处理End IfVBAProject.ThisWork
7、book.Sheets(1) Activate 转到结果页EXCEL宏可帮你缴纳印花税2001-12-18 Ray Denge企业频道/天极上一页 1 2 3 4ActiveSheet.Cells(i + 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.Thi
8、sWorkbook.Sheets(1).ActivateActiveSheet.Cells(i + 1 + j, k + 2) = billno 在相应位置写入该面额张数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编好后存盘，退出宏编辑器。开始构建一个工具栏：工具 自定义 ，点击 工具栏-新建，工具栏名称定为“印花税”，这时会出现点击命令，将“命令”列表中任意图标拖动到这个工具栏中， 在刚拖过来的图标上点右键， 选择命名， 将其改为“印花税面额计算”，选择 总是只用文字，这时会出现 丄=在“印花税面额计算”上点一次右键，选择指定宏，选择“ThisWorkbook.stamp_duty ” ，点确定即可。以后要计算时，只要选好原始数据, 点击该工具栏即可。
