excel在混凝土管理與質(zhì)量評定中的應(yīng)用

EXCEL在混凝土質(zhì)量評定中的應(yīng)用摘要:隨著中國的快速發(fā)展,每年都有大量的基礎(chǔ)設(shè)施進(jìn)行投資興建?；A(chǔ)設(shè)施的建設(shè)離不開混凝土，尤其是大中型工程項(xiàng)目所用混凝土數(shù)量大、種類多，這也給工程項(xiàng)目混凝土質(zhì)量的統(tǒng)計評價帶來了一定的困難。要想解決困難讓工作變得輕松就需要一個好的工具。Excel作為最常用的辦公軟件之一，其功能是很強(qiáng)大的，特別是VBA（VisualBasicforApplications是VisualBasic的一種宏語言）對其功能擴(kuò)展的支持，使Excel可以具有滿足用戶需求的個性化功能。本文將結(jié)合工作實(shí)際，與讀者共同分享一下如何利用Excel的內(nèi)置函數(shù)與VBA對混凝土強(qiáng)度的相關(guān)數(shù)據(jù)進(jìn)行統(tǒng)計與質(zhì)量評定分析。關(guān)鍵字:Excel自動混凝土評定強(qiáng)度1、概述當(dāng)前在基礎(chǔ)設(shè)施建設(shè)過程中,混凝土被廣泛應(yīng)用,尤其是大型的水利樞紐工程,所用混凝土種類多,質(zhì)量要求嚴(yán)格,因此對所用混凝土質(zhì)量的監(jiān)控與評定就顯得尤為重要。在施工現(xiàn)場，由于工程質(zhì)量的需求，必須要設(shè)立工地試驗(yàn)室，對工程所用材料質(zhì)量進(jìn)行監(jiān)控?；炷恋馁|(zhì)量控制就是工地試驗(yàn)室日常工作的一項(xiàng)。一般工程所用混凝土有三級配、二級配、一級配，標(biāo)號有C15、C20、C25、C30、C40等，同一標(biāo)號又分不同坍落度，因此采用Excel建立混凝土臺賬，并以臺賬作為混凝土質(zhì)量評定的數(shù)據(jù)源是提高工作質(zhì)量與效率的有效手段。Excel作為一款優(yōu)秀的辦公軟件，在日常工作中給人們帶來了極大的方便。本文將結(jié)合我在施工一線的工作經(jīng)驗(yàn),詳細(xì)講解一下Excel在混凝土質(zhì)量管控中所發(fā)揮的作用。本工程采用水運(yùn)工程系列規(guī)范、標(biāo)準(zhǔn)指導(dǎo)施工，因此在以下的講解過程中將采用水運(yùn)標(biāo)準(zhǔn)中混凝土強(qiáng)度統(tǒng)計與評定的相關(guān)表格。2、利用Excel建立混凝土取樣及強(qiáng)度統(tǒng)計臺賬對于規(guī)模較大的工程，混凝土用量大，種類多，其質(zhì)量直接關(guān)系到工程質(zhì)量的優(yōu)略，因此對于混凝土樣品試驗(yàn)數(shù)據(jù)的統(tǒng)計評價就顯得尤為重要。為方便數(shù)據(jù)的管理，項(xiàng)目試驗(yàn)室采用Excel辦公軟件，建立混凝土臺賬對其進(jìn)行管理。臺賬具體格式及布局見圖1（之后的強(qiáng)度評定將以此為基礎(chǔ)數(shù)據(jù)）。混凝土電子臺賬不僅可以方便試樣的管理，而且可以將其作為數(shù)據(jù)源建立混凝土樣品的查找與強(qiáng)度評定的自動化表格。圖1混凝土取樣臺賬3、在Excel中建立混凝土質(zhì)量評定表有了混凝土臺賬，下面要建立混凝土質(zhì)量評定的相關(guān)表格。為方便制作，此處將混凝土臺賬和混凝土質(zhì)量評定的表格放在一個工作簿中（其中sheet1、sheet2、sheet3工作表作為混凝土臺賬表格，將混凝土強(qiáng)度評定表和混凝土強(qiáng)度統(tǒng)計表均放在sheet4工作表中）。本工程為水運(yùn)工程，適用水運(yùn)的相關(guān)規(guī)范。此處將結(jié)合水運(yùn)工程質(zhì)量檢測標(biāo)準(zhǔn)中混凝土強(qiáng)度評定所用表格來講解Excel在混凝土強(qiáng)度評定中的應(yīng)用。下面來認(rèn)識一下水運(yùn)工程質(zhì)量檢測標(biāo)準(zhǔn)中混凝土強(qiáng)度評定所用的兩個表格如圖2、圖3。此外要想使表格具有自動根據(jù)條件篩選和強(qiáng)度評定的功能，還要在表格中設(shè)定好篩選條件，使表格能根據(jù)篩選條件篩選出符合要求的試樣的相關(guān)數(shù)據(jù)，并將相關(guān)信息自動選填入圖2所示混凝土強(qiáng)度統(tǒng)計表。本表格所用篩選條件為混凝土標(biāo)號（sheet4工作表中的D4單元格）、試驗(yàn)日期范圍（sheet4工作表中的C28、C29兩個單元格，C28為起點(diǎn)日期，C29為終點(diǎn)日期）。其次還要在混凝土強(qiáng)度評定表的相關(guān)單元格中預(yù)填相關(guān)函數(shù)，使其具有根據(jù)混凝土強(qiáng)度統(tǒng)計表中已篩選出的數(shù)據(jù)進(jìn)行自動計算的功能。各單元格所用函數(shù)見表1。在各函數(shù)中If函數(shù)出現(xiàn)頻率較高?，F(xiàn)對其作一簡要說明，其他函數(shù)及用法可參考相關(guān)數(shù)據(jù)。If函數(shù)的基本結(jié)構(gòu)為：=If（判斷條件，表達(dá)式1，表達(dá)式2）。它是根據(jù)判斷條件結(jié)果的真假，來選擇所需結(jié)果是表達(dá)式1還是表達(dá)式2。如果判斷條件結(jié)果為真，則函數(shù)取表達(dá)式1的結(jié)果，否則取表達(dá)式2的結(jié)果。其中表達(dá)式1和表達(dá)式2還可以是If函數(shù)結(jié)果，這就形成了函數(shù)的嵌套，進(jìn)而可以進(jìn)行多重判斷（如混凝土強(qiáng)度評定表中的B10單元格所用的嵌套結(jié)構(gòu)的If函數(shù)）。4、編寫宏命令在完成以上工作后，還有最關(guān)鍵的一步，就是要編寫一個宏命令（可以理解為用VBA寫的一段程序，VBA是VB編程語言在office辦公軟件中的應(yīng)用，其語法與VB相同）來完成根據(jù)條件搜索數(shù)據(jù)的任務(wù)。編寫完宏之后，要將宏與控件（命令按鈕）進(jìn)行關(guān)聯(lián)，使單擊控件可以完成搜索功能。圖2混凝土強(qiáng)度統(tǒng)計表圖3混凝土強(qiáng)度評定表對于控件的建立本文主要針對office2010版本進(jìn)行講解，其他版本過程相似。打開Excel后，在“開發(fā)工具”選項(xiàng)卡中單擊“控件”組中的“插入”按鈕，選擇“表單控件”中的“控件”選項(xiàng)，這時鼠標(biāo)變成十字形狀，按住鼠標(biāo)左鍵在Excel當(dāng)前工作表窗口拖拽即可，在之后彈出的窗口中把“宏名”（即之后所要編寫宏的名稱）改成自己想要的名字（本處改為“強(qiáng)度統(tǒng)計”），在生成的控件按鈕上單擊鼠標(biāo)右鍵選擇“編輯文字”對控件進(jìn)行命名，至此控件已經(jīng)做好了?？丶龊煤?，要為控件寫一段程序使其具有功能。在控件上右鍵選擇“指定宏”，在彈出的窗口中單擊“新建”進(jìn)入程序編輯界面，在右側(cè)宏編輯窗口的中寫入相應(yīng)代碼即可。本強(qiáng)度統(tǒng)計所用宏代碼如下（其中漢字只作為解釋，不作為程序的一部分）：Sub強(qiáng)度統(tǒng)計()DimhAsDate,jAsDate,kAsDateDimdAsInteger,fAsInteger,gAsInteger,pAsInteger,cAsIntegerDimsAsString,yAsString,zAsString,xAsStringj=ActiveWorkbook.Worksheets(4).Range("c28").Value'將日期范圍端值賦給變量k=ActiveWorkbook.Worksheets(4).Range("c29").Valuef=28'數(shù)據(jù)統(tǒng)計表表2中第一統(tǒng)計行行號為29g=15'數(shù)據(jù)統(tǒng)計表表2中第一列（強(qiáng)度列）序號為15Forc=1To3d=2'混凝土臺賬中表頭行行號Dod=d+1s=ActiveWorkbook.Worksheets(c).Cells(d,4).Valuey=ActiveWorkbook.Worksheets(4).Range("b4").Valuez=Mid(s,1,1)'在混凝土標(biāo)號中截取強(qiáng)度值Ifz="C"Thenz=Mid(s,2,2)Else:z=Mid(s,1,2)EndIfx=Mid(y,2,2)Ifz=xThen'判斷所選標(biāo)號是否符合篩選條件h=ActiveWorkbook.Worksheets(c).Cells(d,6).Value'獲取符合要求標(biāo)號混凝土樣試驗(yàn)日期Ifh>jAndh<kThen'判斷壓試日期是否在統(tǒng)計日期范圍內(nèi)p=8DoUntilActiveWorkbook.Worksheets(c).Cells(d,p).Value=""Iff=55Theng=g+4f=28EndIff=f+1'將篩選出的符合條件試樣的相關(guān)信息復(fù)制到規(guī)定位置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'進(jìn)入下一輪循環(huán)EndSub表1混凝土強(qiáng)度統(tǒng)計評定表中相關(guān)單元格所用函數(shù)及說明單元格函數(shù)功能D5COUNT(O29:O55,S29:S55)統(tǒng)計驗(yàn)收批試件組數(shù)H5ROUND(SUM(O29:O55,S29:S55)/D5,1)計算試件強(qiáng)度平均值并按四舍五入保留一位小數(shù)D6STDEV(O29:O55,S29:S55)計算圖2中強(qiáng)度數(shù)據(jù)的標(biāo)準(zhǔn)差H6MIN(O29:O55,S29:S55)選出圖2中強(qiáng)度數(shù)據(jù)的最小值C9IF(D5>4,IF(F20<20,3.5,IF(F20>40,5.5,4.5)),"---")根據(jù)試件組數(shù)確定統(tǒng)計時是否需要σ0參數(shù),并進(jìn)一步確定其數(shù)值F9IF(AND(D5>1,D5<5),IF(F20<20,3.5,IF(F20>40,5.5,4.5)),"---")根據(jù)試件組數(shù)確定統(tǒng)計時是否需要D參數(shù),并進(jìn)一步確定其數(shù)值H9IF(AND(D5>4,D5<10),0.7,IF(AND(D5>9,D5<20),0.9,IF(D5>19,1,"---")))根據(jù)試件組數(shù)確定統(tǒng)計時是否需要C參數(shù),并進(jìn)一步確定其數(shù)值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","僅有一個數(shù)值不做計算"))利用If函數(shù)根據(jù)已計算出的數(shù)據(jù)做混凝土強(qiáng)度評定并將評定過程顯示在B10單元格中，函數(shù)中F20、K20、K21、N20、N21單元格數(shù)值分別為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),"該批砼根據(jù)《水運(yùn)工程混凝土施工規(guī)范》（JTS202-2011)標(biāo)準(zhǔn)評定合格","該批砼根據(jù)《水運(yùn)工程混凝土施工規(guī)范》（JTS202-2011)標(biāo)準(zhǔn)評定不合格"),IF(AND(D5>0,D5<5),IF(AND(H5>=F20+F9,H6>=F20-0.5*F9),"該批砼根據(jù)《水運(yùn)工程混凝土施工規(guī)范》（JTS202-2011)標(biāo)準(zhǔn)評定合格","該批砼根據(jù)《水運(yùn)工程混凝土施工規(guī)范》（JTS202-2011)標(biāo)準(zhǔn)