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

1、邦EXCE唉L白在混凝土質(zhì)量評(píng)定壩中的應(yīng)用暗摘搬要版:佰隨著中國(guó)的快速發(fā)安展伴,耙每年都有大量的基背礎(chǔ)設(shè)施進(jìn)行投資興罷建?；A(chǔ)設(shè)施的建阿設(shè)離不開混凝土，啊尤其是大中型工程版項(xiàng)目所用混凝土數(shù)敗量大、種類多，這背也給工程項(xiàng)目混凝哀土質(zhì)量的統(tǒng)計(jì)評(píng)價(jià)白帶來(lái)了一定的困難暗。要想解決困難讓版工作變得輕松就需暗要一個(gè)好的工具。哎E癌xcel矮作為最常用的辦公背軟件之一，其功能胺是很強(qiáng)大的，特別笆是半VBA案（拜Visual B芭asic for敗 Applica版tions俺是阿Visual B胺asic的一種宏語(yǔ)言瓣）傲對(duì)其岸功能拜擴(kuò)展愛(ài)的哎支持霸，斑使翱Excel叭可以具有滿足用戶暗需求的個(gè)性化功能柏。

2、本文將結(jié)合工作芭實(shí)際，與讀者共同翱分享一下如何利用頒E阿xcel澳的內(nèi)置函數(shù)與般VBA壩對(duì)混凝土按強(qiáng)度佰的相關(guān)數(shù)據(jù)進(jìn)行統(tǒng)胺計(jì)與質(zhì)量評(píng)定分析啊。拌關(guān)鍵伴字:疤E霸xcel傲 百 背 盎自傲動(dòng)百 半 皚混凝土評(píng)艾定氨 扳 敖強(qiáng)度1、概述罷當(dāng)前在基礎(chǔ)設(shè)施建按設(shè)過(guò)程熬中啊,柏混凝土被廣泛應(yīng)搬用巴,班尤其是大型的水利胺樞紐工礙程懊,哀所用混凝土種類拔多半,霸質(zhì)量要求嚴(yán)鞍格胺,哎因此對(duì)所用混凝土襖質(zhì)量的監(jiān)控翱與評(píng)定吧就顯得尤為重要。埃在施工現(xiàn)場(chǎng)，由于哀工程質(zhì)量的需求，按必須要設(shè)立工地試半驗(yàn)室，對(duì)工程所用暗材料質(zhì)量進(jìn)行監(jiān)控矮?；炷恋馁|(zhì)量控澳制就是工地試驗(yàn)室芭日常背工作板的一項(xiàng)。隘一般頒工程所用混凝土拜有三

3、級(jí)配、二級(jí)配班、一級(jí)配稗，標(biāo)號(hào)有俺C1案5鞍、把C2阿0跋、捌C2啊5胺、邦C3爸0扳、俺C40邦等艾，同一標(biāo)號(hào)又分不擺同坍落度，因此采昂用啊E壩xce澳l啊建立混凝土臺(tái)賬，把并以臺(tái)賬作為混凝案土質(zhì)量評(píng)定的數(shù)據(jù)拌源是提高工作質(zhì)量奧與效率的有效手段跋。翱Exce敗l礙作為一款優(yōu)秀的辦擺公軟件，在日常工哎作中給人們帶來(lái)了按極大的方便。拜本文將結(jié)合我扮在施工一線的工作愛(ài)經(jīng)驗(yàn)奧,斑詳細(xì)講解一下擺Excel翱在混凝土質(zhì)量管控矮中所發(fā)揮的作用。捌本工程采用水運(yùn)工皚程系列規(guī)范、標(biāo)準(zhǔn)板指導(dǎo)施工，因此在俺以下的講解過(guò)程中艾將采用水運(yùn)疤標(biāo)準(zhǔn)中阿混凝土強(qiáng)度統(tǒng)計(jì)與頒評(píng)定佰的相關(guān)表格阿。班2吧、礙利版用艾Excel愛(ài)建

4、立混凝土取樣及版強(qiáng)度統(tǒng)計(jì)臺(tái)賬板對(duì)于規(guī)模較大的工白程，混凝土用量大藹，種類多，其質(zhì)量鞍直接關(guān)系到工程質(zhì)暗量的優(yōu)略，因此對(duì)安于混凝土壩樣品熬試驗(yàn)數(shù)據(jù)的統(tǒng)計(jì)評(píng)頒價(jià)扮就顯得尤為重要。瓣為方便數(shù)據(jù)的管理拔，項(xiàng)目昂試驗(yàn)室采用扮Excel爸辦公軟件，建立混柏凝土臺(tái)賬對(duì)百其敗進(jìn)行管理。臺(tái)賬具拜體格式隘及布局板見(jiàn)藹圖挨1阿（之后的強(qiáng)度評(píng)定矮將以此為基礎(chǔ)數(shù)據(jù)氨）壩。哀混凝土電子臺(tái)賬不懊僅可以方便試樣的瓣管理，而且可以將埃其作為數(shù)據(jù)源建立挨混凝土樣品的查找傲與強(qiáng)度評(píng)定的自動(dòng)柏化表格。襖圖挨1 礙 按混凝土取樣臺(tái)賬3巴、把在半Exce擺l頒中建立混凝土質(zhì)量俺評(píng)定表皚有了混凝土臺(tái)賬，把下面霸要建立混凝土質(zhì)量吧評(píng)定的胺相

5、關(guān)斑表格艾。俺為方便制作，此處半將混凝土臺(tái)賬和混昂凝土質(zhì)量評(píng)定版的半表頒格罷放在一個(gè)工作簿中阿（其板中搬sheet絆1拔、百sheet疤2半、啊sheet3擺工作表絆作為混凝土臺(tái)賬表辦格，頒將混凝土強(qiáng)度評(píng)定捌表和混凝土強(qiáng)度統(tǒng)敖計(jì)表均放百在阿sheet4把工作表暗中敖）。拌本工程為水運(yùn)工程辦，適用水運(yùn)的相關(guān)絆規(guī)范。此處將結(jié)合奧水運(yùn)工程質(zhì)量檢測(cè)澳標(biāo)準(zhǔn)中混凝土強(qiáng)度唉評(píng)定所用表格來(lái)講哀解礙Exce藹l頒在混凝土強(qiáng)度評(píng)定熬中的應(yīng)用。下面瓣來(lái)認(rèn)識(shí)一下水運(yùn)工頒程質(zhì)量檢測(cè)標(biāo)準(zhǔn)中捌混凝土強(qiáng)度評(píng)定所愛(ài)用的兩個(gè)表格傲如圖傲2白、搬圖矮3盎。笆此外要想使表格具安有自動(dòng)根據(jù)條件篩巴選和強(qiáng)熬度評(píng)定的功能，還半要在表格中設(shè)

6、定好半篩選條件，使表格絆能根據(jù)篩選條件芭篩選出符合要求的疤試樣的相關(guān)數(shù)據(jù)，捌并將相關(guān)信息自動(dòng)頒選填入白圖疤2拌所示混凝土強(qiáng)度統(tǒng)斑計(jì)表胺。本表格所用篩選稗條件為混凝土標(biāo)號(hào)耙（拜sheet4捌工作表安中邦的絆D埃4盎單元格）、試驗(yàn)日搬期范圍（癌sheet4案工作表翱中般的拔C2般8襖、唉C2澳9爸兩個(gè)單元格唉，盎C2藹8稗為起點(diǎn)日期百，佰C2昂9吧為終點(diǎn)日期按）。瓣其次癌還把要在叭混凝土強(qiáng)度評(píng)定表叭的相翱關(guān)耙單元格中預(yù)隘填頒相關(guān)函數(shù)，使其具罷有根據(jù)邦混凝土強(qiáng)度統(tǒng)計(jì)表拌中耙已柏篩選出的數(shù)據(jù)進(jìn)行挨自動(dòng)計(jì)算的功能。百各單元格所用函數(shù)罷見(jiàn)鞍表版1背。盎在各函數(shù)版中鞍I暗f辦函數(shù)出現(xiàn)頻率較高熬?，F(xiàn)對(duì)其作一簡(jiǎn)

7、要敗說(shuō)明哎，其他函數(shù)及用法背可參考相關(guān)數(shù)據(jù)盎。稗I搬f懊函數(shù)的基本結(jié)構(gòu)為瓣：百=If辦（判斷條件，表達(dá)鞍式伴1壩，表達(dá)皚式按2襖）。它是根據(jù)判斷跋條件結(jié)果的真假，愛(ài)來(lái)選擇所需結(jié)果是俺表達(dá)跋式傲1阿還是表達(dá)霸式澳2佰。如果判斷條件結(jié)扒果為真，則函數(shù)取絆表達(dá)版式愛(ài)1凹的結(jié)果，否則取表瓣達(dá)胺式癌2背的結(jié)果。其中表達(dá)百式笆1疤和表達(dá)拌式斑2巴還可以叭是阿I按f笆函數(shù)結(jié)果，這就形敖成了函數(shù)的嵌套，巴進(jìn)而可以進(jìn)行多重安判斷（如混凝土強(qiáng)靶度評(píng)定表中案的吧B1氨0藹單元格所用的嵌套疤結(jié)構(gòu)挨的敖I芭f跋函數(shù)）。4、編寫宏命令擺 背在完成以上工作后邦，還有最關(guān)鍵的一壩步，就是要編寫一埃個(gè)宏命令（胺可以理解為跋用捌

8、VB襖A百寫的一段程序礙，懊VB暗A(chǔ)壩是背VB皚編程語(yǔ)言鞍在凹o(jì)ffic耙e胺辦公軟件中的應(yīng)用礙，其語(yǔ)法骯與把V盎B瓣相同）來(lái)完成根據(jù)耙條件搜索數(shù)據(jù)的任安務(wù)版。編寫完宏之后，伴要將宏與控件（命般令按鈕）進(jìn)行關(guān)聯(lián)佰，使單擊控件壩可以完成搜索功能懊。伴圖芭2 扳 哎混凝土強(qiáng)度統(tǒng)計(jì)表叭圖唉3 胺 哀混凝土強(qiáng)度評(píng)定表對(duì)于控件靶的柏建立本文主要針對(duì)暗office靶201矮0絆版本進(jìn)行講解，其捌他版本過(guò)程相似。拔打開隘E壩xce癌l藹后，板在巴“襖開發(fā)工跋具班”叭選項(xiàng)卡中單班擊哎“叭控件斑”唉組中癌的皚“案插敖入壩”跋按鈕，選絆擇盎“佰表單控奧件疤”癌中俺的百“疤控斑件頒”霸選項(xiàng)，這時(shí)鼠標(biāo)變版成十字形狀，

9、按住背鼠標(biāo)左鍵在般E背xcel扒當(dāng)前工作表稗窗口拖拽即可，在搬之后彈出的窗口中扮把啊“礙宏班名霸”翱（即之后所要編寫疤宏的名稱）柏改成自己想要的名瓣字（本處改為絆“艾強(qiáng)度統(tǒng)瓣計(jì)搬”藹）澳，在生成的控件按愛(ài)鈕上單擊鼠標(biāo)右鍵芭選皚擇靶“壩編輯文熬字胺”跋對(duì)控件進(jìn)行命名，辦至此控件已經(jīng)做好案了?？丶龊煤?，澳要為控件寫一段程懊序使其具有功能。埃在控件上右鍵選扒擇“唉指定俺宏氨”礙，在彈出的窗口中敗單阿擊矮“斑新扳建阿”愛(ài)進(jìn)入程序編輯界面捌，在右側(cè)宏編輯窗笆口案的拜中版寫入相應(yīng)代碼即可翱。本強(qiáng)度統(tǒng)計(jì)所用扒宏芭代碼暗如下懊（其中漢字鞍只作為解釋捌，不作為程序的一瓣部分）絆：拜Sub案 哎強(qiáng)度統(tǒng)跋計(jì)翱(鞍

10、)骯Dim h As白 Date, j疤 As Date般, k As D矮ate板Dim d As叭 Integer礙, f As I襖nteger, 礙g As Int啊eger, p 斑As Integ柏er, c As耙 Integer把Dim s A阿s String版, y As S癌tring, z叭 As Stri鞍ng, x As熬 String頒j = Acti頒veWorkbo拌ok.Works扮heets(4)鞍.Range(c28).Va版lue俺 佰 翱 癌艾將日期范圍端值賦艾給變量班k = Acti般veWorkbo翱ok.Works跋heets(4)骯.Rang

11、e(澳c29).Va白lue 背 艾 岸 隘 扒 拌 啊 翱f = 28 阿 拌 昂 哎 皚 懊 傲 稗骯數(shù)據(jù)統(tǒng)計(jì)表霸表骯2挨中第一統(tǒng)計(jì)行行號(hào)版為藹29哎g = 15 擺 鞍 按 拔 芭 隘 艾吧數(shù)據(jù)統(tǒng)計(jì)表佰表罷2昂中第一列（強(qiáng)度列叭）序號(hào)胺為扳15哎For c = 挨1 To 3把 d = 2隘 矮 柏 拔 擺 傲 案 背 扒安混凝土臺(tái)賬中表頭頒行行號(hào) Do唉 d = d啊 + 1 s = A巴ctiveWor扳kbook.Wo耙rksheets耙(c).Cell辦s(d, 4).瓣Value埃 耙 y = Act阿iveWorkb百ook.Work版sheets(4扮).Range(胺b4

12、).Va俺lue斑 z = M版id(s, 1,笆 1) 搬 凹 礙 佰 暗 襖 壩岸在混凝土標(biāo)號(hào)中截絆取強(qiáng)度值把 I絆f z = C敗 Then隘 z疤 = Mid(s昂, 2, 2)拔 E案lse: z =霸 Mid(s, 襖1, 2)俺 E癌nd If把 x = M哎id(y, 2,叭 2)氨 I巴f z = x 版Then 敗 疤 皚 翱 靶 藹把判斷所選標(biāo)號(hào)是否辦符合篩選條件稗 h辦 = Activ皚eWorkboo扳k.Worksh把eets(c).稗Cells(d,盎 6).Valu拜e 巴 白胺獲取符合要求標(biāo)號(hào)暗混凝土樣試驗(yàn)日期矮 鞍 If h 伴 j And 襖h 4,IF(

13、F2040,5.5,4.5),-)根據(jù)試件組數(shù)確定統(tǒng)計(jì)時(shí)是否需要0參數(shù),并進(jìn)一步確定其數(shù)值F9IF(AND(D51,D55),IF(F2040,5.5,4.5),-)根據(jù)試件組數(shù)確定統(tǒng)計(jì)時(shí)是否需要D參數(shù),并進(jìn)一步確定其數(shù)值H9IF(AND(D54,D59,D519,1,-)根據(jù)試件組數(shù)確定統(tǒng)計(jì)時(shí)是否需要C參數(shù),并進(jìn)一步確定其數(shù)值B10IF(D54,mfcu-Sfcu=&K20&fcu,k=&F20&滿足mfcu-Sfcufcu,k fcu,min=&H6&fcu,k-C0=&K21&滿足fcu,minfcu,k-C0,IF(D51,fcu,k+D=&N20&mfcu=&H5&滿足mfcufcu

14、,k+D& fcu,k-0.5D=&N21&fcu,min=&H6&滿足fcu,minfcu,k-0.5D,僅有一個(gè)數(shù)值不做計(jì)算)利用If函數(shù)根據(jù)已計(jì)算出的數(shù)據(jù)做混凝土強(qiáng)度評(píng)定并將評(píng)定過(guò)程顯示在B10單元格中，函數(shù)中F20、K20、K21、N20、N21單元格數(shù)值分別為fcu,k、mfcu-Sfcu、fcu,k-C0、fcu,k+D、fcu,k-0.5DB11IF(D54,IF(AND(H5-D6=F20,H6=F20-H9*C9),該批砼根據(jù)水運(yùn)工程混凝土施工規(guī)范（JTS202-2011)標(biāo)準(zhǔn)評(píng)定合格,該批砼根據(jù)水運(yùn)工程混凝土施工規(guī)范（JTS202-2011)標(biāo)準(zhǔn)評(píng)定不合格),IF(AND(D50,D5=F20+F9,H6=F20-0.5*F9),該批砼根據(jù)水運(yùn)工程混凝土施工規(guī)范（JTS202-2011)標(biāo)準(zhǔn)評(píng)定合格,該批砼根據(jù)水運(yùn)工程混凝土施工規(guī)范（JTS202-2011)標(biāo)準(zhǔn)評(píng)定不合格)利用If函數(shù)根據(jù)計(jì)算結(jié)果做出評(píng)定,并將結(jié)論顯示在單元格B11中注：此表已將函數(shù)前的等號(hào)省略，圖2表格中相關(guān)統(tǒng)計(jì)指標(biāo)計(jì)算與表