EXCEL在工程算量中的应用论文.docVIP

　　EXCEL在工程算量中的应用论文 摘要：本文分析了目前所用工程算量方法中存在的问题，介绍了一种既高效准确又便于对账的EXCEL算量软件，包括其技术要点及部分源程序等。 关键词：工程算量 附注分离 自动计算 EXCEL VBA 工程量计算是工程造价的基础，也是造价工作者最为费神的。随着工程量清单计价的全面推行，工程量计算规则将更为细致复杂。所以提高工程算量的工作效率，成了每个造价工作者的美好愿望。 一、常见工程算量方式的介绍 到目前为至，常见的工程算量方式主要有手工算量法、专业软件算量法、传统的EXCEL算量法等。手工算量法相对于另两种方式而言，其计算过程清楚便于对账.freeln Application.EnableEvents = False If y = 3 Then Range(d X) = FL(Range(c X)) End If Application.EnableEvents = True End Sub ‘*********************************************************************** 2、工程量按“项目编号” 汇总及排序 工程量按“项目编号” 汇总及排序是本软件的另一特色。“工程量计算稿”是按分部分项工程计算的，工程量计算完成后我们要把相同类进行汇总。根据《建设工程工程量清单计价规范》，相同的项目具有相同的项目编号，这就为工程量汇总带来了便利。 在汇总时对“工程量计算稿”中的“项目编号”在“工程量汇总表”中进行搜索看是否出现过。若未出现过则将相关参数依次输入第一个空白行中，并将对应的分部分项名称作为附注（套上“ ”后）添加在“汇总式”的最后一个数字后。若已出现过则仅将“+”及分部分项的工程量、对应的分部分项名称（注套上“ ”后）添加在相应的单元格后，如表2所示。汇总后按项目编号对所有参数进行重新排序。而实际上以上步骤是一气呵成的。 其源程序如下： ‘********************************************************************************************** With Worksheets(工程量计算稿) nRow = .Range(a65536).End(xlUp).Row For i = 3 To nRow If Len(.Range(c i)) = 0 Then cCeng = .Range(a i) Else cXiang = .Range(a i) Set c = Worksheets(工程量汇总表).Range(a:a).Find(cXiang, LookIn:=xlValues) If c Is Nothing Then Set c = Worksheets(工程量汇总表).Range(a65536).End(xlUp).Offset(1, 0) c.Value = cXiang c.Offset(0, 1) = .Range(b i) c.Offset(0, 2) = .Range(d i) cCeng c.Offset(0, 4) = .Range(e i) Else c.Offset(0, 2) = c.Offset(0, 2) + .Range(d i) cCeng End If c.Offset(0, 3) = c.Offset(0,..毕业 3) + .Range(d i) End If Next End With ‘注：以上程序的作用为将“工程量计算稿”中相同项目编号的工程量在“工程量汇总表”进行中汇总 Worksheets(工程量汇总).Range(b3:e65536).Sort _ Key1:=Worksheets(工程量汇总).Range(b3)程量汇总).Range(A3) ‘注：以上程序的作用为将汇总后的结果按清单编号进行排序 ‘********************************************************************************************** 四、尾声 用VBA开发的EXCEL算量软件，经实践证明能较好的解决目前工程算量中存在的问题，是造价者不可多得的算量工具。该软件不仅适用于清单计价模式下的工程量计算，也适用于定额计价模式下的工程量计算。同时还可通过与其他套价软件（或定额库）衔接在工程量汇总后直接进行计价。希望本文起起到抛砖引玉的作用，不足之处请不吝指正。