在工程材料現場管理中，核對材料臺賬是一個很繁瑣的事情，特別是在材料種類繁多且用量很大的情況下，現場核對耗時耗力。Ｅｘｃｅｌ作為一種常用的辦公軟件，其功能被很多人所熟悉，通過進一步的開發，可以滿足很多數據處理的要求。筆者通過在Eｘｃｅｌ上應用自編的宏程序，實現了材料管理臺賬對賬的功能。
1 程序流程圖（圖１）
圖中所指列１、列２數據分別為供應商材料送貨明細賬和現場材料管理臺賬對應數據。
2 程序內容
Ｓｕｂ Ｍａｃｒｏ１（）
＇――――（１）供應商出庫明細 與 （３）現場入庫明細 發生額相同的相互抵消
＇―――― 確定（１）、（３）列發生額的筆數，若為０跳到第二項比較
Ｌａｓｔｒｏｗ１ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
Ｌａｓｔｒｏｗ２ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
?。ЖD―――判斷（１）、（３）列發生額是否有相同項，若有則變成０
Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
ｓａｍｅ ＝ ０
ｎ ＝ １
Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０
Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０
ｓａｍｅ ＝ １
Ｅｎｄ Ｉｆ
ｎ ＝ ｎ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｐ
Ｎｅｘｔ ｍ
＇――――刪除發生額為０的項
?。疲铮?ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ａ＂ ＆ ｉ ＆ ＂：ｃ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ｇ＂ ＆ ｉ ＆ ＂：Ｉ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
ｎｕｍｂｅｒ１：
＇――――完成第一次比較，繼續第二次比較
?。ЖD―――（２）退回供應商材料明細與（４）現場材料退回明細 發生額相同的相互抵消
＇――――確定（２）、（４）列發生額的筆數，若為０結束程序
Ｌａｓｔｒｏｗ１ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
Ｌａｓｔｒｏｗ２ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
?。ЖD―――判斷（２）、（４）列發生額是否有相同項，若有則變成０
Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
ｓａｍｅ ＝ ０
ｎ ＝ １
Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０
Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０
ｓａｍｅ ＝ １
Ｅｎｄ Ｉｆ
ｎ ＝ ｎ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｐ
Ｎｅｘｔ ｍ
?。ЖD―――刪除發生額為０的項
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ｄ＂ ＆ ｉ ＆ ＂：Ｆ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（＂Ｊ＂ ＆ ｉ ＆ ＂：Ｌ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
?。牛椋?Ｓｕｂ
?。睿酰恚猓澹颍玻?
Ｅｎｄ Ｓｕｂ
3 實施步驟
（１）Ｅｘｃｅｌ新建表格中建立現場材料管理對賬單（如圖２）。
?。?）分別填入供應商供貨明細和現場材料臺賬中的發生額，注意不要有空項并統一雙方材料種類名稱，合計行（行１４）前一行要空白。
（3）運行宏程序Mａｃｒｏ１，自動生成對賬結果，Ｌ２０＝０。
4 應用效果
該程序預期達到了的效果，經使用準確率達到１００％，大大節約了和供應商對賬的時間，提高了工作效率。另外，該程序是基于Eｘｃｅｌ表格開發的，簡便易操作，實用性很強。
