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