在工程材料现场管理中，核对材料台账是一个很繁琐的事情，特别是在材料种类繁多且用量很大的情况下，现场核对耗时耗力。Ｅｘｃｅｌ作为一种常用的办公软件，其功能被很多人所熟悉，通过进一步的开发，可以满足很多数据处理的要求。笔者通过在Eｘｃｅｌ上应用自编的宏程序，实现了材料管理台账对账的功能。
　　1 程序流程图（图１）
　　图中所指列１、列２数据分别为供应商材料送货明细账和现场材料管理台账对应数据。
　　2 程序内容
　　Ｓｕｂ Ｍａｃｒｏ１（）
　　＇――――（１）供应商出库明细 与 （３）现场入库明细 发生额相同的相互抵消
　　＇―――― 确定（１）、（３）列发生额的笔数，若为０跳到第二项比较
　　Ｌａｓｔｒｏｗ１ ＝ ０
　　Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
　　 Ｅｘｉｔ Ｆｏｒ
　　 Ｅｌｓｅ
　　 Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　 Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
　　
　　 Ｌａｓｔｒｏｗ２ ＝ ０
　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
　　 Ｅｘｉｔ Ｆｏｒ
　　 Ｅｌｓｅ
　　 Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　 Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１
　　
　　＇――――判断（１）、（３）列发生额是否有相同项，若有则变成０
　　 Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
　　 ｓａｍｅ ＝ ０
　　 ｎ ＝ １
　　 Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
　　 Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
　　 Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０
　　 Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０
　　 ｓａｍｅ ＝ １
　　 Ｅｎｄ Ｉｆ
　　 ｎ ＝ ｎ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｐ
　　 Ｎｅｘｔ ｍ
　　＇――――删除发生额为０的项
　　Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
　　 Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂Ａ＂ ＆ ｉ ＆ ＂：ｃ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　
　　 Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
　　 Ｉｆ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂Ｇ＂ ＆ ｉ ＆ ＂：Ｉ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　ｎｕｍｂｅｒ１：
　　＇――――完成第一次比较，继续第二次比较
　　＇――――（２）退回供应商材料明细与（４）现场材料退回明细 发生额相同的相互抵消
　　＇――――确定（２）、（４）列发生额的笔数，若为０结束程序
　　 Ｌａｓｔｒｏｗ１ ＝ ０
　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
　　 Ｅｘｉｔ Ｆｏｒ
　　 Ｅｌｓｅ
　　 Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　 Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
　　 Ｌａｓｔｒｏｗ２ ＝ ０
　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００
　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ
　　 Ｅｘｉｔ Ｆｏｒ
　　 Ｅｌｓｅ
　　 Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　 Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２
　　
　　＇――――判断（２）、（４）列发生额是否有相同项，若有则变成０
　　 Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ１ ＋ ５
　　 ｓａｍｅ ＝ ０
　　 ｎ ＝ １
　　 Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５
　　 Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ
　　 Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂Ｆ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０
　　 Ｒａｎｇｅ（＂Ｌ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０
　　 ｓａｍｅ ＝ １
　　 Ｅｎｄ Ｉｆ
　　 ｎ ＝ ｎ ＋ １
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｐ
　　 Ｎｅｘｔ ｍ
　　
　　＇――――删除发生额为０的项
　　 Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
　　 Ｉｆ Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂Ｄ＂ ＆ ｉ ＆ ＂：Ｆ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　
　　 Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１
　　 Ｉｆ Ｒａｎｇｅ（＂Ｌ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ
　　 Ｒａｎｇｅ（＂Ｊ＂ ＆ ｉ ＆ ＂：Ｌ＂ ＆ ｉ）．Ｓｅｌｅｃｔ
　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ
　　 Ｅｎｄ Ｉｆ
　　 Ｎｅｘｔ ｉ
　　
　　Ｅｘｉｔ Ｓｕｂ
　　ｎｕｍｂｅｒ２：
　　Ｅｎｄ Ｓｕｂ
　　3 实施步骤
　　（１）Ｅｘｃｅｌ新建表格中建立现场材料管理对账单（如图２）。
　　（2）分别填入供应商供货明细和现场材料台账中的发生额，注意不要有空项并统一双方材料种类名称，合计行（行１４）前一行要空白。
　　（3）运行宏程序Mａｃｒｏ１，自动生成对账结果，Ｌ２０＝０。
　　4 应用效果
　　该程序预期达到了的效果，经使用准确率达到１００％，大大节约了和供应商对账的时间，提高了工作效率。另外，该程序是基于Eｘｃｅｌ表格开发的，简便易操作，实用性很强。