| EXCEL宏可帮你缴纳印花税-连载 |
|
Ray Deng · 2002-8-29 · 浏览人数:431
|
| 请记下上海电脑维修上门服务电话:021-61121021,以备急用!(嘉定,青浦,普陀,闵行,松江)
|
由于公司合同较多,每次缴印花税时,计算每份印花税所需要的各面额印花的张数是一件比较繁琐的事。如:这份合同需要缴纳23元的印花税则需要买两张10元、一张2元、一张1元面额的印花。幸好有Excel这个财会人员的得力工具,我编写了一段宏代码来自动帮我计算各面额印花的张数,既快捷又方便。想到还有很多同行要做这项工作,所以写下来与大家共享。具体操作如下: 新建一个Excel文件存为stampduty.xls,进入宏编辑器(Alt+F11)在ThisWorkbook中加入以下代码:
‘印花税各面额印花张数计算程序 BY-RAY DENG
‘用途:已知印花税额,计算各面额印花张数
‘使用方法:做好工具条后,只要选择要计算的原始数据,点击”印花税面额计算”工具条即可.
‘ (请不要选择全列,否则无效的计算太多.)
‘
Sub stamp_duty()
Static flagcal As Integer ‘计算标志,首次计算时清空计算结果页,否则在结果页追加计算结果
Static rowbegain As Integer ‘计算结果页上可用行号,计算结果追加时从这里开始
Dim filename As String ‘打开的需要计算数据的文件名
Dim moneytype(7) As Single ‘定义面额
Dim money As Single
Dim billno As Integer ‘票额张数
filename = ActiveWorkbook.Name ‘记录当前打开的文件名
If filename = VBAProject.ThisWorkbook.Name Then ‘不要在自身这个文件中操作
MsgBox ”请选择其它文件中的数据!”, vbInformation + vbOKOnly
Exit Sub
End If
Application.ScreenUpdating = False ‘将屏幕更新关闭,可加快宏的运行速度
billno = 0 ‘计数清0
moneytype(0) = 100 ‘印花税面额为0.5-100,以0.5为舍入标准
moneytype(1) = 50
moneytype(2) = 10
moneytype(3) = 5
moneytype(4) = 2
moneytype(5) = 1
moneytype(6) = 0.5
VBAProject.ThisWorkbook.Sheets(1).Activate ‘打开结果页
If flagcal = 0 Then ‘如果为第一次计算,则清空结果页
|
|
|
| |
·连载文章 ·EXCEL宏可帮你缴纳印花税(2)
|
|
|
|
|
|
发表评语
|
| 文章原网址:http://www.yesky.com/20011218/210449.shtml |
管理通道
|
|