论文部分内容阅读
［摘 要］ 目前主流财务软件尚未解决综合结转分步法及其成本还原问题，为此，本文提出了用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
［关键词］ 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