２４５

科技资讯

　科技资讯　ＳＣＩＥＮＣＥ　＆　ＴＥＣＨＮＯＬＯＧＹ　ＩＮＦＯＲＭＡＴＩＯＮ

２００８　　ＮＯ．０７

ＳＣＩＥＮＣＥ　＆　ＴＥＣＨＮＯＬＯＧＹ　ＩＮＦＯＲＭＡＴＩＯＮ

学　术　论　坛

［２］　柯晓明．控制催化裂化再生烟气中ＳＯｘ排

放的技术［Ｊ］．炼油设计，１９９９，２９（８）：５１～
５４．

［３］　Ｋｅｖｉｎ　Ｒ．　Ｇｉｌｍａｎ，　Ｈｕｇｕｅｓ　Ｂ．　Ｖｉｎｃｅｎｔ

ａｎｄ　Ｔｈｏｍａｓ　Ｆ．　Ｗａｌｋｅｒ．　Ｔｈｅ　Ｃｏｓｔ　ｏｆ
Ｃｏｎｔｒｏｌｌｉｎｇ　Ａｉｒ　Ｅｍｉｓｓｉｏｎｓ　Ｇｅｎｅｒａｔｅｄ
ｂｙ　ＦＣＣＵ ’ｓ．　ＮＰＲＡ．　ＡＭ－９８－１５．

［４］　Ａｎｄｒｅａ　Ａｍｏｒｏｓｏ，　Ｎｉｃｈｏｌａｓ　Ｃｏｎｆｕｏｒｔｏ．

Ｒｅｐｏｒｔ　ｏｎ　ｔｈｅ　ＬＡＢＳＯＲＢＴＭ　Ｒｅｇｅｎ－
ｅｒａｔｉｖｅ　ＳＯ２　Ｓｃｒｕｂｂｉｎｇ　Ｓｙｓｔｅｍ　Ａｐｐｌｉ－
ｃａｔｉｏｎ　ａｔ　ｔｈｅ　Ｅｎｉ　Ｓ．ｐ．Ａ　Ｒｅｆｉｎｅｒｙ　ＦＣＣＵ
ｉｎ　Ｓａｎｎａｚｚａｒｏ，　Ｉｔａｌｙ．　ＡＭ－０５－３３．

［５］　杨秀霞，董家谋．控制催化裂化装置烟气中

硫化物排放的技术［Ｊ］．石化技术，２００１，８
（２）：１２６～１３０．

［６］　刘鸿元．　ＴＨＩＯＰＡＱ生物脱硫技术［Ｊ］．中

氮肥，２００２（５）：５３～５７．

［７］　Ｅｄｗｉｎ　Ｈ．　Ｗｅａｖｅｒ，　Ｓｃｏｔｔ　Ｔ　Ｅａｇｌｅｓｏｎ．

ＦＣＣＵ　Ｐａｒｔｉｃｕｌａｔｅ　Ｅｍｉｓｓｉｏｎｓ　Ｃｏｎｔｒｏｌ
ｆｏｒ　ｔｈｅ　Ｒｅｆｉｎｅｒｙ　ＭＡＣＴ　Ⅱ　Ｓｔａｎｄａｒｄ
－ｓｙｓｔｅｍ　Ｄｅｓｉｇｎ　ｆｏｒ　ｔｈｅ　２１ｓｔＣｅｎｔｕｒｙ．
ＮＰＲＡ．　ＡＭ－９９－１８．

［８］　Ｗｉｌｌｉａｍ　Ｂａｎｄｙ，　Ｄｒ．　Ｇｅｂｈａｒｄ　Ｂａｎｄｅｌ．

Ｉｎｔｅｇｒａｔｅｄ　Ｅｎｖｉｒｏｎｍｅｎｔａｌ　Ｓｏｌｕｔｉｏｎ　ｆｏｒ
ＦＣＣＵ　ＳＯ２ — ＳＯ３ — ＰＭ２．５　Ｅｍｉｓｓｉｏｎｓ．
ＮＰＲＡ　ＡＭ－０５－６５．

［９］　Ｓｔｅｖｅｎ　Ｆ　Ｍｅｙｅｒ，　Ｄｙｎａｗａｖｅ　Ｗｅｔ　Ｇａｓ

Ｓｃｒｕｂｂｉｎｇ：　Ａ　Ｎｅｗ　Ａｌｔｅｒｎａｔｉｖｅ　ｆｏｒ　Ｃｌａｕｓ
Ｕｎｉｔ　Ｔａｉｌ　Ｇａｓ　Ｔｒｅａｔｉｎｇ．　ＮＰＲＡ　ＡＭ－
０６－６１．

分项结转分步法是大量大批多步骤生产

企业的产品成本计算方法之一。这种方法手
工计算较为繁琐，同时由于成本核算财务软件
的初始设置非常复杂，目前主流财务软件尚未
解决其电算化问题。产品成本计算电算化问
题的研究成果也不多。郑翠菊（２００３）、孙红旗
（２００２）、宋立（２００３）、刘曜（２００１）初步了提出
用Ｅｘｃｅｌ解决产品成本核算问题，然而均未解
决循环问题。为此，本文提出用ＥｘｃｅｌＶＢ解决
分项结转分步法计算产品成本的方案，并实现
循环，以期实现成本核算的准确性、及时性和
自动化，提高财会人员的工作效率；也期望在
应用ＥｘｃｅｌＶＢ解决其他产品成本计算方法方
面起到抛砖引玉的作用。

１　解决方案的步骤

为了便于说明，本文将结合实例进行介

绍。某企业甲产品经过二个车间连续加工制
成，一车间生产的Ａ半成品，直接转入二车间
加工成甲产成品。原材料于生产开始时一次
投入，各车间月末在产品完工程度均为５０％，
某月有关产量记录资料和费用记录资料如图１
中表１、表２所示。各车间生产费用在完工
产品和在产品之间的分配采用约当产量比例
法。用ＥｘｃｅｌＶＢ解决分项结转分步法下产品
成本计算的步骤如下：
１．１　用Ｅｘｃｅｌ建立工作表

先用Ｅｘｃｅｌ建立空白工作表（命名“×月

份”），再输入本月末在产品完工程度、当月
产量记录资料和生产费用记录资料等原始数
据（如图１所示，各车间产品成本明细账为空
表）。
１．２　确定各单元格的运算关系

产量记录资料表各单元格的运算关系为：

Ｃ９＝Ｃ６＋Ｃ７－Ｃ８；Ｄ７＝Ｃ８；Ｄ９＝Ｄ６＋Ｄ７－Ｄ８。

第一车间产品成本明细账各单元格的运

算关系为：Ｂ２３＝Ｂ１６；Ｃ２３＝Ｄ１６；Ｄ２３＝Ｆ１６；
Ｅ２３＝Ｂ２３＋Ｃ２３＋Ｄ２３；Ｂ２４＝Ｈ１６；Ｃ２４＝Ｉ１６；
Ｄ２４＝Ｊ１６；Ｅ２４＝Ｂ２４＋Ｃ２４＋Ｄ２４；Ｂ２５＝Ｂ２３
＋Ｂ２４；Ｃ２５＝Ｃ２３＋Ｃ２４；Ｄ２５＝Ｄ２３＋Ｄ２４；
Ｅ２５＝Ｅ２３＋Ｅ２４；Ｂ２６＝Ｃ８；Ｃ２６＝Ｃ８；Ｄ２６＝Ｃ８；
Ｂ２７＝Ｃ９；Ｃ２７＝Ｃ９＊Ｂ１；Ｄ２７＝Ｃ９＊Ｂ１；
Ｂ２８＝Ｂ２６＋Ｂ２７；Ｃ２８＝Ｃ２６＋Ｃ２７；Ｄ２８＝Ｄ２６＋
Ｄ２７；Ｂ２９＝ＲＯＵＮＤ（Ｂ２５／Ｂ２８，２）；
Ｃ２９＝ＲＯＵＮＤ（Ｃ２５／Ｃ２８，２）；Ｄ２９＝ＲＯＵＮＤ
（Ｄ２５／Ｄ２８，２）；Ｅ２９＝Ｂ２９＋Ｃ２９＋Ｄ２９；
Ｂ３０＝ＲＯＵＮＤ（Ｂ２６＊Ｂ２９，２）；

图１　　分项结转分步法产品成本计算图
Ｃ３０＝ＲＯＵＮＤ（Ｃ２６＊Ｃ２９，２）；Ｄ３０＝

ＲＯＵＮＤ（Ｄ２６＊Ｄ２９，２）；Ｅ３０＝Ｂ３０＋Ｃ３０＋Ｄ３０；
Ｂ３１＝Ｂ２５－Ｂ３０；Ｃ３１＝Ｃ２５－Ｃ３０；Ｄ３１＝Ｄ２５－
Ｄ３０；Ｅ３１＝Ｅ２５－Ｅ３０。

第二车间产品成本明细账各单元格的运

算关系为：Ｂ３７＝Ｃ１７；Ｄ３７＝Ｅ１７；Ｅ３７＝Ｄ１７；
Ｆ３７＝Ｇ１７；Ｇ３７＝Ｆ１７；Ｈ３７＝Ｂ３７＋Ｃ３７
＋Ｄ３７＋Ｅ３７＋Ｆ３７＋Ｇ３７；Ｅ３８＝Ｉ１７；Ｇ３８＝Ｊ１７；
Ｈ３８＝Ｂ３８＋Ｃ３８＋Ｄ３８＋Ｅ３８＋Ｆ３８＋Ｇ３８；
Ｂ３９＝Ｂ３０；Ｄ３９＝Ｃ３０；Ｆ３９＝Ｄ３０；Ｈ３９＝Ｅ３０；
Ｂ４０＝Ｂ３７＋Ｂ３８＋Ｂ３９；Ｄ４０＝Ｄ３７＋Ｄ３８＋Ｄ３９；
Ｅ４０＝Ｅ３７＋Ｅ３８＋Ｅ３９；Ｆ４０＝Ｆ３７＋Ｆ３８＋Ｆ３９；
Ｇ４０＝Ｇ３７＋Ｇ３８＋Ｇ３９；Ｈ４０＝Ｈ３７＋Ｈ３８＋Ｈ３９；
Ｂ４１＝Ｄ８；Ｄ４１＝Ｄ８；Ｅ４１＝Ｄ８；Ｆ４１＝Ｄ８；
Ｇ４１＝Ｄ８；Ｂ４２＝Ｄ９；Ｄ４２＝Ｄ９；Ｅ４２＝Ｄ９＊Ｂ１；
Ｆ４２＝Ｄ９；Ｇ４２＝Ｄ９＊Ｂ１；Ｂ４３＝Ｂ４１＋Ｂ４２；Ｄ４３＝
Ｄ４１＋Ｄ４２；Ｅ４３＝Ｅ４１＋Ｅ４２；Ｆ４３＝Ｆ４１＋Ｆ４２；
Ｇ４３＝Ｇ４１＋Ｇ４２；Ｂ４４＝ＲＯＵＮＤ（Ｂ４０／Ｂ４３，２）；
Ｄ４４＝ＲＯＵＮＤ（Ｄ４０／Ｄ４３，２）；Ｅ４４＝ＲＯＵＮＤ
（Ｅ４０／Ｅ４３，２）；Ｆ４４＝ＲＯＵＮＤ（Ｆ４０／Ｆ４３，２）；

Ｇ４４＝ＲＯＵＮＤ（Ｇ４０／Ｇ４３，２）；Ｈ４４＝Ｂ４４＋
Ｃ４４＋Ｄ４４＋Ｅ４４＋Ｆ４４＋Ｇ４４；Ｂ４５＝ＲＯＵＮＤ
（Ｂ４１＊Ｂ４４，２）；Ｄ４５＝ＲＯＵＮＤ（Ｄ４１＊Ｄ４４，２）；
Ｅ４５＝ＲＯＵＮＤ（Ｅ４１＊Ｅ４４，２）；Ｆ４５＝ＲＯＵＮＤ
（Ｆ４１＊Ｆ４４，２）；Ｇ４５＝ＲＯＵＮＤ（Ｇ４１＊Ｇ４４，２）；
Ｈ４５＝Ｂ４５＋Ｃ４５＋Ｄ４５＋Ｅ４５＋Ｆ４５＋Ｇ４５；
Ｂ４６＝Ｂ４０－Ｂ４５；Ｄ４６＝Ｄ４０－Ｄ４５；Ｅ４６＝Ｅ４０－
Ｅ４５；Ｆ４６＝Ｆ４０－Ｆ４５；Ｇ４６＝Ｇ４０－Ｇ４５；
Ｈ４６＝Ｈ４０－Ｈ４５。

需要注意的是，各车间“产品成本明细

账”中有关单元格运算关系涉及乘除的，必
须采用ｒｏｕｎｄ（）函数，进行四舍五入保留小数
点后两位处理，同时“月末在产品成本”用
减法，以使成本数据符合会计习惯，与手工会
计一致（棋盘式平衡）。

经过上述单元格的运算，即可首次得到各

该最终完工产品成本资料。以后各月产品成
本资料可设计“产品成本自动计算”程序来
完成。
１．３ “产品成本自动计算”程序设计

先选择Ｅｘｃｅｌ中工具菜单下的“宏＼ｖｉ－

ｓｕａｌ　ｂａｓｉｃ编辑器”，然后系统调用ＶＢ编辑
器，选择ＶＢ编辑器“插入”菜单下的“模
块”，最后在模块中输入以下代码：

行号　　　　　　　　　　　代码
１　　　Ｓｕｂ　分项结转分步法（）
２　　　　　Ｓｈｅｅｔｓ（１）．Ｓｅｌｅｃｔ
３　　　　　Ｓｈｅｅｔｓ．Ａｄｄ
４　　　　　Ｓｈｅｅｔｓ（２）．Ｓｅｌｅｃｔ
５　　　　　Ｃｅｌｌｓ．Ｓｅｌｅｃｔ
６　　　　　Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ
７　　　　　Ｓｈｅｅｔｓ（１）．Ｓｅｌｅｃｔ
８　　　　　Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
９　　　　　ＡｃｔｉｖｅＳｈｅｅｔ．Ｐａｓｔｅ

ＥｘｃｅｌＶＢ在分项结转分步法中的应用

戴勇　　荣树新

（湖南工程职业技术学院土木工程系　　湖南长沙　　４１０１５１）

摘　要：由于用财务软件进行产品成本核算的初始设置非常复杂，目前主流财务软件尚未解决产品成本核算的电算化问题。为此，本文
提出用ＥｘｃｅｌＶＢ解决分项结转分步法计算产品成本的方案，以期实现成本核算的准确性、及时性和自动化，提高财会人员的工作效率；也
期望在应用ＥｘｃｅｌＶＢ解决其他产品成本计算方法方面起到抛砖引玉的作用。
关键词：ＥｘｃｅｌＶＢ　　分项结转　　分步法　　产品成本
中图分类号：ＴＵ７２

文献标识码：Ａ

文章编号：１６７２－３７９１（２００８）０３（ａ）－０２４５－０２