由于公司合同较多,每次缴印花税时,计算每份印花税所需要的各面额印花的张数是一件比较繁琐的事。如:这份合同需要缴纳23元的印花税则需要买两张10元、一张2元、一张1元面额的印花。幸好有Excel这个财会人员的得力工具,我编写了一段宏代码来自动帮我计算各面额印花的张数,既快捷又方便。想到还有很多同行要做这项工作,所以写下来与大家共享。具体操作如下:
新建一个Excel文件存为stampduty.xls,进入宏编辑器(Alt+F11)在ThisWorkbook中加入以下代码:
'印花税各面额印花张数计算程序 BY-RAY DENG
'用途:已知印花税额,计算各面额印花张数
'使用方法:做好工具条后,只要选择要计算的原始数据,点击"印花税面额计算"工具条即可.
' (请不要选择全列,否则无效的计算太多.)
'
Sub stamp_duty()
Static flagcal As Integer '计算标志,首次计算时清空计算结果页,否则在结果页追加计算结果