Excel工程算量模板080401版.doc

Excel工程算量模板的应用- 语言、表格、图形一个都不能少excel templates for construction budget -Descriptions、tables and drawings are all indispensable摘要：我们大部分预算人员都是从手工算量开始的。但手工算量有过程繁琐、按计算器易出错、汇总困难及不易修改等缺点。因而很多人选择软件算量，但软件使用三维建模进行计算，较手工算量又多出了复杂的建模工作。随着我国工程量清单规范的实施，编制自己的企业定额已日趋必要，企业定额的数据主要来源于历史数据的记录和统计分析。Excel具有强大的数据处理能力，是企业定额的理想选择。本人通过实际经验总结，制作了工程算量模板，为编制企业定额提供了一个接入口。本模板在计算工程量及投标报价上具有以下优点：数据清晰性强，数据追溯性强，调价直观性强。关键词：Excel应用，Excel-CAD表格互导、工程算量软件，地毯式算量技术，工程量清单规范，企业定额。Abstract: we all begin calculating by hand, It is troublesome to calculating by hand, and its not convenient to make statistics or modify. As a result, calculating soft wares have appeared one by one. However, when using soft wares to calculate, we have to do a lot of modeling work, which is the core of their calculating system.As the specification for bill of quantities carries out, it becomes necessary to make the enterprise ration, the data of which come from the records and statistics of historical data. Excel has powerful data-dealing ability. And it will perfect technique. After a lot of practice, I make a template for construction budget. It has the following advantages on construction budget and tender offer: The data is clear. It can easily tell the sources. It is easy to read for adjusting prices.Key: Application of Excel, data-in and data-out between tables of Excel and CAD, software for construction budget, specification for bill of quantities, the enterprise ration.一、创作思路及原理分析1、人类科研方法的历史回顾序号名称维数说明代表作品1计数有限一维数据（自然数）结绳记事2语言描述自从出现了语言，语言所包含的内容越来越丰富。目录的发明开创了使用一维表达多维的先河小说则实现了包含时间、人的思想在内的五维空间的描述射雕英雄传3表格使用行列作为纵横坐标形成矩阵元素周期表4图形自从中国发明了纸，纸作为一种记载工具，作出了重大的贡献。纸除了可以记录语言外，还可以记录任意的二维空间。从而出现了许许多多的世界名画。清明上河图5计算机模拟的三维空间并计算迄今为止最先进的科学方法，实现了现实空间的模拟，通过各个剖面的显示完成输入，效果图实现三维输出。并可以进行各种计算，达到空间结构的设计。鸟巢设计在模板中的应用语言描述公式是利用一些参数通过数学运算计算结果的方式。在模板中我自定义了一些公式，当选择了一个公式计算某项目后，模板会根据公式名称选择需要哪些参数，并以不同颜色提出我们输入这些参数。表格使用行表示计量项目，列表示清单部位分类，形成计算结果的矩阵显示。图形我们的计算参数不可能全部是图纸上所标注的尺寸，有一些参数需要我们进行辅助计算的。比如一个异形形状的周长及面积、同规格室外管道的总长度、墙体的统计长度、室外道路绿化的面积等。我们是使用CAD进行统计和测量后，将其结果作为参数输入的，所以在模板中，我们需要将CAD里的这部分工作作为附图来加强我们计算的清晰性的。 2、隧道合笼原理在修筑隧道时，有时由于隧道较长，施工到一定深度时将很难进行，但如果我们从另一个方向向回修筑进行合笼，将可以将修筑长度增加一倍。我们的工程算量也是类似，从一个工程直接到工程量是很复杂的。我们最常规的思维是将工程分成一个一个的模块，再对其进行计算工程量。但由于每一个模块仍较复杂，要想达到最终目的，将会出现了要么出现成百上千个模块。这里借用隧道合笼原理。我们知道，根据工程量清单规范，工程量单位只有5个（件、米、平米、立米、吨），而每一个单位计算的常用的几何形状也并不多，这就为我们的逆向思维提供了可能。本人将不同情况的计算公式编辑好公式，为每个公式命名（约30多个）。这样，从工程项目到工程量之间有了两个中间环节：我们将工程划分成若干个构件，每个构件的计算项目使用相应的公式，实现了三节跳。而每个项目下可放置任意多个构件，每个构件下双可放置任意多个公式，这样就简化了中间环节的数量，达到整体清晰性的目的。3、与其它算量方法的对比分析1）与手工算量的对比EXCEL模板算量的基础就是手工算量，所以如果你不会手工算量或者说没有一定的专业知识，你就用不好EXCEL模板。EXCEL模板算量比传统手工算量的优势通过公式计算简化了列式和按计算器的计算过程；通过保存为模板记录了你以前计算过的常用构件，只需调用，无需重新列式；通过公式完成汇总功能，不需在计算稿上做各种标记进行汇总；EXCEL具有图表功能，能以直观的图表输出一些造价指标。2）与地毯式算量的对比都是在EXCEL的基础上进行扩展进行算量，都是将工程分成若干个构件分别进行计算，区别在于EXCEL模板没有将过程做成软件（本人不是做软件的，不会）。EXCEL模板将工程拆分成广义的构件，地毯式则拆分成狭义的模块进行参数输入。所以EXCEL模板计算一个工程只需20个左右的构件，而地毯式则做了一百多个模块还明显不够用。EXCEL模板对构件拆分成计量项目，计量公式仅包含基本几何形状及钢筋，共有30多个。而地毯式的每个模块的计算公式则较复杂。手工算量时，我们统计数量是用荧光笔在图纸是进行标记的，EXCEL模板延用了这一手工统计计数，同时升级成CAD中统计数量并打印做附图的方式。而地毯式按照卷地毯方法进行计数，抹杀了手工算量的这一优点。3）与理想三维算量软件的对比为了形象说明问题，我设计了一个案例：请计算一个雕塑的重量方法一：这是最容易想到的方法，把雕塑放到地镑上称一称。（当然不能这么简单，现假设这个雕塑与下部是连体的，无法移动）方法二：在雕塑周围制作一个长方体容器，将雕塑涂满蜡烛油，往容器里灌水，长方体体积-灌入水体积-使用的蜡烛油体积就是雕塑体积，乘以密度就是重量。（同样不被允许，雕塑是艺术，哪能容得你这么糟蹋，再想其它方法）方法三：在旁边安装一台CT设备，对雕塑从上到下捉进行切片扫描，得到每一层的截面，截面积的总和*层间距就是体积，乘以密度得到重量。或许你会说，你这样计算不对，你是计算的一个个柱状体的体积总和，并不等同于雕塑体积。对，这里进行了近似，当层距达到一定程度时，其误差将能达到我们的误差要求。方法四：将以上的切片按坐标录入到3DMax软件进行建模，对表面进行光滑处理后渲染，与真实照片进行对照并精细处理，完毕后，软件会告诉你一个体积，乘以密度得到重量。很显然，方法三简捷高效，但精度低、对操作人员专业要求高；方法四直观精确，但建模较复杂、软件开发维护成本高。市场细分：方法三适用用中小型项目，方法四适用于大中型项目。4）市面上算量软件与理想三维软件的差距通过本人的使用，市面上的算量软件并非真正意义上的三维软件，而是二维建模，再通过拉伸形成三维显示。所以他无法实现任意剖面上建模，无法在三维显示下直接创建构件。你正在使用算量软件吗？现在请你在墙上开一个中华人民共和国形状的洞口。再举个例子，如果柱子在不同标高是不一样的，你怎么建模，软件弹出了一个窗口吧，里面输入不同标高及相应的柱参数。为什么? 因为软件是二维建模，要实现三维，他需要添加模块才能实现。而如果是真实三维，我肯定不会在平面图上画这根柱，而会选择剖面图上建模。软件中共使用了多少这样的模块实现三维建模的呢？坡形屋面的建模，坡屋面下墙体的拉伸，门窗的布置等等。随着设计形式的日益更新，软件中模块越来越多，操作也会越来越复杂。对比成熟的三维软件：3D Smart 管道三维设计软件，钢结构的XSTEEL详图设计软件，算量建模的结构形式和输出结果是相对简单的，而建模却如此复杂。Tell me why?二、基本操作说了这么多大道理，现在我就介绍一下使用的基本操作工程列项输入参数工程量计算钢筋含量分析构件参数检查工程量输出单价输入参考总价主要指标统计长度数量清单符合性输入大部分构件已有模块，特殊构件自定义人工处理配合CAD进行统计，打印图形进行备注按提示填写尽量按图纸格式输入参数，如梁平法标注自动大部分公式已编辑好，遇有未编辑的公式，可自行输入，模板会以不同颜色区分自定义公式，或添加到自定义函数中自动辅助工作，检查人为错误及钢筋指标调整分类适应清单自动计算，按给定清单进行项目分类定期更新模板中定期更新企业定额单价自动对占总价比重大的项目进行详细询价，保证总价的误差精度要求自动计算主要指标，可参考类似工程的各项指标进行快速估价1、打开模板文件（请将安全性设为中，并选择使用宏）文件中有一个工作簿工程量计算。请点击每个工作簿的操作说明按钮，有简要说明。2、表格中最开始是建筑面积，根据图纸输入长宽计算吧，如果形状复杂，建议你在CAD中测量好面积后输入到模板中。建筑面积不用来计量和计价，是用来计算工程造价指标的，并不费多少时间，建议你做一下。3、下面要计算实质性内容了，先按我说的做，选择建筑面积下空行的任一单无格，点击左上角的“插入构件”按钮，出现一个窗口，里面有一些构件的按钮，点一个按钮试试。4、先输入构件的数量和长宽高吧（请注意项目行中蓝色单元格的变化）5、根据构件的图纸，你需要计算哪些项目呢，输入到清单项目列，在“biaoji”列选择相应的公式（注意LBHnd123456各列颜色的变化，当公式需要该参数时，该参数会显示黄色或蓝色，灰色单元格无需理它）6、在黄色单元格输入参数，蓝色单元格中的参数如果不是你需要的，直接输入，变成黄色了不是，因为这个参数是你输入的嘛。7、现在向右拉动滚动条，看看计算结果吧。8、现在回到第3步，你点平法梁。9、注意，黄色单元格中有公式，不要随意输入，到构件名称右侧的单元格中看看，修改其中的参数，看看下面的数值变化。（对于平法梁，只需输入构件数量、梁长度和前述单元格）10、重新回到第3步，你点自动房间11、再点击上部工作簿开关按钮，打开装修做法表工作簿，这是从CAD图中导入装修做法表。回到工程量计算，请输入房间的长、宽、净高及数量（对于异形房间请输入周长、面积、净高及数量），修改房间名称，看看各装修做法的变化。12、重新回到第3步，你点子项。修改构件名称为地B，再插入一个子项，构件名称墙B13、点击上部子项按钮，再点按子项按钮。请注意地B和墙B的构件数量。打开工程单价工作簿及项目汇总工作簿。14、点击子项按钮，再点量归一按钮，按母项按钮，看看三个工作簿的变化（原理：当按子项计算时，子项的构件数量为母项的工程量，母项的单价为0，而按母项计算时，母项的单价为一个子项构件的合价，子项的构件数量为0，这样避免了重复计价）15、打开所有工作簿，看看里面的内容吧。点击每个工作簿的操作说明按钮，有简要说明，有什么建议请与我联系。三、自定义构件列项及计量公式前面的操作熟悉得怎么样了？你是不是会问：要是我计算的构件没有怎么办？我要计算扇形面积，怎么计算？请倒杯咖啡，跟我来啃这两块骨头吧1、打开工程量计算和模块两个工作簿，选择J列所有数据单元格，点菜单数据数据有效性，在来源下添加“，扇形”确定。2、工程量计算空白行J列输入扇形，后面没任何变化，慢慢来3、依次选择菜单工具宏VB编辑器，双击模块2，复制一个ElseIf.sm=.，修改名称为“扇形”，sm=1半径2扇角。4、回到工作表，按“F9”，注意参数单元格的变化。5、回到步骤3，双击模块1，复制一个ElseIf. 修改名称为“扇形”，修改temp(5)=3.1416*(one/1000)2*two/1000*3.1416/180, temp(6)=“M2”6、回到工作表，按“F9”，注意计算单元格的变化。7、现在在工程量计算表中计算一个新构件，然后将数据区域复制到模块工作簿的空白区域8、依次选择菜单工具宏VB编辑器，双击模块userform1，右键单击右下角的构件名称按钮，选择属性，修改caption为你定义的构件名称，再双击该按钮Private Sub CommandButton23_Click() End Sub9、复制其它按钮的内容，修改Range(J70:AD79).Select的区域为你刚才保存内容的区域10、回到工程量计算工作簿，点插入构件，点刚才的按钮（想像一下可能遇到没算过的构件，你有信心了吗？有就甩一甩头吧，漂柔，就是需要这份自信！）四、EXCEL模板在外部衔接中的应用1、挖土方：工程量清单规范因为考虑不同投标单位的施工水平不一致，为了保持公平公正，规定土方工程量是按不放坡考虑的。但实际施工过程中确实是要放坡的，企业成本也是与放坡土方量成正比的。模板中是这样实现的：先按留工作面，放坡进行计算工程量，并计价，记录总价。对计算表格进行筛选挖土方，将工作面和放坡系数清除，得出不放坡工程量，填入清单。2、不同构件的砼量：工程量清单规范对梁、柱、板及墙等构件是分开计量的，但作为施工单位，在将工作分配给班组长时，一般并不会按不同类型使用不同的价格。所以在模板算量时，对不同构件的同等级砼是统一定价的，以减少项目数量，加强数据清晰性。3、化粪池等小型构件：工程量清单规范为了简化清单，对小型构件进行了整合。如果施工单位按构件进行定价，而图集中做法繁多，企业定额的计价项目将非常多。在本模板中，我们对小型构件进行拆分至清单项目进行计价，计价后再将构件价格输入到工程量清单中。4、装修做法：图纸中装修做法是以地A、墙B等表示的吧，计量后无法计价，如果将其拆成具体做法，不同部位的地A我们要计算好多次，重复劳动。本模板使用子项进行处理，你可以选择按子项或按母项进行计算，总价是一致的。5、套用定额计价：这是一个方法，假设有一个计量项目我无法确定单价，我们只能借助定额进行估价。我们将这个项目做为一个子项构件，下面输入定额的人材机含量，再在单价表中输入人材机单价，执行量归一和按母项，就可以得出项目单价。6、门窗：工程量清单规范为了将门窗五金综合到门窗综合价中，对门窗是按樘进行计量的，给施工单位的计价带来了很大的麻烦。在本模板中，门窗作为项目按面积进行计价，门五金按数量计价，汇总成构件将其构件单价填入工程量清单中。五、总结大家都看过金庸的小说吧，感觉很舒服。这里作为归纳，我把工程算量比作剑法，大家权当一笑。算量工具比作剑，软件的基本操作可谓“剑法”，本EXCEL模板的剑法可谓简单吧，基本操作只有15个步骤。任何软件不可能面面俱到，要想更好的应用软件，你必须进行自定义，称之为“心法”。本EXCEL模板的心法也不算难吧？当你掌握以上两项以后，加以合理运用，做到“心剑合一”，相信对你的工作效率会有很大的提高。至此为止，你还不能称为“剑客”，因为剑客还需要足够的“内功”作为后盾。所以你要认真学习规范和图集，只有熟炼掌握的规范和图集，你在与审计对量时，才能掌握主动。最后是武术的最高境界，所谓“无剑胜有剑，手中无剑，心中有剑”。当你工作若干年后，积累了丰富的经验，对不同设计图纸的各项指标能脱口而出，你就达到最高境界了。试想有朝一日，你的领导给你一套图纸，说半个小时后，你给我大致的量和报价。此时任何算量工具都望尘莫及，但你别忘了，人脑是迄今为止最先进的，所以你只能靠自己。人脑的记忆力是有限的，但如果你将内容整理得非常有条理，你的记忆力会成倍增加，所以凭借你多年的工作经验，相信你可以做到！如果你是预算人员，看到这篇文章之后，有什么使用心得请与我联系，同时别忘了向你的领导推荐一下我。如果你是预算部门领导，请向你的下属了解使用情况，你认为有什么不足，请与我联系。作为本模板的创作人，相信在本模板的“剑法”和“心法”方面，作为入门的教练还是能胜任的。本人目前生活尚处于温饱线，如果你认为本人的作品还算有价值，请你多多帮我宣传，多谢捧场！QQ:20439765 QQ群：56336868Email:yaker_77126.com附：自定义公式的VBA编程文件自定义工程量计算的数组公式Option Base 1Function gcl(biaoji, xm, L, B, H, n, d, one, two, three, four, five, six) If xm = 钢筋一级 Then dengji = A ElseIf xm = 钢筋二级 Then dengji = B ElseIf xm = 钢筋三级 Then dengji = C Else dengji = ? End If Dim temp(6) Select Case biaoji Case Is = 构件 temp(1) = temp(2) = temp(3) = temp(4) = temp(5) = temp(6) = Case Is = 件数 temp(1) = temp(2) = temp(3) = temp(4) = n= & n temp(5) = n temp(6) = U Case Is = 长度 temp(1) = temp(2) = temp(3) = temp(4) = n= & n temp(5) = L / 1000 * n temp(6) = M Case Is = 面积 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 测S= & one & 加长= & two & 加宽= & three If one = 0 Then temp(5) = (L + two) / 1000 * (B + three) / 1000 * n Else temp(5) = one * n End If temp(6) = M2 Case Is = 柱模板 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 测周长= & one If one = 0 Then temp(5) = (L + B) * 2 / 1000 * H / 1000 * n Else temp(5) = one / 1000 * H / 1000 * n End If temp(6) = M2 Case Is = 梁模板 temp(1) = temp(2) = temp(3) = temp(4) = 板厚= & one temp(5) = L / 1000 * (B + 2 * (H - one) / 1000 temp(6) = M2 Case Is = 体积 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 测S= & one If one = 0 Then temp(5) = L / 1000 * B / 1000 * H / 1000 * n Else temp(5) = one * H / 1000 * n End If temp(6) = M3 Case Is = 圆柱体积 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & D= & one & t= & two If two = 0 Then temp(5) = 3.1416 * one * one / 4000 * H / 1000 * n Else temp(5) = 3.1416 * (one * one - (one - two) * (one - two) / 4000 * H / 1000 * n End If temp(6) = M3 Case Is = 梁砼 temp(1) = temp(2) = temp(3) = temp(4) = 板厚= & one temp(5) = L / 1000 * B / 1000 * (H - one) / 1000 temp(6) = M3 Case Is = 梯形 temp(1) = temp(2) = temp(3) = temp(4) = 上宽= & one & 下宽= & two temp(5) = L / 1000 * (one + two) / 2000 * H / 1000 temp(6) = M3 Case Is = 梯形放坡 temp(1) = temp(2) = temp(3) = temp(4) = 工作面= & one & 坡度= & two temp(5) = L / 1000 * (B + one * 2 + two * H) / 1000 * H / 1000 temp(6) = M3 Case Is = 锥形 Sone = L / 1000 * B / 1000 temp(1) = S1= & Sone Stwo = one / 1000 * two / 1000 temp(2) = S2= & Stwo temp(3) = temp(4) = 上长= & one & 下宽= & two temp(5) = (Sone + Stwo + Sqr(Sone * Stwo) * H / 3000 temp(6) = M3 Case Is = 放坡锥形 Sone = (L + one * 2) / 1000 * (B + one * 2) / 1000 temp(1) = S1= & Sone Stwo = (L + one * 2 + two * H * 2) / 1000 * (B + one * 2 + two * H * 2) / 1000 temp(2) = S2= & Stwo temp(3) = temp(4) = 工作面= & one & 坡度= & two temp(5) = (Sone + Stwo + Sqr(Sone * Stwo) * H / 3000 temp(6) = M3 Case Is = 面积锥形 temp(1) = temp(2) = temp(3) = temp(4) = S1= & one & S2= & two temp(5) = (one + two + Sqr(one * two) * H / 3000 temp(6) = M3 Case Is = 柱钢筋 gjn = n temp(1) = gjn gjl = H + one + two temp(2) = gjl If three = 0 Then djl = 0 Else djl = 40 * d * (three + 1) End If temp(3) = djl temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 柱箍筋 temp(6) = T gjn = (H - five) / two + five / one) * n temp(1) = gjn gjl = L * three + B * four temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d & & one & / & two & ( & three & * & four & ) & 加密长 & five temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 Case Is = 上部筋 gjn = n temp(1) = gjn If two = 100 Then gjl = L + one Else gjl = Int(L + one * (two + 1) / two + 15 * d * 2 / two) End If temp(2) = gjl djl = Int(40 * 0.8 * d * gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 加强筋 gjn = n temp(1) = gjn If two = 100 Then gjl = L + one Else gjl = Int(L * 2 / 3 + one * (two + 1) / two + 15 * d * 2 / two) End If temp(2) = gjl djl = Int(40 * 0.8 * d * gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 下部筋 gjn = n temp(1) = gjn If two = 100 Then gjl = L + one Else gjl = Int(L + one * (two + 1) / two + 15 * d * 2 / two) End If temp(2) = gjl djl = Int(28 * 0.8 * d * gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 梁箍筋 If H 250 Then jml = H * 4 Else jml = 1000 End If gjn = (L - jml) / two + jml / one) * n temp(1) = gjn gjl = H * three + B * 2 temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d & & one & / & two & ( & three & ) temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 零星箍筋 gjn = n temp(1) = gjn gjl = H * one + B * two temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d & ( & one & * & two & ) temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 拉筋 gjn = L / one * n temp(1) = gjn gjl = B temp(2) = gjl djl = 0 temp(3) = temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 长分布筋 gjn = (B + three - 2 * four) / one * n temp(1) = gjn gjl = L + two - 2 * four temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d & & one temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 宽分布筋 gjn = (L + two - 2 * four) / one * n temp(1) = gjn gjl = B + three - 2 * four temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d & & one temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 双层加固 gjn = Int(L / one * B / two) temp(1) = gjn gjl = H + 6.5 * d temp(2) = gjl temp(3) = temp(4) = biaoji & n & dengji & d & & one & * & two temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 temp(6) = T Case Is = 零星钢筋 temp(6) = T gjn = n temp(1) = gjn gjl = L temp(2) = gjl djl = 40 * d * Int(gjl / 9000) temp(3) = djl temp(4) = biaoji & n & dengji & d temp(5) = gjn * (gjl + djl) / 1000 * Round(3.1416 * d * d * 7.85 / 4000, 3) / 1000 Case Is = 钢板 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 厚= & one temp(5) = L / 1000 * B / 1000 * one / 1000 * n * 7.85 temp(6) = T Case Is = 花纹板 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 规格 & one temp(5) = L / 1000 * B / 1000 * two * n temp(6) = T Case Is = 型材 temp(1) = temp(2) = temp(3) = temp(4) = n= & n & 规格 & one & 单重 & two temp(5) = n * L / 1000 * two / 1000 temp(6) = T Case Else temp(1) = temp(2) = temp(3) = temp(4) = temp(5) = temp(6) = End Select gcl = tempEnd Function自定义参数说明公式Function sm(biaoji) If biaoji = 构件 Then sm = 构件名称构件数量LBH ElseIf biaoji = 件数 Then sm = n ElseIf biaoji = 长度 Then sm = Ln ElseIf biaoji = 面积 Then sm = LBn1测量面积2加长3加宽 ElseIf biaoji = 柱模板 Then sm = LBHn1测量周长 ElseIf biaoji = 梁模板 Then sm = LBH1板厚 ElseIf biaoji = 体积 Then sm = LBHn1测量面积 ElseIf biaoji = 圆柱体积 Then sm = Hn1直径2壁厚 ElseIf biaoji = 梁砼 Then sm = LBH1板厚 ElseIf biaoji = 梯形 Then sm = LH1上宽2下宽 ElseIf biaoji = 梯形放坡 Then sm = LBH1工作面2坡度 ElseIf biaoji = 锥形 Then sm = LBH1上长2上宽 ElseIf biaoji = 放坡锥形 Then sm = LBH1工作面2坡度 ElseIf biaoji = 面积锥形 Then sm = H1下部面积2上部面积 ElseIf biaoji = 柱钢筋 Then sm = Hnd1下加长2上加长3层数 ElseIf biaoji = 柱箍筋 Then sm = LBHnd12间距34筋数5加密长 ElseIf biaoji = 上部筋 Then sm = Lnd1柱宽2跨数(边跨输2倍,中间跨输100) ElseIf biaoji = 加强筋 Then sm = Ln(平均值)d1柱宽2跨数 ElseIf biaoji = 下部筋 Then sm = Lnd1柱宽2跨数 ElseIf biaoji = 梁箍筋 Then sm = LBHnd12间距3立筋数 ElseIf biaoji = 零星箍筋 Then sm = BHnd12筋数 ElseIf biaoji = 拉筋 Then sm = LBnd1间距 ElseIf biaoji = 长分布筋 Then sm = LBnd1间距2钢筋加长3布置加宽4保护 ElseIf biaoji = 宽分布筋 Then sm = LBnd1间距2布置加长3钢筋加宽4保护 ElseIf biaoji = 双层加固 Then sm = LBHd12间距 ElseIf biaoji = 零星钢筋 Then sm = Lnd ElseIf biaoji = 钢板 Then sm = LBn1板厚 ElseIf biaoji = 花纹板 Then sm = LBn1板厚2单位重量 ElseIf biaoji = 型材 Then sm = Ln1规格2单位重量 Else sm = End IfEnd Function