EXCEL宏可幫你繳納印花稅

1、EXCEL 宏可幫你繳納印花稅由于公司合同較多， 每次繳印花稅時， 計算每份印花稅所需要的各面額印花的張數是一 件比較繁瑣的事。如：這份合同需要繳納 23 元的印花稅則需要買兩張 10 元、一張 2 元、一張 1 元面額的印花。幸好有 Excel 這個財會人員的得力工具，我編寫了一段宏代 碼來自動幫我計算各面額印花的張數， 既快捷又方便。 想到還有很多同行要做這項工作， 所以寫下來與大家共享。具體操作如下：新建一個 Excel 文件存為 stampduty.xls, 進入宏編輯器( Alt+F11 )在 ThisWorkbook 中加入以下代碼：'印花稅各面額印花張數計算程序 BY-R

2、AY DENG'用途 :已知印花稅額 ,計算各面額印花張數'使用方法 :做好工具條后，只要選擇要計算的原始數據,點擊 "印花稅面額計算 "工具條即可.' ( 請不要選擇全列 , 否則無效的計算太多 .)Sub stamp_duty()Static flagcal As Integer ' 計算標志 ,首次計算時清空計算結果頁 ,否則在結果頁追加計算 結果Static rowbegain As Integer ' 計算結果頁上可用行號 ,計算結果追加時從這里開始Dim filename As String ' 打開的需要計算數據

3、的文件名Dim moneytype(7) As Single ' 定義面額Dim money As SingleDim billno As Integer ' 票額張數filename = ActiveWorkbook.Name ' 記錄當前打開的文件名If filename = VBAProject.ThisWorkbook.Name Then '不要在自身這個文件中操作MsgBox " 請選擇其它文件中的數據！ ", vbInformation + vbOKOnlyExit SubEnd IfApplication.ScreenUpdat

4、ing = False '將屏幕更新關閉，可加快宏的運行速度bill no = 0 '計數清 0moneytype(0) = 100 '印花稅面額為0.5-100,以0.5為舍入標準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 '如果為第一次計算，則清空

5、結果頁EXCEL宏可幫你繳納印花稅2001-12-18 Ray Denge企業(yè)頻道/天極上一頁1 2 3 4下一頁Cells.SelectSelecti on. ClearC ontentsRan ge("A1").SelectEnd IfActiveSheet.Cells(1, 1) = "Origin DATA"' 先寫上表頭For i = 0 To 6ActiveSheet.Cells(1, i + 2) = mon eytype(i)Next iWorkbooks(file name )A ctivate '轉到要計算的原始數據數

6、據文件rowno = ActiveWi ndow.Ra ngeSelectio n.Rows.Cou nt '所選區(qū)域有幾行rowstart = ActiveWi ndow.Ra ngeSelect ion .Row '起始行colstart = ActiveWi ndow.Ra ngeSelectio n.Colu mn '起始列j = rowbegain '結果頁中寫結果的起始行For i = 1 To rowno '開始讀原始數據origi ndata = Cells(i + rowstart - 1, colstart)'讀原始數據廣州印

7、花稅尾數處理方法：過0.5進1,不足舍去，剛好為0.5及其倍數則不變Iforigi ndata * 100 Mod 50 <> 0 The nmoney = Round(origindata, 0)' 以 0.5 為界限作四舍五入Elsemoney = origindata '整數及尾數剛好為 0.5不作處理End IfVBAProject.ThisWorkbook.Sheets(1) Activate '轉到結果頁EXCEL宏可幫你繳納印花稅2001-12-18 Ray Denge企業(yè)頻道/天極上一頁 1 2 3 4ActiveSheet.Cells(i

8、+ 1 + j, 1) = origi ndata '在第一列寫入原始數據Workbooks(file name )A ctivate ''轉到要計算的原始數據數據文件For k = 0 To 6 '循環(huán)計算各面額所需張數While money >= moneytype(k) money = money - moneytype(k)billno = billno + 1WendVBAProject.ThisWorkbook.Sheets(1).ActivateActiveSheet.Cells(i + 1 + j, k + 2) = billno '

9、; 在相應位置寫入該面額張數billno = 0 ' 清 0準備計算下一面額Workbooks(filename).ActivateNext krowbegain = rowbegain + 1 ' 結果頁中寫結果的起始行下移一行 Next iflagcal = flagcal + 1 ' 計算次數累加rowbegain = rowbegain + 1 ' 添加一空行區(qū)分不同次數的結果Application.ScreenUpdating = True ' 恢復屏幕刷新 VBAProject.ThisWorkbook.Sheets(1).Activate ' 打開結果頁End Sub編好后存盤，退出宏編輯器。開始構建一個工具欄：工具 自定義 ，點擊 工具欄-新建，工具欄名稱定為“印花稅”，這時會出現(xiàn)點擊命令，將“命令”列表中任意圖標拖