EXCEL在工程量计算中应用
EXCEL在工程量计算中应用 摘要:工程量计算的准确与否又关系到费用计算的 准确性。因此,工程量的计算不能或缺,且至关重要。目前 市场上开发出了许多不同专业的工程量计算软件,以适应不 同用户。本人利用OFFICE软件中的EXCEL电子表格的强大 功能,编译出相应的计算程序,使工程量计算方便快捷,准 确高效,可以根据自已工作的需要不断扩展,并自动编译计 算过程和计算结果。 关键词:数据库;计算程序;工程量计算 工程项目,在不同的阶段都有相应的费用,只是费用名 称有所不同,以示区别。例如:在项目建议书阶段通常叫费 用估算;在可行性研究阶段通常叫估算,在初步设计阶段通 常叫概算;在技术设计阶段通常叫详细概算;在施工图设计 阶段通常叫预算;在招投标阶段通常叫清单价等等。无论哪 个阶段,哪个价都要根据相应的程序和规则进行计算,而每 项费用计算都离不开工程量计算,工程量的计算是众多费用 计算的基础工作,而且工程量计算的准确与否又关系到费用 计算的准确性。因此,工程量的计算不能或缺,且至关重要。 目前市场上开发出了许多不同专业的工程量计算软件,以适 应不同用户。本人利用OFFICE软件中的EXCEL电子表格的 强大功能,编制出相应的计算程序,使工程量计算方便快捷, 准确高效,可以根据自已工作的需要不断扩展,并自动编译 计算过程和计算结果。为了节省篇幅和方便读者使用,如有 需要请到本人华为网盘houlinal8@sohu. com下载,密码: 123456,网盘中的文件 《EXCEL在工程量计算中的应用程 序》,与大家共同使用和探讨。 1. 程序结构 1. 1公式数据库 工程量的计算离不开各种计算公式,在这里编译了绝大 多数常用的公式,如特殊专业另有应用的读者可自行编译, 进行扩展。用一个代号调用一个公式,每个公式又给出参数 提示代号,根据参数提示输入必要的参数,所需要的计算结 果就自动计算出来,并自动编译过程计算书。公式列表为fx 工作表。A列为公式代号,简要介绍如下: 长度计算公式 用打头从100至109,如101为圆形周长公式,102 为椭圆周长等。 面积计算公式 用“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工程量计算表 工程量计算窗口主要分为工程量计算区(打印区)和公 式提示(非打印区)两个视区。在进行工程量计算时首先要 确定公式代号,记不清公式代号没有关系,只要输入公式类 代号,提示区自动将提示公式代号,输“0”提示所有公式 代号在下表代号下单元格内输入101,计算圆形周长的工程 量名称就显示出来了,同时在公式号下提示下一个公式代号 和公式名称。 提示区代号1的r下输入半径20,周长2*3. 14*20=125. 6 便自动计算出来了 O 表1工程量计算表 项目 名称拌站基础件 数系 数代 号 1单 位工程量公式号公式 名称 结施 1 G-00 0 1 1 0 0. 000 图号描述工程量 名称代号x y r 结施 1 G-00 圆形周长 101 1 1 20 m 125. 664 102椭圆周长 103扇形弧长 再按热键Ctrl+z,便自动插入行,进行下一个工程量的 计算。 1.3计算程序 输入计算公式代号; 输入提示变量值; 插入新行(Ctrl+z)。 1.4计算原理 工程量计算表的第4行为程序自动完成的工程量计算 行,当你输入了所用计算公式的代号时,工作表自动提示变 量符号,你在相应符号下输入变量值,程序根据你事先编辑 好的计算公式: 周长 C=2PI () R=2*3. 141516*20=125. 664 动态计算,当你确认计算完成后插入新行(Ctrl+z)进 入下一行时,此显示结果移至下一行,计算结果不再可编辑, 如发现错误需删除此行重新计算。 2. 程序语句 1、Q4单元格,单位自动查询公式: =IF (D4=0, 0, VL00KUP (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=l, “ “,“ *” ), IF(E4=1, “ “,E4),IF(F4=1, “ “,“ *“ ), IF(F4=1,“ “, F4)) 4、宏:插入行 Sub插入行() 插入行Macro 宏由番茄花园录制,时间:2008-2-10 快捷键:Ctrl+z Rows (“ 5: 5”). Select Selection. Insert Shift: =xlDown Rows (“ 4: 4“ ) .Select Selection.Copy Range (“ A5” ) . Select Selection. PasteSpecial Paste : =xlPastues , Operation: =xlNone, SkipBlanks _ :=False, Transpose: =False Rows (“ 2: 2“ ) .Select Application. CutCopyMode = False Selection.Copy Range (“ A4“ ) .Select ActiveSheet.Paste Cells.Select Selection. Columns. AutoFit Range (“ D4“ ) .Select Application.CutCopyMode = False End Sub 3. 公式列表 表2数据库公式代号表 代号公式名称代号公式名称代号公式名称 矩形箍筋 异梁箍筋 db 双口钢筋 圆形钢筋 负弯锚筋 8B 四口钢筋 正3边形 直形钢筋 AB 钢筋长方体面三向 正4边形 任意钢筋 RS 钢筋圆面单层双向 正5边形 K形弯筋RC侧面筋圆柱 正6边形 L形钢筋RH钢筋圆柱面双向 正7边形 双锚弯筋 正8边形 单弯锚筋 正9边形 拉锚弯筋 双锚钢筋 V形折筋 单弯钢筋 弓弓形弯筋 100求和200矩形面积300正立方体 101圆形周长201多个面