资源描述:
《excel在工程量计算中应用》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、EXCEL在工程量计算中应用摘要:工程量计算的准确与否又关系到费用计算的准确性。因此,工程量的计算不能或缺,且至关重要。目前市场上开发出了许多不同专业的工程量计算软件,以适应不同用户。本人利用0FFICE软件中的EXCEL电子表格的强大功能,编译出相应的计算程序,使工程量计算方便快捷,准确高效,可以根据自已工作的需要不断扩展,并自动编译计算过程和计算结果。关键词:数据库;计算程序;工程量计算工程项目,在不同的阶段都有相应的费用,只是费用名称有所不同,以示区别。例如:在项目建议书阶段通常叫费用估算;在可行性研究阶段通常叫估算,在初步设计阶段通常叫概算;在技术设
2、计阶段通常叫详细概算;在施工图设计阶段通常叫预算;在招投标阶段通常叫清单价等等。无论哪个阶段,哪个价都要根据相应的程序和规则进行计算,而每项费用计算都离不开工程量计算,工程量的计算是众多费用计算的基础工作,而且工程量计算的准确与否又关系到费用计算的准确性。因此,工程量的计算不能或缺,且至关重要。目前市场上开发出了许多不同专业的工程量计算软件,以适应不同用户。本人利用0FFICE软件中的EXCEL电子表格的强大功能,编制出相应的计算程序,使工程量计算方便快捷,准确高效,可以根据自已工作的需要不断扩展,并自动编译计算过程和计算结果。为了节省篇幅和方便读者使用,如
3、有需要请到本人华为网盘houlinal8@sohu.com下载,密码:123456,网盘中的文件《EXCEL在工程量计算中的应用程序》,与大家共同使用和探讨。1.程序结构1.1公式数据库工程量的计算离不开各种计算公式,在这里编译了绝大多数常用的公式,如特殊专业另有应用的读者可自行编译,进行扩展。用一个代号调用一个公式,每个公式又给出参数提示代号,根据参数提示输入必要的参数,所需要的计算结果就自动计算出来,并自动编译过程计算书。公式列表为fx工作表。A列为公式代号,简要介绍如下:长度计算公式用T打头从100至109,如101为圆形周长公式,102为椭圆周长等。
4、面积计算公式用“2”打头从200至223,如201多个面积和公式,203为任意三角形面积等。体积计算公式用“3”打头从300至321,如301代表长方体公式,302为正棱柱等。重量计算公式用“4”打头从400至440,如401代表栏杆计算公式,402为埋件计算公式用1到两位数字或字母代表钢筋,如用“8”代表八边形钢筋,用“U”代表U形钢筋。B列为公式名称。C-L计十列,为公式变量提示区。M—V计十列,为变量取值区。W列为单位。X列为计算结果。Y列为图形说明。Z列为沉余公式代号。1.2工程量计算表工程量计算窗口主要分为工程量计算区(打印区)和公式提示(非打印区
5、)两个视区。在进行工程量计算时首先要确定公式代号,记不清公式代号没有关系,只要输入公式类代号,提示区自动将提示公式代号,输“0”提示所有公式代号在下表代号下单元格内输入101,计算圆形周长的工程量名称就显示出来了,同时在公式号下提示下一个公式代号和公式名称。提示区代号1的r下输入半径20,周长2*3.14*20=125.6便自动计算出来了。表1工程量计算表项目名称拌站基础件数系数代号1单位工程量公式号公式名称结施1G-0001100.000图号描述工程量名称代号Xyr结施1G-00圆形周长1011120m125.664102椭圆周长103扇形弧长再按热键Ct
6、rl+z,便自动插入行,进行下一个工程量的计算。1・3计算程序输入计算公式代号;输入提示变量值;插入新行(Ctrl+z)o1.4计算原理工程量计算表的第4行为程序自动完成的工程量计算行,当你输入了所用计算公式的代号时,工作表自动提示变量符号,你在相应符号下输入变量值,程序根据你事先编辑好的计算公式:周长C二2PI()R二2*3.141516*20二125.664动态计算,当你确认计算完成后插入新行(Ctrl+z)进入下一行时,此显示结果移至下一行,计算结果不再可编辑,如发现错误需删除此行重新计1.程序语句1、Q4单元格,单位自动查询公式:=IF(D4=0,0
7、,VLOOKUP(D4,fx!$A:$Y,23,FALSE))2、R4单元格,计算结果查询公式:=IF(D4=0,0,VLOOKUP(D4,fx!$A$3:$Y$923,24,FALSE)*E4*F4)3、T4单兀格,计算式编辑公式:二CONCATENATE(IF(D4=0,0,VLOOKUP(D4,fx!$A$3:$BI$923,COLUMN(BH4),FALSE)),IF(E4二1,”“,”*”),IF(E4二1,”“,E4),IF(F4二1,”“,”*”),IF(F4=1,”F4))4、宏:插入行Sub插入行()'"插入行Macro'宏由番茄花园录制,
8、时间:2008-2-10''快捷键:Ctrl+z'R