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