董振忠

摘 要：該文主要介紹了使用EXCEL VBA編寫回彈法數(shù)據(jù)處理程序的計(jì)算流程、編寫思路，以及程序在快速編寫檢測(cè)報(bào)告中的作用。重點(diǎn)介紹了程序所采用的自定義函數(shù)，主要包括平均回彈值函數(shù)、檢測(cè)角度修正函數(shù)、檢測(cè)面修正函數(shù)、非泵送混凝土換算值函數(shù)、泵送混凝土換算值函數(shù)、插值函數(shù)等自定義函數(shù)和工作表函數(shù)。簡(jiǎn)要介紹了與手算結(jié)果和其他回彈儀自帶軟件計(jì)算結(jié)果的對(duì)比，結(jié)果完全一致。程序降低了回彈法數(shù)據(jù)處理難度，給編寫報(bào)告帶來(lái)了極大的便利。

關(guān)鍵詞：回彈法 EXCEL VBA 測(cè)面修正 測(cè)角修正 強(qiáng)度換算 強(qiáng)度推定

中圖分類號(hào)：TV331 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1674-098X（2015）01（a）-0069-01

公路和城市橋梁都需按照規(guī)范要求進(jìn)行常規(guī)檢測(cè)和結(jié)構(gòu)檢測(cè)，而在檢測(cè)中通常要對(duì)構(gòu)件的材質(zhì)劣化程度作出評(píng)定，分析對(duì)結(jié)構(gòu)安全和耐久性的影響，為后續(xù)維護(hù)和加固提供依據(jù)。由于混凝土強(qiáng)度是體現(xiàn)混凝土力學(xué)性能的重要指標(biāo)，而回彈法是無(wú)損檢測(cè)中測(cè)定混凝土抗壓強(qiáng)度最廣泛采用的方法，所以經(jīng)常要對(duì)回彈法數(shù)據(jù)進(jìn)行分析計(jì)算評(píng)定?；貜梼x自帶軟件可以進(jìn)行基本的計(jì)算，并將數(shù)據(jù)輸出到EXCEL，但與編寫檢測(cè)報(bào)告所需要的格式和內(nèi)容有差異，所以，利用EXCEL VBA對(duì)會(huì)回彈法數(shù)據(jù)進(jìn)行計(jì)算、分析、評(píng)定形成編寫報(bào)告所需表格，然后將表格復(fù)制到WORD中，這樣就極大地方便了報(bào)告的編寫。

1 計(jì)算流程

程序依據(jù)的規(guī)范分別為《回彈法檢測(cè)混凝土抗壓強(qiáng)度技術(shù)規(guī)程》JGJ/T 23-2011和《公路橋梁承載能力檢測(cè)評(píng)定規(guī)程》JTG/T J21-2011。程序?qū)?shù)據(jù)進(jìn)行計(jì)算、分析、判定，與手算過程完全相同，計(jì)算分析的基本流程為：測(cè)區(qū)范圍識(shí)別→計(jì)算平均回彈值→進(jìn)行角度修正→進(jìn)行澆筑面修正→計(jì)算混凝土強(qiáng)度換算值→計(jì)算混凝土強(qiáng)度推定值→計(jì)算平均強(qiáng)度勻質(zhì)系數(shù)→計(jì)算推定強(qiáng)度勻質(zhì)系數(shù)→判定標(biāo)度→耐久性評(píng)價(jià)。

程序主要定義了平均回彈值函數(shù)、測(cè)角修正函數(shù)、測(cè)面修正函數(shù)、非泵送混凝土換算值函數(shù)、泵送混凝土換算值函數(shù)、插值函數(shù)，最終對(duì)表格進(jìn)行數(shù)據(jù)計(jì)算并填寫子程序。對(duì)于程序中需要的EXCEL中包含的函數(shù)，都采用工作表函數(shù)（WorksheetFunction.函數(shù)）的方式引用。

程序首先根據(jù)用戶在數(shù)據(jù)區(qū)選擇的數(shù)據(jù)范圍來(lái)獲得測(cè)區(qū)數(shù)、各測(cè)區(qū)碳化深度、澆筑面、檢測(cè)角度和設(shè)計(jì)強(qiáng)度信息，然后主要是運(yùn)用定義好的函數(shù)進(jìn)行計(jì)算。如果測(cè)區(qū)數(shù)小于10個(gè)，那么最后的推定值就會(huì)取最小值，如果測(cè)區(qū)數(shù)大于等于10個(gè)，那么最后的推定值就會(huì)按照統(tǒng)計(jì)的方法計(jì)算。同時(shí)填寫標(biāo)準(zhǔn)差、推定強(qiáng)度勻質(zhì)系數(shù)和平均強(qiáng)度勻質(zhì)系數(shù)，判斷其標(biāo)度，并對(duì)混凝土強(qiáng)度狀況作出評(píng)價(jià)。

2 主要函數(shù)

2.1 插值函數(shù)CZ（ByVal X1，Y1，X2，Y2，x）

規(guī)范中所有能夠查表的，程序全部采用了查表法確定相應(yīng)數(shù)值，根據(jù)傳遞的變量X1，Y1，X2，Y2，x值采用線性內(nèi)插法計(jì)算出CZ值，即x對(duì)應(yīng)的y值。

'插值計(jì)算

Public Function CZ（ByVal X1，Y1，X2，Y2，x）

CZ=（Y2-Y1）*x/（X2-X1）+Y2-（Y2 -Y1）*X2/（X2-X1）

End Function

2.2 平均回彈值函數(shù)PJHTZ（ByVal Areas As Range）

程序根據(jù)選擇區(qū)域分別處理區(qū)域內(nèi)每一列的數(shù)據(jù)，主要是應(yīng)用了選擇區(qū)域的列屬性、WorksheetFunction.Large、WorksheetFunction.Small函數(shù)來(lái)去除三個(gè)最大值和三個(gè)最小值，然后求出平均值。關(guān)鍵性的語(yǔ)句如下：

Cells（ROWN+ROWC+ 3， COLN +i-1）=PJHTZ（Selection.Areas（1）.Columns（i））

larg1=WorksheetFunction.Large（Areas，1）

上面的語(yǔ)句是為了獲得選擇區(qū)域某一列的數(shù)據(jù)，可作為一個(gè)區(qū)域進(jìn)行數(shù)據(jù)的傳遞。

2.3 測(cè)角修正函數(shù)CJXZ（ByVal x，JD）

測(cè)面修正函數(shù)包含兩個(gè)參數(shù)，x為平均回彈值，JD為檢測(cè)角度，把非水平方向檢測(cè)時(shí)的修正值定義為數(shù)組，確定x所在的相鄰的整數(shù)回彈值區(qū)間，對(duì)強(qiáng)度進(jìn)行第一次線性內(nèi)插計(jì)算，然后依據(jù)角度進(jìn)行第二次線性內(nèi)插，也就是計(jì)算任意強(qiáng)度任意角度時(shí)的修正值。查詢數(shù)據(jù)主要使用了WorksheetFunction.Lookup方法。

2.4 測(cè)面修正函數(shù)CMXZ（ByVal QD，JZM）

測(cè)面修正函數(shù)包含兩個(gè)參數(shù)，QD是進(jìn)行了角度修正后的回彈值，JZM是澆筑面參數(shù)，分別用BM代表表面，DM代表底面，CM代表側(cè)面。程序?qū)⒉煌瑵仓娴幕貜椫敌拚当碇袛?shù)據(jù)定義成三個(gè)數(shù)組，分別為Rm對(duì)應(yīng)的ArrQD數(shù)組，表面修正值對(duì)應(yīng)的ArrCMB數(shù)組和底面修正值對(duì)應(yīng)的ArrCMD數(shù)組，這樣便可以使用WorksheetFunction.Lookup方法任意來(lái)查找所需數(shù)據(jù)。對(duì)于判斷是表面、底面還是側(cè)面，是在啟動(dòng)對(duì)話框按下確定按鈕時(shí)，程序查找每一列的澆筑面信息，然后將變量再傳遞到側(cè)面修正函數(shù)中，通過傳遞的參數(shù)判斷澆筑面屬性。

2.5 混凝土強(qiáng)度換算函數(shù)

程序定義了非泵送混凝土強(qiáng)度換算函數(shù)THXZFBS（ByVal QD，THZ）和泵送混凝土強(qiáng)度換算函數(shù)THXZBS（ByVal QD，THZ），兩個(gè)函數(shù)采用相同的算法，都包含兩個(gè)參數(shù)，一個(gè)是修正后的回彈值QD，另一個(gè)是碳化深度值THZ。程序采用動(dòng)態(tài)數(shù)組儲(chǔ)存測(cè)區(qū)混凝土強(qiáng)度換算表中的數(shù)據(jù)，每一個(gè)數(shù)組存儲(chǔ)一行數(shù)據(jù)，當(dāng)需要某個(gè)數(shù)值時(shí)，采用指定數(shù)組行號(hào)和列號(hào)的方法取用數(shù)據(jù)，即采用y=arr（行號(hào)）（列號(hào)）的形式。程序根據(jù)碳化值查到此碳化值在測(cè)區(qū)混凝土強(qiáng)度換算表中的列號(hào)，然后程序再計(jì)算出與平均回彈值上下相鄰的Rm值所在的行號(hào)，最后程序在數(shù)組中取出數(shù)據(jù)，進(jìn)行線性內(nèi)插后得到最后的強(qiáng)度換算值。

3 結(jié)語(yǔ)

把使用EXCEL VBA編寫的回彈法混凝土強(qiáng)度計(jì)算程序與多家數(shù)顯回彈儀所帶軟件的計(jì)算結(jié)果進(jìn)行了比較，結(jié)果完全吻合。在對(duì)多人回彈法手算測(cè)試中，對(duì)手算結(jié)果進(jìn)行了驗(yàn)證，結(jié)果與手算法完全一致。回彈法混凝土強(qiáng)度計(jì)算程序已在檢測(cè)工作中使用了兩年，在相關(guān)檢測(cè)報(bào)告中得到了大量使用，給回彈數(shù)據(jù)處理帶來(lái)了很大的方便。由于程序完成了全部需要計(jì)算的過程，剩下的只是數(shù)據(jù)輸入，這大大降低了數(shù)據(jù)處理的難度，使編寫回彈法檢測(cè)混凝土強(qiáng)度報(bào)告變得特別簡(jiǎn)單。

參考文獻(xiàn)

[1] 中華人民共和國(guó)建設(shè)部.養(yǎng)護(hù)技術(shù)規(guī)范（CJJ99-2003）[S].中國(guó)建筑工業(yè)出版社，2003.

[2] 中華人民共和國(guó)住房和城鄉(xiāng)建設(shè)部.回彈法檢測(cè)混凝土抗壓強(qiáng)度技術(shù)規(guī)程（JGJ/T 23-2011）[S].中國(guó)建筑工業(yè)出版社，2011.

[3] 中華人民共和國(guó)交通運(yùn)輸部.公路橋梁承載能力檢測(cè)評(píng)定規(guī)程（JTG/T J21-2011）[S].人民交通出版社，2011.