在工程材料现场管理中，核对材料台账是一个很繁琐的事情，特别是在材料种类繁多且用量很大的情况下，现场核对耗时耗力。Ｅｘｃｅｌ作为一种常用的办公软件，其功能被很多人所熟悉，通过进一步的开发，可以满足很多数据处理的要求。笔者通过在Eｘｃｅｌ上应用自编的宏程序，实现了材料管理台账对账的功能。
1 程序流程图（图１）
图中所指列１、列２数据分别为供应商材料送货明细账和现场材料管理台账对应数据。
2 程序内容
Ｓｕｂ Ｍａｃｒｏ１（）
’────（１）供应商出库明细 与 （３）现场入库明细 发生额相同的相互抵消
’──── 确定（１）、（３）列发生额的笔数，若为０跳到第二项比较
Ｌａｓｔｒｏｗ１ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（”ｃ” ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
Ｌａｓｔｒｏｗ２ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（”Ｉ” ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
’────判断（１）、（３）列发生额是否有相同项，若有则变成０
Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
ｓａｍｅ ＝ ０
ｎ ＝ １
Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
Ｉｆ Ｒａｎｇｅ（”ｃ” ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（”Ｉ” ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
Ｒａｎｇｅ（”ｃ” ＆ ｍ）．Ｖａｌｕｅ ＝ ０
Ｒａｎｇｅ（”Ｉ” ＆ ｐ）．Ｖａｌｕｅ ＝ ０
ｓａｍｅ ＝ １
Ｅｎｄ Ｉｆ
ｎ ＝ ｎ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｐ
Ｎｅｘｔ ｍ
’────删除发生额为０的项
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（”ｃ” ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（”Ａ” ＆ ｉ ＆ ”：ｃ” ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（”Ｉ” ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（”Ｇ” ＆ ｉ ＆ ”：Ｉ” ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
ｎｕｍｂｅｒ１：
’────完成 论文检测天使-免费论文检测软件http://www.jiancetianshi.com
第一次比较，继续第二次比较
’────（２）退回供应商材料明细与（４）现场材料退回明细 发生额相同的相互抵消
’────确定（２）、（４）列发生额的笔数，若为０结束程序
Ｌａｓｔｒｏｗ１ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（”Ｆ” ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
Ｌａｓｔｒｏｗ２ ＝ ０
Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（”Ｌ” ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
Ｅｘｉｔ Ｆｏｒ
Ｅｌｓｅ
Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
’────判断（２）、（４）列发生额是否有相同项，若有则变成０
Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
ｓａｍｅ ＝ ０
ｎ ＝ １
Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
Ｉｆ Ｒａｎｇｅ（”Ｆ” ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（”Ｌ” ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
Ｒａｎｇｅ（”Ｆ” ＆ ｍ）．Ｖａｌｕｅ ＝ ０
Ｒａｎｇｅ（”Ｌ” ＆ ｐ）．Ｖａｌｕｅ ＝ ０
ｓａｍｅ ＝ １
Ｅｎｄ Ｉｆ
ｎ ＝ ｎ ＋ １
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｐ
Ｎｅｘｔ ｍ
’────删除发生额为０的项
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（”Ｆ” ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（”Ｄ” ＆ ｉ ＆ ”：Ｆ” ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
Ｉｆ Ｒａｎｇｅ（”Ｌ” ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
Ｒａｎｇｅ（”Ｊ” ＆ ｉ ＆ ”：Ｌ” ＆ ｉ）．Ｓｅｌｅｃｔ
Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
Ｅｎｄ Ｉｆ
Ｎｅｘｔ ｉ
Ｅｘｉｔ Ｓｕｂ
ｎｕｍｂｅｒ２：
Ｅｎｄ Ｓｕｂ
3 实施步骤
（１）Ｅｘｃｅｌ新建表格中建立现场材料管理对账单（如图２）。
（2）分别填入供应商供货明细和现场材料台账中的发生额，注意不要有空项并统一双方材料种类名称，合计行（行１４）前一行要空白。
（3）运行宏程序Mａｃｒｏ１，自动生成对账结果，Ｌ２０＝０。
4 应用效果
该程序预期达到了的效果，经使用准确率达到１００％，大大节约了和供应商对账的时间，提高了工作效率。另外，该程序是基于Eｘｃｅｌ表格开发的，简便易操作，实用性很强。
相关文章：
余秋雨《文化苦旅》中传统文人形象解析04-26
试论魏了翁对实现蜀学义理化所做出的贡献04-26
从语用学角度看郭靖语言运用和理解特征04-26
透过红楼看清朝贵族的奢华饮食生活04-26
《剪灯新话•永州野庙记》叙事分析04-26
论《四库全书总目》对《汉纪》研究的意义04-26
苏南文化家族中的夫妻唱和——以孙星衍与王采薇为中心04-26
叛逆的石头04-26
“食臣枣”和“食巨枣”的辨析04-26
中国古代的避讳习俗04-26