Excel在單元分層及常規(guī)土工試驗(yàn)資料整理中的應(yīng)用研究

1、Excel在單元分層及常規(guī)土工試驗(yàn)資料整理中的應(yīng)用研究作 者：白華民 楊榮三 白紅芬（河南華興地質(zhì)工程有限公司，河南 南陽473000）摘要：運(yùn)用Excel強(qiáng)大的制作表格、處理數(shù)據(jù)、分析數(shù)據(jù)等功能，可簡便快速輸入土工試驗(yàn)數(shù)據(jù)、自動完成各單元層物理力學(xué)性質(zhì)指標(biāo)統(tǒng)計(jì)工作，分層快速準(zhǔn)確、統(tǒng)計(jì)計(jì)算結(jié)果精度高，大幅提高了勘察質(zhì)量和工作效率，縮短了勘察資料整理周期，實(shí)用性強(qiáng)，值得推廣應(yīng)用。關(guān)鍵詞：Excel表；取樣深度；常規(guī)土工試驗(yàn)項(xiàng)目；單元層物理力學(xué)性質(zhì)；精度；效率中圖分類號：TV16 文獻(xiàn)標(biāo)志碼：AApplied Research of Excel in Unit Hierarchy and Rout

2、ine Soil Test DocumentationBai Huamin(HeNan HuaXing Geological Engineering Co., Ltd., He Nan, Nan Yang, Postcode 473000)Summary: By using of Excel to make table descriptions, data processing and analysis, the index of statistics can be completed automatically for each unit hierarchys physical and me

3、chanical properties by simply entering the soil test data. The hierarchy can be done quickly and accurately, with accurate statistical calculation results, which is largely improving the quality and the efficiency of the survey, as well as reducing the time for survey data sorting. It is practical a

4、nd worthy of promotion.Keyword: Excel; Sampling depth; Routine soil test project; Unit hierarchys physical and mechanical properties; Accuracy; Efficiency大型調(diào)水工程、病險水庫以及工業(yè)與民用建筑群等巖土工程勘察中，需取數(shù)十個、數(shù)百個、數(shù)千個甚至數(shù)萬個巖（土）樣做土工試驗(yàn)，以便劃分地層、統(tǒng)計(jì)計(jì)算巖（土）體的物理力學(xué)指標(biāo)及強(qiáng)度指標(biāo)。若采用傳統(tǒng)方法計(jì)算，不易剔除人工誤差等數(shù)據(jù)，計(jì)算速度慢且不直觀，既費(fèi)時費(fèi)力，計(jì)算精度不高。為提高工效和計(jì)算精確度，本

5、文利用Excel中功能強(qiáng)大的數(shù)據(jù)統(tǒng)計(jì)和表格制作軟件創(chuàng)建土工試驗(yàn)成果表及各單元層主要物理力學(xué)性質(zhì)統(tǒng)計(jì)表，結(jié)果表明劃分地層簡便、統(tǒng)計(jì)計(jì)算簡單、計(jì)算過程直觀、計(jì)算精確得到大幅提高，節(jié)約了大量計(jì)算時間。1 土工試驗(yàn)成果表（模板）的構(gòu)建啟動Excel 2003應(yīng)用程序，按照土工試驗(yàn)成果表的格式創(chuàng)建表格如圖1所示。圖1中灰色單元格所示為可實(shí)現(xiàn)簡便快速輸入大量土工試驗(yàn)基本數(shù)據(jù)項(xiàng)。圖1 Excel 2003應(yīng)用程序構(gòu)建的土工試驗(yàn)成果表Fig.1 Soil Test Result by Excel 20031.1 簡便快速輸入取樣深度如圖1所示，表中B列為取樣深度，樣品長度為0.2 m，在B7單元格中輸入取樣頂

6、深1.0 m按Enter即回車鍵即可實(shí)現(xiàn)1.01.2 m的輸入。這個功能是由Excel嵌入語言VBA編制的可執(zhí)行代碼實(shí)現(xiàn)的。其代碼的編譯步驟如下。步驟1 選擇【工具】【宏】【Visual Basic編輯器】菜單項(xiàng)（如圖2）。圖2 Visual Basic編輯器菜單Fig.2 Visual Basic Editor Menu步驟2 隨即會彈出【Microsoft Visual Basic土工試驗(yàn)及力學(xué)性質(zhì)統(tǒng)計(jì)表.xls】對話框（如圖3）。圖3 Visual Basic編輯器窗口Fig.3 Visual Basic Editor Window步驟3 選擇對話框中【工程資源管理器】【sheet1（土

7、工試驗(yàn)）】【查看代碼】菜單項(xiàng)（如圖4）。圖4 查看當(dāng)前工作表代碼窗口Fig.4 View the Current Worksheet Code Window步驟4 隨即會彈出一空白代碼窗口（如圖5）。圖5 空白工作表代碼窗口Fig.5 Blank Worksheet Code Window步驟5 在空白代碼空口添加以下代碼（如圖6）：Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range On Error GoTo myError Application.EnableEvents = False For

8、Each myRange In Target If myRange.Column = 2 And myRange.Text <> "" Then myRange.Value = Format(myRange.Value, "0.0 - ") & Format(myRange.Value + 0.2, "0.0") End If Next myRangemyError: Application.EnableEvents = TrueEnd Sub圖6 添加代碼后的窗口Fig.6 Window after Enteri

9、ng Code步驟6 單擊按鈕將輸入的代碼保存，然后關(guān)閉該程序。執(zhí)行以上操作后，即可實(shí)現(xiàn)B列取樣深度項(xiàng)的快速輸入。1.2 快速輸入常規(guī)土工試驗(yàn)指標(biāo)因孔隙比、飽和度、干重度、含水比、塑性指數(shù)、液性指數(shù)、土的定名和壓縮模量等指標(biāo)均為計(jì)算項(xiàng)目，故根據(jù)各自的計(jì)算公式，采取在單元格中賦予相應(yīng)的函數(shù)公式，并采用為函數(shù)公式命名法；當(dāng)輸入函數(shù)公式名稱時，即可以自動執(zhí)行公式，顯示計(jì)算結(jié)果。圖1中E列固定為孔隙比、F列固定為飽和度、G列固定為干重度、I列固定為含水比、L列固定為塑性指數(shù)、M列固定為液性指數(shù)、N列固定為土的定名和S列固定為壓縮模量值。以孔隙比項(xiàng)為例，可在單元格E7中輸入“孔隙比”，按回車鍵，即可在E

10、7單元格中得到一個數(shù)值，此數(shù)值即為此樣品的孔隙比值；然后運(yùn)用拖動當(dāng)前單元格填充柄來實(shí)現(xiàn)自動計(jì)算并填充整列的孔隙比項(xiàng)數(shù)值。具體步驟如下。步驟1 選中土工試驗(yàn)成果表中E7單元格。步驟2 選擇【插入】【名稱】【定義】菜單項(xiàng)（如圖7）。圖7 定義菜單窗口Fig.7 Defined Menu Window步驟3 隨即會彈出【定義名稱】對話框，在對話框中的“在當(dāng)前工作簿中的名稱（w）：”文本框中輸入公式名稱“孔隙比”，在“引用位置（R）：”文本框中輸入函數(shù)公式“=ROUND(H7/(G7*0.1)-1,3)”，然后點(diǎn)擊按鈕（如圖8）。圖8 定義名稱窗口Fig.8 Defined Name Window步驟

11、4 在E7單元格中輸入“孔隙比”，按回車鍵，即可在此單元格中顯示計(jì)算結(jié)果（如圖9）。圖9 輸入計(jì)算名稱后顯示的計(jì)算結(jié)果Fig.9 Computing Result after Entering the Calculation Name步驟5 拖動當(dāng)前單元格（E7）填充柄實(shí)現(xiàn)自動填充全部樣品的孔隙比數(shù)據(jù)。飽和度、干重度、含水比、塑指、液指、土的定名、壓縮模量的公式（函數(shù)）分別為：ROUND(C7*H7/E7,0)、ROUND(D7/(1+C7*0.01),1)、=ROUND(C7/J7,3)，ROUND(J7-K7,1)、ROUND(C7-K7)/L7,2)、IF(L7>17,"

12、粘土",IF(L7>10,"粉質(zhì)粘土",IF(L7< =10,"粉土")、ROUND( (1+E7)/Q7,2)。同理，可分別在F7、G7、I7、L7、M7、N7、S7單元格中輸入“=飽和度”、“=干容重”、“=含水比”、“=塑指”、“=液指”、“土的定名”、 “壓縮模量”，即可得到相對應(yīng)樣品的項(xiàng)目數(shù)值，再運(yùn)用拖動單元格填充柄進(jìn)行自動計(jì)算并填充全部樣品的項(xiàng)目數(shù)據(jù)。這樣就減少了因手工計(jì)算再輸入數(shù)值的重復(fù)性工作，從而也減少了出錯幾率。2 各單元層物理力學(xué)性質(zhì)統(tǒng)計(jì)表（模板）的構(gòu)建在同一工作薄下依照各單元層主要物理力學(xué)性質(zhì)統(tǒng)計(jì)表的格式創(chuàng)建表

13、格如圖10所示。圖10 Excel 2003應(yīng)用程序構(gòu)建的物理力學(xué)性質(zhì)統(tǒng)計(jì)表Fig.10 Physical and Mechanical Properties Statistics by Excel 2003采取為每個所需統(tǒng)計(jì)數(shù)值的單元格定制相對應(yīng)的函數(shù)公式的方法，以實(shí)現(xiàn)自動統(tǒng)計(jì)各單元層物理力學(xué)性質(zhì)指標(biāo)。如圖9，將A7、B7單元格作為始終引用單元格，即在其單元格中指定所需統(tǒng)計(jì)樣品在土工試驗(yàn)表中的位置，即行號。如若需統(tǒng)計(jì)土工試驗(yàn)表中第7行到第13行樣品的數(shù)值，只需在圖9中的A15單元格輸入數(shù)字“7”，在B15單元格中輸入數(shù)字“13”，即可立即得到物理力學(xué)性質(zhì)統(tǒng)計(jì)表中的全部數(shù)值。3 結(jié)語excel是大家非常熟悉的應(yīng)用軟件，具有強(qiáng)大的制作表格、處理數(shù)據(jù)、分析數(shù)據(jù)、創(chuàng)建圖表等功能，其使用非常方便?；诖藰?gòu)建的土工試驗(yàn)成果表（模板）和物理力學(xué)性質(zhì)統(tǒng)計(jì)表（模板），可直接輸出用于成果報告，大幅度降低了人員勞動強(qiáng)度，且分層統(tǒng)計(jì)計(jì)算簡單、計(jì)算過程直觀、計(jì)算數(shù)據(jù)精確，節(jié)約了大量計(jì)算時間，在很大程度上提高了工作效率，也在一定意義上節(jié)省了工程成本，提高了經(jīng)濟(jì)效益。參