excel在混凝土管理与质量评定中的应用

EXCEL在混凝土质量评定中的应用摘要:随着中国的快速发展,每年都有大量的基础设施进行投资兴建。基础设施的建设离不开混凝土，尤其是大中型工程项目所用混凝土数量大、种类多，这也给工程项目混凝土质量的统计评价带来了一定的困难。要想解决困难让工作变得轻松就需要一个好的工具。Excel作为最常用的办公软件之一，其功能是很强大的，特别是VBA（VisualBasicforApplications是VisualBasic的一种宏语言）对其功能扩展的支持，使Excel可以具有满足用户需求的个性化功能。本文将结合工作实际，与读者共同分享一下如何利用Excel的内置函数与VBA对混凝土强度的相关数据进行统计与质量评定分析。关键字:Excel自动混凝土评定强度1、概述当前在基础设施建设过程中,混凝土被广泛应用,尤其是大型的水利枢纽工程,所用混凝土种类多,质量要求严格,因此对所用混凝土质量的监控与评定就显得尤为重要。在施工现场，由于工程质量的需求，必须要设立工地试验室，对工程所用材料质量进行监控。混凝土的质量控制就是工地试验室日常工作的一项。一般工程所用混凝土有三级配、二级配、一级配，标号有C15、C20、C25、C30、C40等，同一标号又分不同坍落度，因此采用Excel建立混凝土台账，并以台账作为混凝土质量评定的数据源是提高工作质量与效率的有效手段。Excel作为一款优秀的办公软件，在日常工作中给人们带来了极大的方便。本文将结合我在施工一线的工作经验,详细讲解一下Excel在混凝土质量管控中所发挥的作用。本工程采用水运工程系列规范、标准指导施工，因此在以下的讲解过程中将采用水运标准中混凝土强度统计与评定的相关表格。2、利用Excel建立混凝土取样及强度统计台账对于规模较大的工程，混凝土用量大，种类多，其质量直接关系到工程质量的优略，因此对于混凝土样品试验数据的统计评价就显得尤为重要。为方便数据的管理，项目试验室采用Excel办公软件，建立混凝土台账对其进行管理。台账具体格式及布局见图1（之后的强度评定将以此为基础数据）。混凝土电子台账不仅可以方便试样的管理，而且可以将其作为数据源建立混凝土样品的查找与强度评定的自动化表格。图1混凝土取样台账3、在Excel中建立混凝土质量评定表有了混凝土台账，下面要建立混凝土质量评定的相关表格。为方便制作，此处将混凝土台账和混凝土质量评定的表格放在一个工作簿中（其中sheet1、sheet2、sheet3工作表作为混凝土台账表格，将混凝土强度评定表和混凝土强度统计表均放在sheet4工作表中）。本工程为水运工程，适用水运的相关规范。此处将结合水运工程质量检测标准中混凝土强度评定所用表格来讲解Excel在混凝土强度评定中的应用。下面来认识一下水运工程质量检测标准中混凝土强度评定所用的两个表格如图2、图3。此外要想使表格具有自动根据条件筛选和强度评定的功能，还要在表格中设定好筛选条件，使表格能根据筛选条件筛选出符合要求的试样的相关数据，并将相关信息自动选填入图2所示混凝土强度统计表。本表格所用筛选条件为混凝土标号（sheet4工作表中的D4单元格）、试验日期范围（sheet4工作表中的C28、C29两个单元格，C28为起点日期，C29为终点日期）。其次还要在混凝土强度评定表的相关单元格中预填相关函数，使其具有根据混凝土强度统计表中已筛选出的数据进行自动计算的功能。各单元格所用函数见表1。在各函数中If函数出现频率较高。现对其作一简要说明，其他函数及用法可参考相关数据。If函数的基本结构为：=If（判断条件，表达式1，表达式2）。它是根据判断条件结果的真假，来选择所需结果是表达式1还是表达式2。如果判断条件结果为真，则函数取表达式1的结果，否则取表达式2的结果。其中表达式1和表达式2还可以是If函数结果，这就形成了函数的嵌套，进而可以进行多重判断（如混凝土强度评定表中的B10单元格所用的嵌套结构的If函数）。4、编写宏命令在完成以上工作后，还有最关键的一步，就是要编写一个宏命令（可以理解为用VBA写的一段程序，VBA是VB编程语言在office办公软件中的应用，其语法与VB相同）来完成根据条件搜索数据的任务。编写完宏之后，要将宏与控件（命令按钮）进行关联，使单击控件可以完成搜索功能。图2混凝土强度统计表图3混凝土强度评定表对于控件的建立本文主要针对office2010版本进行讲解，其他版本过程相似。打开Excel后，在“开发工具”选项卡中单击“控件”组中的“插入”按钮，选择“表单控件”中的“控件”选项，这时鼠标变成十字形状，按住鼠标左键在Excel当前工作表窗口拖拽即可，在之后弹出的窗口中把“宏名”（即之后所要编写宏的名称）改成自己想要的名字（本处改为“强度统计”），在生成的控件按钮上单击鼠标右键选择“编辑文字”对控件进行命名，至此控件已经做好了。控件做好后，要为控件写一段程序使其具有功能。在控件上右键选择“指定宏”，在弹出的窗口中单击“新建”进入程序编辑界面，在右侧宏编辑窗口的中写入相应代码即可。本强度统计所用宏代码如下（其中汉字只作为解释，不作为程序的一部分）：Sub强度统计()DimhAsDate,jAsDate,kAsDateDimdAsInteger,fAsInteger,gAsInteger,pAsInteger,cAsIntegerDimsAsString,yAsString,zAsString,xAsStringj=ActiveWorkbook.Worksheets(4).Range("c28").Value'将日期范围端值赋给变量k=ActiveWorkbook.Worksheets(4).Range("c29").Valuef=28'数据统计表表2中第一统计行行号为29g=15'数据统计表表2中第一列（强度列）序号为15Forc=1To3d=2'混凝土台账中表头行行号Dod=d+1s=ActiveWorkbook.Worksheets(c).Cells(d,4).Valuey=ActiveWorkbook.Worksheets(4).Range("b4").Valuez=Mid(s,1,1)'在混凝土标号中截取强度值Ifz="C"Thenz=Mid(s,2,2)Else:z=Mid(s,1,2)EndIfx=Mid(y,2,2)Ifz=xThen'判断所选标号是否符合筛选条件h=ActiveWorkbook.Worksheets(c).Cells(d,6).Value'获取符合要求标号混凝土样试验日期Ifh>jAndh<kThen'判断压试日期是否在统计日期范围内p=8DoUntilActiveWorkbook.Worksheets(c).Cells(d,p).Value=""Iff=55Theng=g+4f=28EndIff=f+1'将筛选出的符合条件试样的相关信息复制到规定位置ActiveWorkbook.Worksheets(4).Cells(f,g).Value=ActiveWorkbook.Worksheets(c).Cells(d,p).ValueActiveWorkbook.Worksheets(4).Cells(f,g-1).Value=ActiveWorkbook.Worksheets(c).Cells(d,1).ValueActiveWorkbook.Worksheets(4).Cells(f,g-2).Value=ActiveWorkbook.Worksheets(c).Cells(d,2).Valuep=p+1LoopEndIfEndIfLoopUntilActiveWorkbook.Worksheets(c).Cells(d,2).Value=""Nextc'进入下一轮循环EndSub表1混凝土强度统计评定表中相关单元格所用函数及说明单元格函数功能D5COUNT(O29:O55,S29:S55)统计验收批试件组数H5ROUND(SUM(O29:O55,S29:S55)/D5,1)计算试件强度平均值并按四舍五入保留一位小数D6STDEV(O29:O55,S29:S55)计算图2中强度数据的标准差H6MIN(O29:O55,S29:S55)选出图2中强度数据的最小值C9IF(D5>4,IF(F20<20,3.5,IF(F20>40,5.5,4.5)),"---")根据试件组数确定统计时是否需要σ0参数,并进一步确定其数值F9IF(AND(D5>1,D5<5),IF(F20<20,3.5,IF(F20>40,5.5,4.5)),"---")根据试件组数确定统计时是否需要D参数,并进一步确定其数值H9IF(AND(D5>4,D5<10),0.7,IF(AND(D5>9,D5<20),0.9,IF(D5>19,1,"---")))根据试件组数确定统计时是否需要C参数,并进一步确定其数值B10IF(D5>4,"mfcu-Sfcu="&K20&""&"fcu,k="&F20&"满足mfcu-Sfcu≥fcu,kfcu,min="&H6&"fcu,k-Cσ0="&K21&"满足fcu,min≥fcu,k-Cσ0",IF(D5>1,"fcu,k+D="&N20&"mfcu="&H5&"满足mfcu≥fcu,k+D"&"fcu,k-0.5D="&N21&"fcu,min="&H6&"满足fcu,min≥fcu,k-0.5D","仅有一个数值不做计算"))利用If函数根据已计算出的数据做混凝土强度评定并将评定过程显示在B10单元格中，函数中F20、K20、K21、N20、N21单元格数值分别为fcu,k、mfcu-Sfcu、fcu,k-Cσ0、fcu,k+D、fcu,k-0.5DB11IF(D5>4,IF(AND(H5-D6>=F20,H6>=F20-H9*C9),"该批砼根据《水运工程混凝土施工规范》（JTS202-2011)标准评定合格","该批砼根据《水运工程混凝土施工规范》（JTS202-2011)标准评定不合格"),IF(AND(D5>0,D5<5),IF(AND(H5>=F20+F9,H6>=F20-0.5*F9),"该批砼根据《水运工程混凝土施工规范》（JTS202-2011)标准评定合格","该批砼根据《水运工程混凝土施工规范》（JTS202-2011)标准