洪濤,聞濤,侯興華

［摘要］ 為了解決工地現(xiàn)場(chǎng)材料管理臺(tái)賬與供應(yīng)商對(duì)賬的問(wèn)題，本文基于Excel表格設(shè)計(jì)了現(xiàn)場(chǎng)材料臺(tái)賬對(duì)賬表，運(yùn)用VB編制了宏程序，實(shí)現(xiàn)了與材料供應(yīng)商核對(duì)明細(xì)賬的功能。

［關(guān)鍵詞］ 現(xiàn)場(chǎng)材料臺(tái)賬對(duì)賬表；宏；Excel表格

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 10. 008

［中圖分類(lèi)號(hào)］F275［文獻(xiàn)標(biāo)識(shí)碼］A［文章編號(hào)］1673 - 0194（2012）10- 0015- 03

在工程材料現(xiàn)場(chǎng)管理中，核對(duì)材料臺(tái)賬是一個(gè)很繁瑣的事情，特別是在材料種類(lèi)繁多且用量很大的情況下，現(xiàn)場(chǎng)核對(duì)耗時(shí)耗力。Ｅｘｃｅｌ作為一種常用的辦公軟件，其功能被很多人所熟悉，通過(guò)進(jìn)一步的開(kāi)發(fā)，可以滿(mǎn)足很多數(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ā)生額相同的相互抵消

＇———— 確定（１）、（３）列發(fā)生額的筆數(shù)，若為０跳到第二項(xiàng)比較

Ｌａｓｔｒｏｗ１ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１

Ｌａｓｔｒｏｗ２ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１

＇————判斷（１）、（３）列發(fā)生額是否有相同項(xiàng)，若有則變成０

Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５

ｓａｍｅ ＝ ０

ｎ ＝ １

Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５

Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ

Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ

Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０

Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０

ｓａｍｅ ＝ １

Ｅｎｄ Ｉｆ

ｎ ＝ ｎ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｐ

Ｎｅｘｔ ｍ

＇————?jiǎng)h除發(fā)生額為０的項(xiàng)

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ａ＂ ＆ ｉ ＆ ＂：ｃ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｇ＂ ＆ ｉ ＆ ＂：Ｉ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

ｎｕｍｂｅｒ１：

＇————完成第一次比較，繼續(xù)第二次比較

＇————（２）退回供應(yīng)商材料明細(xì)與（４）現(xiàn)場(chǎng)材料退回明細(xì) 發(fā)生額相同的相互抵消

＇————確定（２）、（４）列發(fā)生額的筆數(shù)，若為０結(jié)束程序

Ｌａｓｔｒｏｗ１ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２

Ｌａｓｔｒｏｗ２ ＝ ０

Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００

Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ

Ｅｘｉｔ Ｆｏｒ

Ｅｌｓｅ

Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２

＇————判斷（２）、（４）列發(fā)生額是否有相同項(xiàng)，若有則變成０

Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５

ｓａｍｅ ＝ ０

ｎ ＝ １

Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５

Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ

Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０

Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０

ｓａｍｅ ＝ １

Ｅｎｄ Ｉｆ

ｎ ＝ ｎ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｐ

Ｎｅｘｔ ｍ

＇————?jiǎng)h除發(fā)生額為０的項(xiàng)

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｄ＂ ＆ ｉ ＆ ＂：Ｆ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１

Ｉｆ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ

Ｒａｎｇｅ（＂Ｊ＂ ＆ ｉ ＆ ＂：Ｌ＂ ＆ ｉ）．Ｓｅｌｅｃｔ

Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ ｉ

Ｅｘｉｔ Ｓｕｂ

ｎｕｍｂｅｒ２：

Ｅｎｄ Ｓｕｂ

3實(shí)施步驟

（１）Ｅｘｃｅｌ新建表格中建立現(xiàn)場(chǎng)材料管理對(duì)賬單（如圖２）。

（2）分別填入供應(yīng)商供貨明細(xì)和現(xiàn)場(chǎng)材料臺(tái)賬中的發(fā)生額，注意不要有空項(xiàng)并統(tǒng)一雙方材料種類(lèi)名稱(chēng)，合計(jì)行（行１４）前一行要空白。

（3）運(yùn)行宏程序Mａｃｒｏ１，自動(dòng)生成對(duì)賬結(jié)果，Ｌ２０＝０。

4應(yīng)用效果

該程序預(yù)期達(dá)到了的效果，經(jīng)使用準(zhǔn)確率達(dá)到１００％，大大節(jié)約了和供應(yīng)商對(duì)賬的時(shí)間，提高了工作效率。另外，該程序是基于Eｘｃｅｌ表格開(kāi)發(fā)的，簡(jiǎn)便易操作，實(shí)用性很強(qiáng)。

主要參考文獻(xiàn)

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

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