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

1、Excel在單元分層及常規(guī)土工試驗資料整理中的應(yīng)用研究作 者：白華民 楊榮三 白紅芬（河南華興地質(zhì)工程有限公司，河南 南陽473000）摘要：運用Excel強大的制作表格、處理數(shù)據(jù)、分析數(shù)據(jù)等功能，可簡便快速輸入土工試驗數(shù)據(jù)、自動完成各單元層物理力學(xué)性質(zhì)指標統(tǒng)計工作，分層快速準確、統(tǒng)計計算結(jié)果精度高，大幅提高了勘察質(zhì)量和工作效率，縮短了勘察資料整理周期，實用性強，值得推廣應(yīng)用。關(guān)鍵詞：Excel表；取樣深度；常規(guī)土工試驗項目；單元層物理力學(xué)性質(zhì)；精度；效率中圖分類號：TV16 文獻標志碼：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ù)萬個巖（土）樣做土工試驗，以便劃分地層、統(tǒng)計計算巖（土）體的物理力學(xué)指標及強度指標。若采用傳統(tǒng)方法計算，不易剔除人工誤差等數(shù)據(jù)，計算速度慢且不直觀，既費時費力，計算精度不高。為提高工效和計算精確度，本

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

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

7、工試驗）】【查看代碼】菜單項（如圖4）。圖4 查看當前工作表代碼窗口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í)行以上操作后，即可實現(xiàn)B列取樣深度項的快速輸入。1.2 快速輸入常規(guī)土工試驗指標因孔隙比、飽和度、干重度、含水比、塑性指數(shù)、液性指數(shù)、土的定名和壓縮模量等指標均為計算項目，故根據(jù)各自的計算公式，采取在單元格中賦予相應(yīng)的函數(shù)公式，并采用為函數(shù)公式命名法；當輸入函數(shù)公式名稱時，即可以自動執(zhí)行公式，顯示計算結(jié)果。圖1中E列固定為孔隙比、F列固定為飽和度、G列固定為干重度、I列固定為含水比、L列固定為塑性指數(shù)、M列固定為液性指數(shù)、N列固定為土的定名和S列固定為壓縮模量值。以孔隙比項為例，可在單元格E7中輸入“孔隙比”，按回車鍵，即可在E

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

11、4 在E7單元格中輸入“孔隙比”，按回車鍵，即可在此單元格中顯示計算結(jié)果（如圖9）。圖9 輸入計算名稱后顯示的計算結(jié)果Fig.9 Computing Result after Entering the Calculation Name步驟5 拖動當前單元格（E7）填充柄實現(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)樣品的項目數(shù)值，再運用拖動單元格填充柄進行自動計算并填充全部樣品的項目數(shù)據(jù)。這樣就減少了因手工計算再輸入數(shù)值的重復(fù)性工作，從而也減少了出錯幾率。2 各單元層物理力學(xué)性質(zhì)統(tǒng)計表（模板）的構(gòu)建在同一工作薄下依照各單元層主要物理力學(xué)性質(zhì)統(tǒng)計表的格式創(chuàng)建表

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