excel在工程算量中的应用论文

《excel在工程算量中的应用论文》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、EXCEL在工程算量中的应用论文摘要：本文分析了目前所用工程算量方法中存在的问题，介绍了一种既高效准确又便于对账的EXCEL算量软件，包括其技术要点及部分源程序等。关键词：工程算量附注分离自动计算EXCELVBA工程量计算是工程造价的基础，也是造价工作者最为费神的。随着工程量清单计价的全面推行，工程量计算规则将更为细致复杂。所以提高工程算量的工作效率，成了每个造价工作者的美好愿望。一、常见工程算量方式的介绍到目前为至，常见的工程算量方式主要有手工算量法、专业软件算量法、传统的EXCEL算量法等。手工算量法相对于另两种方式而言，其计算过程清楚便于对账.freelnApplicati

2、on.EnableEvents=FalseIfy=3ThenRange("d"X)=FL(Range("c"X))EndIfApplication.EnableEvents=TrueEndSub‘***********************************************************************2、工程量按“项目编号”汇总及排序工程量按“项目编号”汇总及排序是本软件的另一特色。“工程量计算稿”是按分部分项工程计算的，工程量计算完成后我们要把相同类进行汇总。根据《建设工程工程量清单计价规范》，相同的项目具有相同的项目编号，这就为工程量汇总带

3、来了便利。在汇总时对“工程量计算稿”中的“项目编号”在“工程量汇总表”中进行搜索看是否出现过。若未出现过则将相关参数依次输入第一个空白行中，并将对应的分部分项名称作为附注（套上“”后）添加在“汇总式”的最后一个数字后。若已出现过则仅将“+”及分部分项的工程量、对应的分部分项名称（注套上“”后）添加在相应的单元格后，如表2所示。汇总后按项目编号对所有参数进行重新排序。而实际上以上步骤是一气呵成的。其源程序如下：‘**************************************************************************************

4、********WithWorksheets("工程量计算稿")nRow=.Range("a65536").End(xlUp).RowFori=3TonRowIfLen(.Range("c"i))=0ThencCeng="".Range("a"i)""ElsecXiang=.Range("a"i)Setc=Worksheets("工程量汇总表").Range("a:a").Find(cXiang,LookIn:=xlValues)IfcIsNothingThenSetc=Worksheets("工程量汇总表").Range("a65536").End(xlUp).Offset(1

5、,0)c.Value=cXiangc.Offset(0,1)=.Range("b"i)c.Offset(0,2)=.Range("d"i)cCengc.Offset(0,4)=.Range("e"i)Elsec.Offset(0,2)=c.Offset(0,2)"+".Range("d"i)cCengEndIfc.Offset(0,3)=c.Offset(0,..毕业3)+.Range("d"i)EndIfNextEndWith‘注：以上程序的作用为将“工程量计算稿”中相同项目编号的工程量在“工程量汇总表”进行中汇总Worksheets("工程量汇总").Range("b3:e6

6、5536").Sort_Key1:=Worksheets("工程量汇总").Range("b3")程量汇总").Range("A3")‘注：以上程序的作用为将汇总后的结果按清单编号进行排序‘**********************************************************************************************四、尾声用VBA开发的EXCEL算量软件，经实践证明能较好的解决目前工程算量中存在的问题，是造价者不可多得的算量工具。该软件不仅适用于清单计价模式下的工程量计算，也适用于定额计价模式下的工程量计算。同时还可通

7、过与其他套价软件（或定额库）衔接在工程量汇总后直接进行计价。希望本文起起到抛砖引玉的作用，不足之处请不吝指正。