现场材料管理台账核对问题研究.docVIP

现场材料管理台账核对问题研究 　　［摘 要］ 为了解决工地现场材料管理台账与供应商对账的问题，本文基于Excel表格设计了现场材料台账对账表，运用VB编制了宏程序，实现了与材料供应商核对明细账的功能。 　　［关键词］ 现场材料台账对账表；宏；Excel表格 　　doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 10. 008 　　［中图分类号］ F275 ［文献标识码］ A ［文章编号］ 1673 - 0194（2012）10- 0015- 03 　　 　　在工程材料现场管理中，核对材料台账是一个很繁琐的事情，特别是在材料种类繁多且用量很大的情况下，现场核对耗时耗力。Ｅｘｃｅｌ作为一种常用的办公软件，其功能被很多人所熟悉，通过进一步的开发，可以满足很多数据处理的要求。笔者通过在Eｘｃｅｌ上应用自编的宏程序，实现了材料管理台账对账的功能。 　　1 程序流程图（图１） 　　图中所指列１、列２数据分别为供应商材料送货明细账和现场材料管理台账对应数据。 　　2 程序内容 　　Ｓｕｂ Ｍａｃｒｏ１（） 　　＇――――（１）供应商出库明细 与 （３）现场入库明细 发生额相同的相互抵消 　　＇―――― 确定（１）、（３）列发生额的笔数，若为０跳到第二项比较 　　Ｌａｓｔｒｏｗ１ ＝ ０ 　　Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００ 　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ 　　 Ｅｘｉｔ Ｆｏｒ 　　 Ｅｌｓｅ 　　 Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｉ 　　 Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１ 　　 　　 Ｌａｓｔｒｏｗ２ ＝ ０ 　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００ 　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ 　　 Ｅｘｉｔ Ｆｏｒ 　　 Ｅｌｓｅ 　　 Ｌａｓｔｒｏｗ２ ＝ Ｌａｓｔｒｏｗ２ ＋ １ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｉ 　　 Ｉｆ Ｌａｓｔｒｏｗ２ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ１ 　　 　　＇――――判断（１）、（３）列发生额是否有相同项，若有则变成０ 　　 Ｆｏｒ ｍ ＝ ６ Ｔｏ Ｌａｓｔｒ???ｗ１ ＋ ５ 　　 ｓａｍｅ ＝ ０ 　　 ｎ ＝ １ 　　 Ｆｏｒ ｐ ＝ ６ Ｔｏ Ｌａｓｔｒｏｗ２ ＋ ５ 　　 Ｉｆ ｎ ＜＝ Ｌａｓｔｒｏｗ２ Ａｎｄ ｓａｍｅ ＝ ０ Ｔｈｅｎ 　　 Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ Ｔｈｅｎ 　　 Ｒａｎｇｅ（＂ｃ＂ ＆ ｍ）．Ｖａｌｕｅ ＝ ０ 　　 Ｒａｎｇｅ（＂Ｉ＂ ＆ ｐ）．Ｖａｌｕｅ ＝ ０ 　　 ｓａｍｅ ＝ １ 　　 Ｅｎｄ Ｉｆ 　　 ｎ ＝ ｎ ＋ １ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｐ 　　 Ｎｅｘｔ ｍ 　　＇――――删除发生额为０的项 　　Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ１ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１ 　　 Ｉｆ Ｒａｎｇｅ（＂ｃ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ 　　 Ｒａｎｇｅ（＂Ａ＂ ＆ ｉ ＆ ＂：ｃ＂ ＆ ｉ）．Ｓｅｌｅｃｔ 　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｉ 　　 　　 Ｆｏｒ ｉ ＝ Ｌａｓｔｒｏｗ２ ＋ ５ Ｔｏ ６ Ｓｔｅｐ －１ 　　 Ｉｆ Ｒａｎｇｅ（＂Ｉ＂ ＆ ｉ）．Ｖａｌｕｅ ＝ ０ Ｔｈｅｎ 　　 Ｒａｎｇｅ（＂Ｇ＂ ＆ ｉ ＆ ＂：Ｉ＂ ＆ ｉ）．Ｓｅｌｅｃｔ 　　 Ｓｅｌｅｃｔｉｏｎ．Ｄｅｌｅｔｅ Ｓｈｉｆｔ：＝ｘｌＵｐ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｉ 　　ｎｕｍｂｅｒ１： 　　＇――――完成第一次比较，继续第二次比较 　　＇――――（２）退回供应商材料明细与（４）现场材料退回明细 发生额相同的相互抵消 　　＇――――确定（２）、（４）列发生额的笔数，若为０结束程序 　　 Ｌａｓｔｒｏｗ１ ＝ ０ 　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００ 　　 Ｉｆ ＩｓＥｍｐｔｙ（Ｒａｎｇｅ（＂Ｆ＂ ＆ ｉ）．Ｃｅｌｌｓ） Ｔｈｅｎ 　　 Ｅｘｉｔ Ｆｏｒ 　　 Ｅｌｓｅ 　　 Ｌａｓｔｒｏｗ１ ＝ Ｌａｓｔｒｏｗ１ ＋ １ 　　 Ｅｎｄ Ｉｆ 　　 Ｎｅｘｔ ｉ 　　 Ｉｆ Ｌａｓｔｒｏｗ１ ＝ ０ Ｔｈｅｎ ＧｏＴｏ ｎｕｍｂｅｒ２ 　　 Ｌａｓｔｒｏｗ２ ＝ ０ 　　 Ｆｏｒ ｉ ＝ ６ Ｔｏ ３０００