現場材料管理臺賬核對問題的研究

洪濤,聞濤,侯興華

［摘要］ 為了解決工地現場材料管理臺賬與供應商對賬的問題，本文基于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ｘｃｅｌ表格開發的，簡便易操作，實用性很強。

主要參考文獻

［１］Ｓｔｅｖｅｎ Ｍ Ｈａｎｓｅｎ．Ｅｘｃｅｌ ２００３與ＶＢＡ編程從入門到精通［Ｍ］．北京：電子工業出版社，２００４．

［２］Ｊｏｈｎ Ｗａｌｋｅｎｂａｃｈ．Ｅｘｃｅｌ ２００３高級ＶＢＡ編程寶典［Ｍ］．北京：電子工業出版社，２００５．