Ｅｘｃｅｌ ＶＢ在綜合結轉分步法及其成本還原中的應用

［摘 要］ 目前主流財務軟件尚未解決綜合結轉分步法及其成本還原問題，為此，本文提出了用Excel VB解決實際成本綜合結轉分步法下產品成本計算及成本還原的方案，同時解決費用分配四舍五入的問題，以期實現成本核算的準確性、及時性和自動化，提高財會人員的工作效率。

［關鍵詞］ Excel VB；綜合結轉；分步法；產品成本；成本還原

［中圖分類號］F232［文獻標識碼］A［文章編號］1673-0194(2008)03-0014-03

一、引 言

綜合結轉分步法是大量大批的多步驟生產企業的產品成本計算方法之一，它涉及成本還原。綜合結轉分步法及其成本還原在手工會計中計算較為煩瑣，同時由于成本核算財務軟件的初始設置非常復雜，目前主流財務軟件尚未解決綜合結轉分步法及其成本還原問題。產品成本計算電算化問題的研究成果也不多，鄭翠菊等（2003）用Excel設計了平行結轉分步成本核算系統，宋立（2003）提出了用 Excel進行分品種成本核算的方案，但均未解決綜合結轉分步法及其成本還原問題。申屠新飛（2004）曾用UFO報表系統解決此問題，雖然解決了產品成本計算和成本還原問題，然而采用UFO報表系統且產品成本計算單不具典型性，未解決各月生產費用合計在完工產品與月末在產品間的分配問題。為此，本文提出用Excel VB解決實際成本綜合結轉分步法下產品成本計算及成本還原的新方案，同時解決費用分配四舍五入的問題。

二、解決方案的步驟

為了便于說明，本文將結合實例進行介紹。某企業甲產品經過兩個車間連續加工制成，一車間生產的A半成品，直接轉入二車間加工成甲產成品。原材料于生產開始時一次投入，各車間月末在產品完工程度均為50%，某月有關產量記錄資料和費用記錄資料如圖1所示。各車間生產費用在完工產品和在產品之間的分配采用約當產量比例法。用Excel VB解決實際成本綜合結轉分步法下產品成本計算及成本還原的步驟如下：

（一）用Excel建立工作表

先用Excel建立空白工作表（命名“×月份”），再輸入本月末在產品完工程度、當月產量資料和費用資料等原始數據，合計欄數據采用SUM（）函數自動求和得到（如圖1所示，各車間產品成本明細賬和產品成本還原計算表為空表）。

（二）確定各單元格的運算關系

第一車間產品成本明細賬各單元格的運算關系為：B19=C11；C19=D11；D19=E11；E19=F11；B20=C12；C20=D12；D20=E12；E20=F12；B21=SUM（B19:B20）；C21=SUM（C19:C20）；D21=SUM（D19:D20）；E21=SUM（B21:D21）；B22=B6；C22=B6；D22=B6；B23=B7；C23=B7*B1；D23=B7*B1；D24=SUM（B22:B23）；C24=SUM（C22:C23）；D24=SUM（D22:D23）；B25=ROUND（B21/B24），2）；C25=ROUND（C21/C24，2）；D25=ROUND（D21/D24，2）；E25=SUM（B25:D25）； 26=B25*B22；C26=C25*C22；D26=D25*D22；E26=SUM（B26:D26）；B27=B21-B26；C27=C21-C26；D27=D21-D26；E27=E21-E26。

第二車間產品成本明細賬各單元格的運算關系與第一車間類似，不同之處是B33=E26。

產品成本還原計算表各單元格的運算關系為：C46=B39；E46=C39；F46=D39；G46=E39；D47=B26；E47=C26；F47=D26；G47=E26；B48=ROUND（C46/G47，4）；C48=-C46；D48=ROUND（D47*B48，2）；E48=ROUND（E47*B48，2）；F48=C46-D48-E48；G48=SUM（C48:F48）；C49=C46+C48；D49=D46+D48；E49=E46+E48；F49=F46+F48；G49=G46+G48；D50=ROUND（D49/C6，2）；E50=ROUND（E49/C6，2）；F50=G50-D50-E50；G50=ROUND（G49/C6，2）。

值得注意的是，為使成本數據符合會計習慣，與手工會計一致：金額數字保留到分位，“棋盤式”平衡。各單元格的運算關系涉及乘除的必須采用round（）函數，進行四舍五入保留小數點后兩位處理；同時在產品成本還原計算表中有關單元格的運算關系使用“倒擠法”。

經過上述單元格的運算，即可首次得到各車間成本資料和成本還原資料。以后各月各車間的成本資料和成本還原資料可設計“產品成本自動計算”程序來完成。

（三）“產品成本自動計算”程序設計

先選擇Excel中工具菜單下的“宏\\visual basic編輯器”，然后系統調用VB編輯器，選擇VB編輯器“插入”菜單下的“模塊”，最后在模塊中輸入以下代碼：

行號代 碼

1 Sub 產品成本自動計算（）

2 Sheets（1）.Select

3 Sheets.Add

4 Sheets（2）.Select

5 Cells.Select

6 Selection.Copy

7 Sheets（1）.Select

8 Range（\"A1\"）.Select

9 ActiveSheet.Paste

10Range（\"B1\"）.Select

11Selection.ClearContents

12Range（\"B4:C6\"）.Select

13Selection.ClearContents

14Range（\"C11:E14\"）.Select

15Selection.ClearContents

16Dim str_year As String

17Dim str_month As String

18If （Val（Sheets（2）.Name） + 1） / 12 = 1 Then

19str_month = \"12\"

20Else

21str_month = Trim（Str（（Val（Sheets（2）.Name） + 1） Mod 12））

22End If

23str_year = Str（Val（Sheets（2）.Range（\"A2\"）） + Val（Sheets（2）.Name） \\ 12）

24Sheets（1）.Name = str_month \"月份\"

25Range（\"A2\"）.Value = str_year \"年\" str_month \"月產量記錄資料表\"

26Range（\"A9\"）.Value = str_year \"年\" str_month \"月費用記錄資料表\"

27Range（\"B17\"）.Value = str_year \"年\" str_month \"月\"

28Range（\"B30\"）.Value = str_year \"年\" str_month \"月\"

29Range（\"C43\"）.Value = str_year \"年\" str_month \"月\"

30Range（\"B4\"）.Value = Sheets（2）.Range（\"B7\"）.Value

31Range（\"C4\"）.Value = Sheets（2）.Range（\"C7\"）.Value

32Range（\"C11\"）.Value = Sheets（2）.Range（\"B27\"）.Value

33Range（\"D11\"）.Value = Sheets（2）.Range（\"C27\"）.Value

34Range（\"E11\"）.Value = Sheets（2）.Range（\"D27\"）.Value

35Range（\"C13\"）.Value = Sheets（2）.Range（\"B40\"）.Value

36Range（\"D13\"）.Value = Sheets（2）.Range（\"C40\"）.Value

37Range（\"E13\"）.Value = Sheets（2）.Range（\"D40\"）.Value

38End Sub

（四）運行“產品成本自動計算”程序

選擇“工具”菜單下的“宏”，在宏下拉按鈕中選擇該程序，然后單擊“運行”按鈕即可。然后在“B1”單元格中輸入完工程度百分比，在“產量記錄資料表”中輸入各車間當月“本月投產數量或上步轉入”、“本月完工產品數量”，在“費用記錄資料表”中輸入各車間當月生產費用數據，即可自動生成各車間的產品成本數據和成本還原數據。

三、結束語

本方案的優點主要表現在：第一，速度快，操作方便。第二，解決了期初、期末數據轉換問題，提高工作效率，有一勞永逸的功效：首次使用時，建立5個工作表格，建立數據運算關系即可，以后每月運行“產品成本自動計算”程序，然后輸入該月的月末在產品完工程度、投產數量、完工產品數量、各車間生產費用資料，即可得到相應的資料。第三，解決了費用分配的四舍五入問題和“棋盤式”平衡問題。

需要說明的是：（1）分配“直接材料”的在產品約當量計算方法取決于投料方式，本文是以生產開始時一次性投料為例進行計算，實際工作中，會因投料方式不同而有不同的計算方法，對此需要對有關運算關系公式進行調整。（2）生產費用在完工產品和在產品之間的分配，本文是采用約當產量比例法，至于用其他方法（如不計算在產品成本法、在產品按固定成本計算法、在產品只計算材料成本法、在產品按完工產品成本計算法等）也需要對有關運算關系公式進行適當修改。（3）如果產品生產要經過更多的車間，還需確定增加車間的產品成本明細賬各單元格的運算關系，并對“產品成本自動計算”程序進行修改。

主要參考文獻

［1］ 鄭翠菊等. 用Excel設計的平行結轉分步成本核算系統［J］. 上海會計，2003，（6）.

［2］ 宋立. 用Excel進行分品種成本核算［J］. 時代財會，2003，（1）.

［3］ 申屠新飛. UFO報表系統在逐步綜合結轉分步法中的應用［J］. 中國會計電算化，2004，（4）：41-42.

［4］ 魯亮升. 成本會計教程［M］. 北京：經濟科學出版社，2001：163-176.