现场材料管理台账核对问题的研究

［摘 要］ 为了解决工地现场材料管理台账与供应商对账的问题，本文基于Excel表格设计了现场材料台账对账表，运用VB编制了宏程序，实现了与材料供应商核对明细账的功能。

［关键词］ 现场材料台账对账表；宏；Excel表格

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 10. 008

［中图分类号］ F275 ［文献标识码］ A ［文章编号］ 1673 - 0194（2012）10- 0015- 03

在工程材料现场管理中，核对材料台账是一个很繁琐的事情，特别是在材料种类繁多且用量很大的情况下，现场核对耗时耗力。Ｅｘｃｅｌ作为一种常用的办公软件，其功能被很多人所熟悉，通过进一步的开发，可以满足很多数据处理的要求。笔者通过在Eｘｃｅｌ上应用自编的宏程序，实现了材料管理台账对账的功能。

1 程序流程图（图１）

图中所指列１、列２数据分别为供应商材料送货明细账和现场材料管理台账对应数据。

2 程序内容

Ｓｕｂ Ｍａｃｒｏ１（）

＇――――（１）供应商出库明细 与 （３）现场入库明细 发生额相同的相互抵消

＇―――― 确定（１）、（３）列发生额的笔数，若为０跳到第二项比较

Ｌａｓｔｒｏｗ１ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１

Ｌａｓｔｒｏｗ２ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１

＇――――判断（１）、（３）列发生额是否有相同项，若有则变成０

Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５

ｓａｍｅ ＝ ０

ｎ ＝ １

Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５

Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ

Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ

Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０

Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０

ｓａｍｅ ＝ １

Ｅｎｄ Ｉｆ

ｎ ＝ ｎ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｐ

Ｎｅｘｔ ｍ

＇――――删除发生额为０的项

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ａ＂ ＆ ｉ ＆ ＂：ｃ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｇ＂ ＆ ｉ ＆ ＂：Ｉ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

ｎｕｍｂｅｒ１：

＇――――完成第一次比较，继续第二次比较

＇――――（２）退回供应商材料明细与（４）现场材料退回明细 发生额相同的相互抵消

＇――――确定（２）、（４）列发生额的笔数，若为０结束程序

Ｌａｓｔｒｏｗ１ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２

Ｌａｓｔｒｏｗ２ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２

＇――――判断（２）、（４）列发生额是否有相同项，若有则变成０

Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５

ｓａｍｅ ＝ ０

ｎ ＝ １

Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５

Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ

Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０

Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０

ｓａｍｅ ＝ １

Ｅｎｄ Ｉｆ

ｎ ＝ ｎ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｐ

Ｎｅｘｔ ｍ

＇――――删除发生额为０的项

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｄ＂ ＆ ｉ ＆ ＂：Ｆ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｊ＂ ＆ ｉ ＆ ＂：Ｌ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｅｘｉｔ Ｓｕｂ

ｎｕｍｂｅｒ２：

Ｅｎｄ Ｓｕｂ

3 实施步骤

（１）Ｅｘｃｅｌ新建表格中建立现场材料管理对账单（如图２）。

（2）分别填入供应商供货明细和现场材料台账中的发生额，注意不要有空项并统一双方材料种类名称，合计行（行１４）前一行要空白。

（3）运行宏程序Mａｃｒｏ１，自动生成对账结果，Ｌ２０＝０。

4 应用效果

该程序预期达到了的效果，经使用准确率达到１００％，大大节约了和供应商对账的时间，提高了工作效率。另外，该程序是基于Eｘｃｅｌ表格开发的，简便易操作，实用性很强。

主要参考文献

［１］Ｓｔｅｖｅｎ Ｍ Ｈａｎｓｅｎ．Ｅｘｃｅｌ ２００３与ＶＢＡ编程从入门到精通［Ｍ］．北京：电子工业出版社，２００４．

［２］Ｊｏｈｎ Ｗａｌｋｅｎｂａｃｈ．Ｅｘｃｅｌ ２００３高级ＶＢＡ编程宝典［Ｍ］．北京：电子工业出版社，２００５．