EXCEL宏可帮你缴纳印花税教学内容

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

2、ook中加入以下代码：印花税各面额印花张数计算程序BY-RAYDENG用途:已知印花税额,计算各面额印花张数使用方法:做好工具条后，只要选择要计算的原始数据,点击印花税面额计算工具条即可.(请不要选择全列,否则无效的计算太多.)Substamp_duty()StaticflagcalAsInteger计算标志,首次计算时清空计算结果页,否则在结果页追加计算结果StaticrowbegainAsInteger计算结果页上可用行号,计算结果追加时从这里开始DimfilenameAsString打开的需要计算数据的文件名Dimmoneytype(7)AsSingle定义面额DimmoneyAsSin

3、gleDimbillnoAsInteger票额张数filename=ActiveWorkbook.Name记录当前打开的文件名Iffilename=VBAProject.ThisWorkbook.NameThen不要在自身这个文件中操作MsgBox请选择其它文件中的数据！,vbInformation+vbOKOnlyExitSubEndIfApplication.ScreenUpdating=False将屏幕更新关闭,可加快宏的运行速度billno=0计数清0moneytype(0)=100印花税面额为0.5-100,以0.5为舍入标准moneytype(1)=50moneytype(2)=1

4、0moneytype(3)=5moneytype(4)=2moneytype(5)=1moneytype(6)=0.5VBAProject.ThisWorkbook.Sheets(1).Activate打开结果页Ifflagcal=0Then如果为第一次计算,则清空结果页EXCEL宏可帮你缴纳印花税2001-12-18RayDenge企业频道/天极HYPERLINK/20011218/210449_1.shtml上一页HYPERLINK/20011218/210449.shtml1HYPERLINK/20011218/210449_1.shtml23HYPERLINK/20011218/210

5、449_3.shtml4HYPERLINK/20011218/210449_3.shtml下一页Cells.SelectSelection.ClearContentsRange(A1).SelectEndIfActiveSheet.Cells(1,1)=OriginDATA先写上表头Fori=0To6ActiveSheet.Cells(1,i+2)=moneytype(i)NextiWorkbooks(filename).Activate转到要计算的原始数据数据文件rowno=ActiveWindow.RangeSelection.Rows.Count所选区域有几行rowstart=Activ

6、eWindow.RangeSelection.Row起始行colstart=ActiveWindow.RangeSelection.Column起始列j=rowbegain结果页中写结果的起始行Fori=1Torowno开始读原始数据origindata=Cells(i+rowstart-1,colstart)读原始数据广州印花税尾数处理方法:过0.5进1,不足舍去,刚好为0.5及其倍数则不变Iforigindata*100Mod500Thenmoney=Round(origindata,0)以0.5为界限作四舍五入Elsemoney=origindata整数及尾数刚好为0.5不作处理EndI

7、fVBAProject.ThisWorkbook.Sheets(1).Activate转到结果页EXCEL宏可帮你缴纳印花税2001-12-18RayDenge企业频道/天极HYPERLINK/20011218/210449_2.shtml上一页HYPERLINK/20011218/210449.shtml1HYPERLINK/20011218/210449_1.shtml2HYPERLINK/20011218/210449_2.shtml34ActiveSheet.Cells(i+1+j,1)=origindata在第一列写入原始数据Workbooks(filename).Activate转

8、到要计算的原始数据数据文件Fork=0To6循环计算各面额所需张数Whilemoney=moneytype(k)money=money-moneytype(k)billno=billno+1WendVBAProject.ThisWorkbook.Sheets(1).ActivateActiveSheet.Cells(i+1+j,k+2)=billno在相应位置写入该面额张数billno=0清0准备计算下一面额Workbooks(filename).ActivateNextkrowbegain=rowbegain+1结果页中写结果的起始行下移一行Nextiflagcal=flagcal+1计算次数累加rowbegain=rowbegain+1添加一空行区分不同次数的结果Application.ScreenUpdating=True恢复屏幕刷新VBAProject.ThisWorkbook.Sheets(1).Activate打开结果页EndSub编好后存盘，退出宏编辑器。开始构建一个工具栏：工具自定义，点击工具栏-新建，工具栏名称定为“印花税”，这时会出现，点击命令，将“命令”列表中任意图标拖动