浅谈EXCELVBA在水利水电工程投标中材料单位耗量分析中应用.docVIP

浅谈EXCELVBA在水利水电工程投标中材料单位耗量分析中应用 　　摘要文章结合作者在水利水电工程投标中遇到的一个较复杂的材料单位耗量分析实例,探讨用 Excel-VBA的二次开发功能编制程序来进行材料单位耗量分析的方法,以减轻工程造价人员的工作量,提高其工作效率和分析结果的准确性。 　　 　　关键词水利水电工程;工程造价;Excel-VBA ;耗量分析 　　 　　中图分类号TV512文献标识码A文章编号1673-9671-(2010)011-0052-03 　　 　　1材料单位耗量分析问题简介 　　 　　近几年,随着国家对水利水电工程投入的大幅度提高,长江三峡、清江水布垭、广西龙滩、云南景洪、小湾、金沙江溪洛渡等大型水利水电工程的相继开工,业主对投标商务标书的编制也提出了更高的要求。 　　 　　2材料单位耗量分析实例 　　 　　2.1材料单位耗量分析实例简介 　　在水利水电工程投标中就遇到这样一个较为复杂的材料单位耗量分析的例子。 　　2.2传统手工材料单耗分析方法存在的问题 　　传统手工材料单耗分析方法不仅耗时耗力,而且得到的结果往往由于手工操作的错误而无法保证最终的材料单位耗量分析结果的准确性。 　　2.3通过Excel-VBA的二次开发功能编制程序来进行材料单位耗量分析 　　作者通过多次试验,发现通过Excel-VBA的二次开发功能编制程序来进行材料单位耗量分析能够很好的解决上述手工方法存在的问题,在很大程度上提高解决此类问题的时间和准确性。 　　2.3.1 Excel-VBA进行材料单位耗量分析编程思路 　　下面以电单位耗量分析为例,因为电是上述业主要求进行单位耗量分析的材料中较复杂的,大家知道,在水利水电工程施工中,除了机械中用到电,工程用水中也用到电,那么混凝土配合比中用到的水也就用到了电,所以分析电单位耗量涉及的表格最多,我们先确定电单位耗量分析涉到表格:单价分析表,混凝土配合比单价表,施工机械台时费汇总表,机械子单价分析表,水价计算表。 　　(1) 单价分析表(见表1) 　　(2)混凝土配合比单价表(见表2) 　　 　　 　　 　　 　　 　　(3)施工机械台时费汇总表(见表3) 　　(4)机械子单价分析表(见表4) 　　 　　 　　 　　 　　 　　(5)水价计算表(见表5) 　　从几张表中的数据我们可以看出,他们存在一定的对应关系,找到上面的对应关系,我们就可以确定材料单位耗量分析的思路了。 　　2.3.2 Excel-VBA进行材料单位耗量分析源代码 　　下面以电单位耗量分析为例,将作者在实际工作中编制的部分Excel-VBA程序和大家交流。打开单价分析表,在VB编辑器中插入如下代码: 　　Attribute VB_Name = “单耗分析” 　　‘Program by 毛波 　　‘水泥、骨料、掺合料、柴油、电单耗分析 　　‘2008年1月 　　‘定义函数名 　　Sub hwdhfx() 　　‘定义变量名,包括工程项目的编号、名称,单价分析表中的材料名称规格、耗量,定额分析单位,机械子单价分析表、施工机械台时费汇总表中的机械名称,单位耗量,相关表格行数等 　　Dim i, j, k, h, hbcp, htb, hjxzdj, bgl, bshn, bchhl, hgl, hshn, hchhl, jshn, jgl, jchhl, jchy, jd As Integer, xmbh, xmmc, xmdw, mcgg, dw, sl, dj, dedw, mcgg1, dw1, sl1, dj1, dedw1, mcgg2, sl2, dj2, mcgg3, dj3, tbchy, tbd, tbf, tbs, hntmc, hntbl, jxbm As String 　　h = ActiveSheet.UsedRange.Rows.Count 　　jshn = 2 　　jgl = 2 　　jchhl = 2 　　jchy = 2 　　jd = 2 　　‘初始化“电单耗分析表”,按业主要求生成表头 　　Workbooks.Add 　　ChDir “D:” 　　ActiveWorkbook.SaveAs Filename:=”D:\电单耗分析表.xls” _ 　　, FileFormat:=xlNormal, Password:=””,WriteResPassword:=””, _ 　　ReadOnlyRecommended:=False, CreateBackup:=False 　　Cells(1, 1) = “项目编号” 　　Cells(1, 2) = “项目名称” 　　Cel