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