| 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 |
管理通道
|
|
打印本页
发E-mail推荐给朋友