變形監(jiān)測趨勢線生成畢業(yè)論文

1、. . . . 畢 業(yè) 設(shè) 計(jì) (論 文) 目 錄摘要本文主要介紹變形監(jiān)測數(shù)據(jù)的自動化處理，通常測繪人員處理測量數(shù)據(jù)都是手動處理或者運(yùn)用專業(yè)軟件處理，但是變形監(jiān)測數(shù)據(jù)量比較大，而且繁雜，手動處理比較費(fèi)事且容易出錯(cuò)，為此測繪人員通過不斷嘗試后，開始用Excel的VBA二次開發(fā)來處理變形監(jiān)測數(shù)據(jù)。Excel的VBA二次開發(fā)是基于數(shù)據(jù)手動處理的基礎(chǔ)上，結(jié)合變形監(jiān)測數(shù)據(jù)處理重復(fù)的特點(diǎn)，通過程序軟件Visual Basic對Excel的開發(fā)，實(shí)現(xiàn)原始觀測數(shù)據(jù)輸入原始表格后，運(yùn)行編寫程序即可得到變形監(jiān)測需要的累計(jì)沉降量、隔日沉降量、沉降速度等數(shù)據(jù)，實(shí)現(xiàn)變形監(jiān)測數(shù)據(jù)的自動化處理。最后運(yùn)用AutoCAD生成趨

2、勢線，對渡江紀(jì)念館建成后沉降進(jìn)行預(yù)測。關(guān)鍵字; 變形監(jiān)測 自動化處理 Excel VBA二次開發(fā) 趨成線AbstractIn this paper, the automated processing of deformation monitoring data, usually surveying and mapping personnel to deal with the measurement data are manually processing or use of specialized software processing, but the deformation monitor

3、ing data larger than, and complicated, manual handling more cumbersome and error-prone, for surveying and mapping through constantly trying to start Excel VBA in secondary development to deal with the deformation monitoring data. Excel VBA in secondary development is based on the manual processing o

4、f the data, the combination of deformation monitoring data processing duplicate the characteristics of the software Visual Basic Excel development, the original form of the original observation data input, run the programming can be obtained by deformation total settlement amount, the next day settl

5、ement, sedimentation data, the need for monitoring the deformation of the automated processing of monitoring data. Finally, AutoCAD generate chemotactic into line, to predict the settlement after the completion of crossing the river Memorial.Keywords;：Deformation MonitoringAutomated processingExcelV

6、BA Secondary developmentIncreasingly into line 窗體頂端窗體底端第一章 工程背景1.1工程概況渡江戰(zhàn)役紀(jì)念館主體工程是渡江戰(zhàn)役紀(jì)念館建設(shè)區(qū)內(nèi)的主體建筑，紀(jì)念館主體建筑面積約17000平米，高度近40米，由4榀型鋼混凝土桁架懸挑梁組成，最大懸挑長度為35m。該工程高大空曠，懸挑跨度大，結(jié)構(gòu)復(fù)雜，設(shè)計(jì)要求高，施工難度大，模板支護(hù)約40米高，工程工期緊。為保證項(xiàng)目施工質(zhì)量和安全，保證結(jié)構(gòu)最終完成時(shí)的形狀和受力狀態(tài)達(dá)到建筑和結(jié)構(gòu)設(shè)計(jì)的預(yù)期目的，必須與時(shí)掌握結(jié)構(gòu)關(guān)鍵部位在施工過程中的應(yīng)力應(yīng)變變化，建立嚴(yán)格的監(jiān)控量測制度和有效、暢通的信息反饋、搶險(xiǎn)應(yīng)急機(jī)制，將

7、監(jiān)測數(shù)據(jù)真實(shí)、與時(shí)的發(fā)送至相關(guān)各方，使施工進(jìn)入動態(tài)化管理，并進(jìn)行施工決策。根據(jù)合肥渡江戰(zhàn)役紀(jì)念館施工監(jiān)測方案，在合肥渡江戰(zhàn)役紀(jì)念館主體建筑施工期間，需要對建筑物實(shí)施如下變形監(jiān)測項(xiàng)目：1.建筑物整體沉降監(jiān)測；2.高支撐架體位移監(jiān)測；3. 高支撐架體下端基礎(chǔ)沉降監(jiān)測；4. 高支撐架體下端擋土墻水平位移監(jiān)測；5. 高支撐架體拆除過程中船頭部分的沉降監(jiān)測。我校項(xiàng)目組于2009年11月下旬對建筑物開始變形監(jiān)測，各監(jiān)測項(xiàng)目的監(jiān)測情況總結(jié)如下。1.2、建筑物整體沉降監(jiān)測1.2.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)建筑地基基礎(chǔ)設(shè)計(jì)規(guī)范（GB50007_200

8、2）1.2.2.技術(shù)指標(biāo)依據(jù)建筑地基基礎(chǔ)設(shè)計(jì)規(guī)（GB50007_2002），建筑物地基基礎(chǔ)整體沉降最大值：200mm(Hg<100m)，現(xiàn)場監(jiān)測設(shè)置預(yù)警值，為：沉降速率>1.0mm/d；累計(jì)沉降達(dá)到最大允許沉降的70%,提出預(yù)警。為此，依據(jù)最新的建筑變形測量規(guī)范(JGJ8-2007)，本次沉降監(jiān)測的技術(shù)指標(biāo)采用“二級”變形測量級別的技術(shù)指標(biāo)（見表2-1）。表2-1 建筑變形測量的級別、精度指標(biāo)與適用范圍你把參考資料中的表拷貝過來，表號和圖號要跟自己文章中的標(biāo)題序號對應(yīng)，下同。變形測量級別沉降觀測水平位移適用范圍觀測點(diǎn)測站高差中誤差(mm)觀測點(diǎn)坐標(biāo)中誤差(mm)特級±0.

9、05±0.3特高精度要求的特種精密工程的變形測量一級±0.15±1.0地基基礎(chǔ)設(shè)計(jì)為甲級的建筑的變形測量；重要古建筑和特大型市政橋梁等的變形測量等二級±0.5±3.0地基基礎(chǔ)設(shè)計(jì)為甲級、乙級的建筑的變形測量；場地滑坡測量；重要管線的變形測量；地下工程施工與運(yùn)營中的變形測量；大型市政橋梁變形測量等三級±1.5±10.0地基基礎(chǔ)設(shè)計(jì)為乙、丙級的建筑的變形測量；地表、道路與一般管線的變形測量；中小型市政橋梁變形測量等參照該要求，依據(jù)工程測量規(guī)范(GB50026-2007)，結(jié)合工程現(xiàn)場實(shí)際，本次建筑物的沉降觀測需要布設(shè)“水準(zhǔn)基點(diǎn)”

10、、“工作基點(diǎn)”和“沉降監(jiān)測點(diǎn)”3種類型的監(jiān)測點(diǎn)。按照二等水準(zhǔn)測量的技術(shù)要求（見表2-2），布設(shè)成水準(zhǔn)網(wǎng)（見圖2-1）。該水準(zhǔn)網(wǎng)為自由網(wǎng)，基于施工現(xiàn)場高程基準(zhǔn)，測定一個(gè)水準(zhǔn)基點(diǎn)的高程值，其他所有點(diǎn)的高程值，以此水準(zhǔn)點(diǎn)為基準(zhǔn)，計(jì)算得出。表2-2 垂直位移監(jiān)測基準(zhǔn)網(wǎng)的主要技術(shù)要求表號等級相鄰基準(zhǔn)點(diǎn)高差中誤差(mm)變形監(jiān)測點(diǎn)高程中誤差(mm)每站高程中誤差(mm)往返較差或環(huán)線閉合差(mm)檢測已測高差較差(mm)一等±0.3±0.3±0.07二等±0.5±0.5±0.15三等±1.0±1.0±0.30四等&#

11、177;2.0±2.0±0.701.2.3.監(jiān)測步驟建立監(jiān)測用水準(zhǔn)高程控制網(wǎng)水準(zhǔn)高程控制網(wǎng)的建立，需要在第一次沉降觀測前建立。采用二等水準(zhǔn)，建立由水準(zhǔn)基點(diǎn)B1B3，工作基點(diǎn)W1W5所組成的水準(zhǔn)控制網(wǎng)（水準(zhǔn)基點(diǎn)與工作基點(diǎn)的布設(shè)見圖2-1），經(jīng)過嚴(yán)密平差，得出水準(zhǔn)控制網(wǎng)各點(diǎn)的初始高程值（見表2-3）。需要時(shí)常巡視水準(zhǔn)基點(diǎn)和工作基點(diǎn)的完好情況。一旦有移動或破壞的痕跡，需要與時(shí)修復(fù)或增補(bǔ)，并重新進(jìn)行控制測量。圖名圖號沉降觀測按照設(shè)計(jì)圖紙要求，沉降監(jiān)測點(diǎn)設(shè)置在±0標(biāo)高以上500mm位置。因此，首次沉降觀測，定在一層模板拆除，二層樓板澆注之前進(jìn)行。以后每澆注一層樓板，進(jìn)行一次

12、觀測，共需觀測6次（分別為首次、6m樓板澆好、12m樓板澆好、18m樓板澆好、24m鋼梁焊接完畢和主體完工）。主體完工以后，根據(jù)沉降情況，每12個(gè)月進(jìn)行一次觀測。1.3、船頭高支撐架體基礎(chǔ)沉降監(jiān)測1.3.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.3.2技術(shù)指標(biāo)同整體沉降監(jiān)測方案中的技術(shù)指標(biāo)，采用二等水準(zhǔn)的測量觀測方法。1.3.3監(jiān)測步驟建立水準(zhǔn)控制網(wǎng)同整體沉降監(jiān)測方案中的布網(wǎng)方案。沉降觀測船頭高支撐架體基礎(chǔ)沉降監(jiān)測點(diǎn)的布設(shè)，在各榀大梁下方腳手架基礎(chǔ)上，選擇通視情況良好的地方，每一分區(qū)布設(shè)一個(gè)水準(zhǔn)觀測點(diǎn)（如圖3-1）船頭高支撐架體的穩(wěn)定性是整個(gè)工

13、程監(jiān)測的重點(diǎn)，需要根據(jù)工程的具體施工情況，進(jìn)行高密度的監(jiān)測。首次觀測，定在相應(yīng)區(qū)域支撐架體搭設(shè)完畢，觀測點(diǎn)布設(shè)成功1周后進(jìn)行。之后3天觀測一次，在混凝土澆注后1周，每天觀測1次，1周后恢復(fù)每3天觀測一次直至竣工。圖3-1 高支撐架體沉降監(jiān)測點(diǎn)布設(shè)示意圖圖號圖2-1 沉降監(jiān)測網(wǎng)布設(shè)示意圖表2-3 經(jīng)嚴(yán)密平差后的水準(zhǔn)高程控制網(wǎng)成果表表號點(diǎn)名高程(m)高程中誤差(mm)備注B117.04180.3水準(zhǔn)基點(diǎn)B217.33190.4B317.96340.3W117.5897 0.4工作基點(diǎn)W217.0787 0.2W316.5970 0.3W417.5986 0.3W518.1470 0.2沉降監(jiān)測點(diǎn)的

14、觀測沉降觀測點(diǎn)的布設(shè)，按照設(shè)計(jì)圖紙的要求，預(yù)埋于建筑物東西立面±0標(biāo)高以上約500mm位置處，點(diǎn)位間隔約30m（如圖2-1）。沉降點(diǎn)的觀測，采用二等水準(zhǔn)觀測方法，與工作基點(diǎn)形成符合路線。監(jiān)測點(diǎn)的高程值，經(jīng)平差后得出。1.4、船頭高支撐架體與23米跨橫梁了水平位移監(jiān)測1.4.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.4.2技術(shù)指標(biāo)見表2-.監(jiān)測步驟船頭高支撐架體與23米跨橫梁水平位移監(jiān)測采用懸掛鋼絲法進(jìn)行觀測。各分區(qū)選擇具有代表性的槽鋼立桿1根，在其頂端焊接觀測點(diǎn)（如圖4-1）船頭高支撐架體與23米跨橫梁的水平方向的穩(wěn)定性

15、，是整個(gè)工程監(jiān)測的重點(diǎn)，需要根據(jù)工程的具體施工情況，進(jìn)行高密度監(jiān)測。首次觀測，在各分區(qū)支撐架體搭設(shè)完畢，觀測點(diǎn)布設(shè)成功1周后進(jìn)行。之后3天觀測一次，在混凝土澆注過程中，隨時(shí)進(jìn)行觀測，直至澆注結(jié)束。此后3天內(nèi)，每天觀測2次，再3天內(nèi)，每天觀測1次，1周后恢復(fù)每3天觀測一次直至竣工。圖4-1高支撐架體頂部水平位移監(jiān)測點(diǎn)布設(shè)示意圖圖號1.5、船頭高支撐架體基礎(chǔ)擋土墻水平位移監(jiān)測15.1.監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.5.2.技術(shù)指標(biāo)同整體沉降監(jiān)測方案中的技術(shù)指標(biāo)，采用二等水準(zhǔn)的測量觀測方法。1.5.3.監(jiān)測步驟船頭高支撐架體基礎(chǔ)擋土墻水平位

16、移監(jiān)測采用經(jīng)緯儀測小角法進(jìn)行。在擋土墻兩側(cè)延伸線上，尋找兩個(gè)相對穩(wěn)定，便于假設(shè)儀器，與監(jiān)測點(diǎn)通視的儀器架站點(diǎn)作為監(jiān)測工作基點(diǎn)。監(jiān)測點(diǎn)的布設(shè)如圖5-1首次觀測，在觀測點(diǎn)布設(shè)完成1周后進(jìn)行。之后3天觀測一次，在混凝土澆注后1周，每天觀測1次，1周后恢復(fù)每3天觀測一次直至竣工。第二章應(yīng)用Excel手動處理變心監(jiān)測數(shù)據(jù)一章要從新頁開始2.1 Excel功能簡介Excel 是天然的“可見的二維數(shù)組”。它可以最多有256 列，65536 行，每一行和每一列的交叉處是一個(gè)單元格。單元格可用它所處的行和所處的列表示。如A2表示第2 行第A 列的單元格。B2：F8 表示第2 行第B列至第8 行第F 列的單元格區(qū)

17、域。Excel 單元格中可以直接輸入數(shù)值，也可以通過輸入表達(dá)式的方式輸入數(shù)值。Excel 在通過表達(dá)式方式給單元格賦值時(shí)可以調(diào)用其它單元格的數(shù)值。Excel 單元格調(diào)用的方式有兩種，即絕對調(diào)用和相對調(diào)用。單元格絕對調(diào)用是指當(dāng)調(diào)用形式復(fù)制到其它單元格時(shí)，被調(diào)用單元格不會因?yàn)檎{(diào)用單元格改變而改變。單元格絕對調(diào)用時(shí)被調(diào)用單元格前要加“$”符號。如，在C2 單元格編輯欄鍵入“= $A$1”，表示C2 單元格絕對調(diào)用A1 單元格的數(shù)據(jù)。當(dāng)把C2 單元格的表達(dá)式復(fù)制到F4 單元格時(shí)，F(xiàn)4 單元格編輯欄仍是“= $A$1”，它不隨調(diào)用單元格的改變而改變。單元格相對調(diào)用是指當(dāng)調(diào)用形式復(fù)制到其它單元格時(shí)，被調(diào)用

18、單元格會隨著調(diào)用單元格改變而改變。單元格相對調(diào)用時(shí)被調(diào)用單元格前不加“$”符號。例如，在C2 單元格編輯欄鍵入“= A1”，表示C2 單元格相對調(diào)用A1 單元格的數(shù)據(jù)。當(dāng)把C2 單元格的表達(dá)式復(fù)制到F4 單元格時(shí)，F(xiàn)4 單元格編輯欄就會變成“= D3”，被調(diào)用單元格隨著調(diào)用單元格的變化而改變。 測量數(shù)據(jù)處理過程多數(shù)情況是對一大批數(shù)據(jù)通過某種數(shù)學(xué)模型轉(zhuǎn)換的重復(fù)過程。在這種數(shù)學(xué)模型中，我們每次都可能用到一些常量，并且這些常量在每次計(jì)算中都是固定不變。這種情況我們用Excel 處理數(shù)據(jù)時(shí)就可以利用單元格的絕對調(diào)用，把常量存入Excel 的某一單元格中，每一次計(jì)算時(shí)都絕對調(diào)用它。一次計(jì)算完成后，下一次

19、重復(fù)計(jì)算時(shí)我們可以把上一次的數(shù)學(xué)模型復(fù)制到這次計(jì)算中來，復(fù)制的數(shù)學(xué)模型中如有單元格的相對調(diào)用，就可以完成各初始輸入數(shù)據(jù)的自動切換。Excel 內(nèi)含豐富的函數(shù)功能，包含常規(guī)數(shù)學(xué)函數(shù)、三角函數(shù)和反三角函數(shù)，復(fù)雜的矩陣運(yùn)算、統(tǒng)計(jì)運(yùn)算和邏輯運(yùn)算函數(shù)也都包含，完全可以滿足測量一些常規(guī)重復(fù)計(jì)算過程。在利用Excel 完成測量數(shù)據(jù)處理的重復(fù)計(jì)算過程中，我們可以利用Excel 的一行完成一次計(jì)算。在一行中我們可以通過單元格之間的相互調(diào)用實(shí)現(xiàn)變量之間數(shù)值的傳遞，并結(jié)合Excel 豐富的函數(shù)功能完成數(shù)學(xué)模型的建立，并把計(jì)算結(jié)果設(shè)在一行的后幾列中。當(dāng)一行的一次計(jì)算完成后，我們就可以利用Excel 各列的充填柄根據(jù)重

20、復(fù)計(jì)算的次數(shù)對各列進(jìn)行充填。這個(gè)過程實(shí)際上是把一行的數(shù)學(xué)計(jì)算模型復(fù)制到其它各行中去，在復(fù)制過程中表達(dá)式如有單元格的相對調(diào)用，被調(diào)用單元格會隨著調(diào)用單元格的改變而改變，也就是完成了以下幾行數(shù)學(xué)模型的建立，而不必每行都重復(fù)輸入同一種數(shù)學(xué)模型。同時(shí)由于Office軟件使用的普遍性與其組件之間數(shù)據(jù)良好的交互性和共享性,利用Excel來進(jìn)行一些比較復(fù)雜的數(shù)據(jù)處理具有簡便、高效和通用的特點(diǎn),Excel在測量數(shù)據(jù)處理與相應(yīng)報(bào)告的生成等方面更具優(yōu)勢。由于變形監(jiān)測分為整體沉降監(jiān)測、整體傾斜監(jiān)測、船頭高支撐架體的沉降監(jiān)測、船頭高支撐架體與23米跨橫梁的水平位移監(jiān)測等多種變形監(jiān)測，本文就已整體沉降監(jiān)測為例。2.2用

21、Excel處理數(shù)據(jù)的步驟221建立原始數(shù)據(jù)記錄表 用Excel處理測量數(shù)據(jù)首先要設(shè)計(jì)好原始記錄電子表格，此表格要進(jìn)行規(guī)格化，即所有的行、列、格都要一單元格的整數(shù)倍為單位（如表1所示）。這樣，便于在多次鑒定時(shí)，直接把測量數(shù)據(jù)輸入到Excel工作表中相應(yīng)的單元格，無須重新輸入公式，就可以自動生成計(jì)算結(jié)果和相應(yīng)的分析圖表, 從而使檢測效率提高。將有文字性內(nèi)容的單元格輸入相應(yīng)的內(nèi)容有文字性內(nèi)容的單元格要先輸入相應(yīng)的內(nèi)容, 這樣便于在輸入原始數(shù)據(jù)和公式時(shí)能在準(zhǔn)確的單元格輸入, 比較不易出錯(cuò)。輸入時(shí)可邊調(diào)整單元格大小。對于文字較多的單元格,還可以采用“合并單元格”的方法, 使多個(gè)單元格合并成一個(gè)單元格,

22、便于文字的輸入。相反也可以采用“拆分單元格”的方法, 使一個(gè)單元格分成n 個(gè)單元格（如下表格）。圖名或表名（只要在文章中有圖和表，都要有編號和名稱，而且正文中的內(nèi)容要引用上）2.2.2輸入原始數(shù)據(jù)并計(jì)算相應(yīng)數(shù)據(jù)在原始數(shù)據(jù)記錄單元輸入原始數(shù)據(jù)的輸入位置要準(zhǔn)確,在計(jì)算高差、高差互差、平均高差、高程等在計(jì)算結(jié)果的單元格輸入相應(yīng)的計(jì)算公式Excel 提供有復(fù)雜公式運(yùn)算功能, 可以利用工具欄中的“粘貼函數(shù)”按鈕, 選取所需的函數(shù)實(shí)現(xiàn)單元格的公式輸入。常用函數(shù)還可以直接點(diǎn)擊Excel 公式編輯欄左邊的下拉按鈕, 選擇一種常用函數(shù)實(shí)現(xiàn)公式輸入。編輯公式時(shí)應(yīng)注意, 所有的Excel 公式總是以一個(gè)等號( =)

23、 開頭。公式一般由運(yùn)算符、單元格標(biāo)、數(shù)據(jù)值和工作表函數(shù)等組成。其中：H1=D5-F6H2=E5-G6注意：用Excel 進(jìn)行數(shù)據(jù)處理時(shí)的操作技巧編輯公式可用編輯欄。編輯公式時(shí), 首先選擇要輸入公式的單元格, 然后單擊編輯欄中的“=”號按鈕( 此為編輯公式按鈕) ,“=”號便出現(xiàn)在編輯框中, 在“=”號的右邊便可輸入公式。公式中要用到的函數(shù)可直接輸入, 也可采用“粘貼函數(shù)”命令粘貼, 要用到的單元格地址可直接輸入, 也可以在表格中選取。Excel的公式復(fù)制功能給數(shù)據(jù)處理帶來很大的方便, 只要數(shù)據(jù)系列呈有規(guī)律的變化, 就可以采用Excel 的公式復(fù)制功能, 但要用公式復(fù)制功能時(shí), 被復(fù)制的單元格中

24、輸入的公式中引用的單元格地址要注意區(qū)分相對地址與絕對地址。22.3將初步處理數(shù)據(jù)整合處理建立新的工作簿，并將不同工作簿中計(jì)算的計(jì)算高差、高差互差、平均高差、高程等數(shù)據(jù)復(fù)制粘貼到新的表格中進(jìn)行處理（如表格）。并根據(jù)表格數(shù)據(jù)建立新的工作簿，并將數(shù)據(jù)再次整合得出變形監(jiān)測需要的處理數(shù)據(jù)（累計(jì)沉降量、隔日沉降量、沉降速度）如下表：再根據(jù)每次的沉降累計(jì)變化量結(jié)合Excel插入圖表功能繪制累計(jì)變化曲線圖。如圖：明顯的異常數(shù)據(jù)，你難道看不出來嗎？還要在文章中用第三章 運(yùn)用Excel的VBA二次開發(fā)對數(shù)據(jù)自動化處理與一般的測量工作相比，變形觀測具有以下幾個(gè)特點(diǎn)：（1） 觀測的精度要求高由于變形觀測的結(jié)果直接關(guān)系

25、到建筑物的安全，影響對變形原因的分析和變形規(guī)律的正確分析，和其他測量工作相比較，變形觀測必須具有很高的精度。典型的變形觀測精度要求是1mm或者相對精度1×10-6。因此，根據(jù)變形觀測的目的不同，確定合理的觀測精度和觀測方法，優(yōu)化觀測方案，選擇測量儀器是實(shí)施變形觀測的前提。（2） 需要重復(fù)觀測建筑物由于各種原因產(chǎn)生的變形都有時(shí)間效應(yīng)，計(jì)算其變形最簡單，最基本的方法是計(jì)算建筑物上同一點(diǎn)在不同時(shí)間的坐標(biāo)差和高程差。這就要求變形觀測必須依一定的時(shí)間周期重復(fù)觀測，時(shí)間跨度較大。重復(fù)觀測的周期取決于變形觀測的目的，預(yù)計(jì)的變形量的大小和速度。（3） 要求采用嚴(yán)密的數(shù)據(jù)處理方法建筑物的變形一般都比較

26、小，有時(shí)甚至與觀測精度處在同一個(gè)數(shù)量級；同時(shí)，大量重復(fù)觀測使原始數(shù)據(jù)增多。要求從不同時(shí)期的大量數(shù)據(jù)中，精確確定變形信息，必須采用嚴(yán)密的數(shù)據(jù)處理方法。這對測量工作也提出了更為艱巨的要求。在建筑物建設(shè)的整個(gè)過程中, 從工程施工開始到竣工，以與建成后整個(gè)工程的運(yùn)營期間都要不斷的對工程建筑物進(jìn)行監(jiān)測，以便掌握工程建筑物變形的情況，與時(shí)發(fā)現(xiàn)問題，保證工程建筑物的安全。在不斷的監(jiān)測過程中，測獲了大量的原始觀測數(shù)據(jù),在每次測量后都要與時(shí)的對數(shù)據(jù)進(jìn)行處理，生成報(bào)告工程建筑物變形的情況。但是內(nèi)業(yè)數(shù)據(jù)處理量大，工作繁重，建筑物的變形一般都比較小，有時(shí)甚至與觀測精度處在同一個(gè)數(shù)量級；同時(shí)，大量重復(fù)觀測使原始數(shù)據(jù)增多

27、。要求從不同時(shí)期的大量數(shù)據(jù)中，精確確定變形信息，必須采用嚴(yán)密的數(shù)據(jù)處理方法；另外，數(shù)據(jù)的計(jì)算的正確和精度與速度直接影響著野外測量和工程質(zhì)量的好壞。這就成為擺在測繪工作人員面前的難題了。在經(jīng)過測繪工作人員不斷嘗試下，大家開始利用計(jì)算機(jī)程序進(jìn)行數(shù)據(jù)處理，實(shí)現(xiàn)數(shù)據(jù)處理的自動化，提高了數(shù)據(jù)處理的效率和準(zhǔn)確率。本文就是研究通過Excel的VBA語言的二次開發(fā)實(shí)現(xiàn)變形監(jiān)測數(shù)據(jù)自動化處理。3.1程序設(shè)計(jì)流程3.1.1設(shè)計(jì)的總體要求程序的設(shè)計(jì)不僅要求符合語言規(guī)范,還需要符合測量人員輸入習(xí)慣,同時(shí)為了能讓外業(yè)人員能很快采集到符合質(zhì)量要求的外業(yè)數(shù)據(jù),為了實(shí)現(xiàn)數(shù)采集、處理的一體化,還必須為數(shù)據(jù)處理提供相應(yīng)測量信息與

28、相關(guān)文字說明。3.1.2設(shè)計(jì)總體流程對于不同的模板和不同的數(shù)據(jù)處理,程序設(shè)計(jì)和數(shù)據(jù)處理也有所不同,但大概可以分為以下幾個(gè)步驟:首先在Excel 上繪制紙制表格;其次將Excel與Visual Basic連接起來為Excel的VBA二次開發(fā)做準(zhǔn)備,同時(shí)為進(jìn)行后續(xù)數(shù)據(jù)處理所需要的信息提供控件或?qū)υ捒?通過交互獲得測量信息,通過控件來存儲測量信息;再針對原始數(shù)據(jù)的預(yù)處理用VBA編寫相應(yīng)的函數(shù)封裝在相應(yīng)的模塊中專門進(jìn)行處理。程序流程圖如圖2所示。Excel模板將Excel與Visual Basic連接起來導(dǎo)入新的觀測數(shù)據(jù)、獲得新的觀測數(shù)據(jù)表格處理觀測數(shù)據(jù)、獲得相應(yīng)計(jì)算結(jié)果更新數(shù)據(jù)、獲得最新數(shù)據(jù)信息和更

29、新累計(jì)變化曲線 圖2程序流程圖3.1.3設(shè)計(jì)總體目標(biāo)能使重復(fù)觀測的數(shù)據(jù)源工作簿中后，在程序運(yùn)行以后將自動處理數(shù)據(jù)并得出相關(guān)數(shù)據(jù)和圖表，實(shí)現(xiàn)數(shù)據(jù)處理的自動化，提高了數(shù)據(jù)處理的效率和準(zhǔn)確率。3.2 技術(shù)難點(diǎn)在設(shè)計(jì)與實(shí)施過程中,遇到了很多問題,大致可以分為以下幾個(gè)方面。下面以整體沉降程序設(shè)計(jì)為例闡述研制過程中遇到的技術(shù)問題和解決方法。3.2.1多張表格的數(shù)據(jù)處理由于原始數(shù)據(jù)比較多,大多數(shù)情況下是無法將所有的數(shù)據(jù)記錄在一張表中,這樣給程序的編制設(shè)置了一些障礙。解決方法:對于單測站數(shù)據(jù)在一張表中是比較好處理的。但是對于多張表格的數(shù)據(jù)的輸入和處理,使用插入生成一張新表來解決一張工作簿無法將數(shù)據(jù)全部記錄的矛

30、盾。在程序上,使用工作簿組對象進(jìn)行編程。也就是Sheet s 對象和Worksheet s 對象,他們都表示整個(gè)工作簿組對象,用他們的索引號來標(biāo)示當(dāng)前處理的工作簿對象。3.2 程序編寫過程3.2.1將Excel與Visual Basic連接起來 用VB語言編程進(jìn)行Excel二次開發(fā)，首先要講VB與Excel連接起來，需要一下兩個(gè)步驟：（1） 在編寫VB代碼前，在VB編程環(huán)境中引用Excel對象庫。（2） 編寫VB程序代碼后，創(chuàng)建Excel對象，啟動運(yùn)行Excel .3.2.2在Visual Basic窗口設(shè)計(jì)程序運(yùn)行界面（如圖）3.2.3代碼編寫（1）在全局變量的位子定義excelApp 為E

31、xcel應(yīng)用程序 Dim excelApp As Excel.Application （2）定義工作簿、工作表、路徑名Dim excelWBS As Excel.Workbook ' Dim excelWBT As Excel.Workbook Dim excelSheetS As Excel.Worksheet ' Dim excelSheetT As Excel.Worksheet Dim excelRangS, excelRangT As Excel.RangeDim strFileS, strFileT As String ' Dim SheetNameS, S

32、heetNameT As String （3） 根據(jù)程序所在路徑找到觀測數(shù)據(jù)編寫代碼之前要把程序和源數(shù)據(jù)放在同一個(gè)文件夾內(nèi)，然后根據(jù)APP.Path獲得應(yīng)用程序所在目錄名，再加上源數(shù)據(jù)文件夾名等即可以找到觀測數(shù)據(jù)。strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄).xls"strFileT = App.Path & "Data處理結(jié)果數(shù)據(jù)整體沉降(計(jì)算).xls"（4） 生成新的數(shù)據(jù)表格 在生成新的數(shù)據(jù)表格時(shí)，要選擇復(fù)制粘貼的表格是上一次數(shù)據(jù)觀測所得到的表格，對于多張表格的數(shù)據(jù)的輸入和處理,在程序上,使

33、用工作簿組對象進(jìn)行編程。也就是Sheet s 對象和Worksheet s 對象,他們都表示整個(gè)工作簿組對象,用他們的索引號來標(biāo)示當(dāng)前處理的工作簿對象。在工作簿集中上一次生成的表格在此工作表的索引號的倒數(shù)第三位，一次為“Count - 2“。 excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.S

34、heets(excelWBT.Sheets.Count - 2) '獲得要復(fù)制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復(fù)制表格 Set excelSheetT = excelWBT.ActiveSheet '獲得復(fù)制后的表格 SheetNameT = excelWBS.Sheets(excelWBS.Sheets.Count).Name '獲得目標(biāo)表格名 excelSheetT.Name = SheetNameT '更改復(fù)制后的表格

35、名（5） 將源數(shù)據(jù)導(dǎo)入目標(biāo)工作表 在設(shè)計(jì)表格時(shí)，表格要進(jìn)行規(guī)格化, 即所有的行、列、格都要以單元格的整數(shù)倍為單位，所有的源工作簿的數(shù)據(jù)都記錄在單元格范圍為D5:G12和D17:G24的位置，所有導(dǎo)入目標(biāo)工作部的數(shù)據(jù)位置都在"D5:G12和D19:G26，因此導(dǎo)入數(shù)據(jù)就是復(fù)制固定位置數(shù)據(jù)并粘貼到固定位置。SheetNameS = SheetNameT Set excelSheetS = excelWBS.Sheets(SheetNameS) '獲得最新觀測數(shù)據(jù)表格 '復(fù)制粘貼東邊觀測點(diǎn)數(shù)據(jù) Set excelRangS = excelSheetS.Range("

36、;D5:G12") excelRangS.Copy Set excelRangT = excelSheetT.Range("D5:G12") excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼 '復(fù)制粘貼西東邊觀測點(diǎn)數(shù)據(jù) Set excelRangS = excelSheetS.Range("D17:G24") excelRangS.Copy Set excelRangT = excelSheetT.Range("D19:G26")

37、excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼（6） 處理計(jì)算結(jié)果 計(jì)算隔日沉降量，將累計(jì)變化量表格增加一列，添加最新計(jì)算數(shù)據(jù)，更新圖表數(shù)據(jù)源。 Dim DeltValue As Double Dim intI As Integer For intI = 1 To 8 DeltValue = excelWBT.Sheets(excelWBT.Sheets.Count - 2).Cells(4 + intI, 16).Value - excelWBT.Sheets(excelWBT.Sheets.Count

38、- 3).Cells(4 + intI, 16).Value excelWBT.Sheets(excelWBT.Sheets.Count - 2).Cells(4 + intI, 18).Value = DeltValue * 1000 Next '累計(jì)變化量表格增加一列 Dim LastCIndex As Integer '最后一列序號 Dim tempValue As String LastCIndex = 2 tempValue = "lll" Do While Not tempValue = "" tempValue = CStr

39、(excelWBT.Sheets("累計(jì)變化量").Cells(3, 1 + LastCIndex).Value) LastCIndex = LastCIndex + 1Loop Set excelRangT = excelWBT.Sheets("累計(jì)變化量").Range(excelWBT.Sheets("累計(jì)變化量").Cells(3, LastCIndex - 1), excelWBT.Sheets("累計(jì)變化量").Cells(11, LastCIndex - 1) excelRangT.Copy '

40、;復(fù)制最后一列 Set excelRangT = excelWBT.Sheets("累計(jì)變化量").Cells(3, LastCIndex) excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteAll) '增加一列 excelWBT.Sheets("累計(jì)變化量").Cells(3, LastCIndex).Value = SheetNameT '新增列日期 '把最新的累積沉降值復(fù)制到新增加列中 Set excelRangT = excelWBT.Sheets(SheetNameT).

41、Range("Q5:Q12") excelRangT.Copy '復(fù)制累計(jì)沉降值 Set excelRangT = excelWBT.Sheets("累計(jì)變化量").Cells(4, LastCIndex) excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼到目標(biāo)列 '更新圖表數(shù)據(jù)源為新的數(shù)據(jù)源 Set excelRangT = excelWBT.Sheets(累計(jì)變化量").Range(excelWBT.Sheets("累計(jì)變化量&q

42、uot;).Cells(3, 2), excelWBT.Sheets("累計(jì)變化量").Cells(11, LastCIndex) excelWBT.Sheets("累計(jì)變化曲線圖").ChartObjects(1).Chart.SetSourceData excelRangTexcelWBS.Close excelWBT.Close（7） 卸載程序 第四章趨勢線的生成建筑物的沉降-時(shí)間曲線絕對不是直線，指數(shù)、對數(shù)、多項(xiàng)式等函數(shù)曲線都可以。把這一章刪掉吧，它只會讓你在知道一點(diǎn)的人面前顯得很無知因?yàn)槟銐焊蜎]深入分析，哪怕是理論學(xué)習(xí)上的都沒有。趨成線是為了

43、根據(jù)現(xiàn)有測量數(shù)據(jù)來預(yù)測以后的變化趨勢的變化曲線。擬合曲線是趨勢分析法中的一種?；貧w分析是數(shù)理計(jì)中處理變量之間關(guān)系的一種常用方法。處理兩個(gè)變量之間關(guān)系的回歸分析稱為一元回歸分析，當(dāng)兩個(gè)變量之間的關(guān)系為線性時(shí)，則稱一元線性回歸分析，它是回歸分析中最簡單的情況。一元線性回歸的數(shù)學(xué)模型式中假設(shè)它們相互獨(dú)立，且服從同一正態(tài)分布。按最小二乘法，可以求得參數(shù) 和 的估值和，得一元線性回歸方程觀測數(shù)據(jù)可以寫成 或 采用最小二乘法來計(jì)算估值，為此組成對 a、b求微分 經(jīng)變換后得式中 n觀測值的個(gè)數(shù)由式可求得a b .回歸值與實(shí)測值之差表示出實(shí)測值與回歸直線的偏離程度。其中誤差估值為第五章 總結(jié)和展望5.1總結(jié)和

44、結(jié)論用 EXCEL 的VBA二次開發(fā)對測量計(jì)算數(shù)據(jù)的自動化處理，會使我們感到非常輕松、靈活，它可自動化完成變形監(jiān)測數(shù)據(jù)處理的所有測量計(jì)算。在使用過程中，測量人員只要將原始觀測數(shù)據(jù)輸入源記錄表格中，再將編寫的VB程序運(yùn)行即可進(jìn)行數(shù)據(jù)的自動化處理，提高了數(shù)據(jù)處理的效率和準(zhǔn)確率。筆者已成功地把EXCEL和VB應(yīng)用到高程導(dǎo)線、測圖水準(zhǔn)、邊長改化、變形觀測數(shù)據(jù)處理、儀器檢驗(yàn)表等計(jì)算中，計(jì)算方便、快捷，并且最后能提供一漂亮的計(jì)算表，為工作帶來了許多方便。并且額可以把計(jì)算成果名列成表，使結(jié)果明顯易看。5.2 進(jìn)一步工作本次實(shí)驗(yàn)雖然得出成果并且繪制成曲線圖。但還存在著不小的問題等待解決。（1）在野外測量尤其是

45、變形觀測數(shù)據(jù)量大而且煩瑣，運(yùn)用Excel的VBA的二次開發(fā)時(shí)，需要把觀測的已知數(shù)據(jù)挨個(gè)輸入，既浪費(fèi)了時(shí)間又費(fèi)力?。?）自定義函數(shù)一般只能在本工作簿中使用,如要在不同的工作簿中使用可對含宏工作簿設(shè)置引用或創(chuàng)建一個(gè)加載宏,在使用時(shí)加載。參考文獻(xiàn)1 黃騰，蔣敏衛(wèi)，朱曉麗.Excel2003 在測量中的應(yīng)用J.測繪通報(bào)，2005，（12）2 劉麗萍, 易俊, 王學(xué)禮Excel 在公路工程試驗(yàn)和測量數(shù)據(jù)處理中的應(yīng)用J山西交通科技，2004（3）:19-213 周愛民,彭劍,劉艷松. VFP 導(dǎo)入導(dǎo)出Excel 程序設(shè)計(jì)與分析J. 電腦知識與技術(shù)，2007（1）:15-16 4 益嘉創(chuàng)作室. Excel

46、2000中文版自學(xué)教程M . :清華大學(xué), 2000.152 5 武測測量平差教研室. 測量平差基礎(chǔ)M. 北 京測繪,1996 . 6 王樹元. 大地與建筑物變形測量M. 冶金工業(yè),19947 鹿利軍. Excel在建筑物變形測量數(shù)據(jù)分析中的應(yīng)用. 測繪，2005（04）8 李青岳. 工程測量學(xué)M. 測繪,19909 周愛民,彭劍,劉艷松. VFP 導(dǎo)入導(dǎo)出Excel 程序設(shè)計(jì)與分析J. 電腦知識與技術(shù)，2007（1）:15-16 10 王強(qiáng)Excel 中使用VBA 編程處理數(shù)據(jù)JI福建教育學(xué)院學(xué)報(bào),2003（10）:15-17 11劉麗萍, 易俊, 王學(xué)禮Excel 在公路工程試驗(yàn)和測量數(shù)據(jù)

47、處理中的應(yīng)用J山西交通科技，2004（3）:19-2112 齊建偉,白永輝. Excel電子表格在測量計(jì)算中的應(yīng)用 J .測繪通報(bào). 2001年增刊, 535413 祝茂良,任建平,袁瑞.Excel在測量數(shù)據(jù)處理中的應(yīng)用J. 青海國土經(jīng)略,2008(3)14 李茹仁,劉玉梅. 高層建筑物變形觀測與數(shù)據(jù)處理J .沈陽建筑工程學(xué)院學(xué)報(bào)(自然科學(xué)版) ,1999 ,15 (4) :310 - 312.15 羅德安，寥麗瓊基于Excel 的數(shù)據(jù)批量錄入與輸出J計(jì)算機(jī)系統(tǒng)應(yīng)用，2005（1）致謝放到參考文獻(xiàn)前面本文從體系的構(gòu)思、觀點(diǎn)的提煉、邏輯順序的組織到文章的最終完稿，首先感謝的是指導(dǎo)教師廖振修老師。

48、在做畢業(yè)設(shè)計(jì)的整個(gè)階段，廖老師嚴(yán)謹(jǐn)求實(shí)的態(tài)度、勤奮敬業(yè)的精神、兢兢業(yè)業(yè)的學(xué)術(shù)風(fēng)格，使我深受教育和鞭策；同時(shí)，廖老師告訴我們畢業(yè)論文的完成過程是一次對自我能力的鍛煉，是個(gè)人完成一件事情的能力培養(yǎng)，在做論文期間廖老師也是有意識培養(yǎng)我們這方面的能力。值此論文完成之際，謹(jǐn)向我尊敬的廖老師致以深深的謝意。四年階段的本科學(xué)習(xí)使我對以前所學(xué)知識以與后來的工作經(jīng)驗(yàn)有了一個(gè)總結(jié)和梳理，使得我的知識結(jié)構(gòu)更加合理，看待事物較以前高屋建瓴，在更高的層面上整理自己的思路以與得出自己的結(jié)論和對策。同時(shí)，對以后的工作和理論研究打下了堅(jiān)實(shí)的基礎(chǔ)。感謝安徽建筑工業(yè)學(xué)院測繪工程的老師們，在這四年的學(xué)習(xí)期間所給予我的幫助，特別是廖

49、振修老師，在學(xué)習(xí)上和生活上給予了我們許多幫助，在此對他們表示衷心的感謝！最后祝各位老師身體健康，工作順利；祝各位同學(xué)前程似錦，萬事如意！附錄附錄是什么東西，要有名稱：Option ExplicitDim excelApp As Excel.Application '應(yīng)用程序Private Sub Command1_Click() Set excelApp = New Excel.Application Dim excelWBS As Excel.Workbook '源工作簿 Dim excelWBT As Excel.Workbook '目標(biāo)工作簿 Dim excelS

50、heetS As Excel.Worksheet '源工作表 Dim excelSheetT As Excel.Worksheet '目標(biāo)工作表 Dim excelRangS, excelRangT As Excel.Range Dim strFileS, strFileT As String '源文件和目標(biāo)文件的路徑 Dim SheetNameS, SheetNameT As String '源Sheet名和目標(biāo)Sheet名 '*處理“整體沉降”數(shù)據(jù) strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄

51、).xls" strFileT = App.Path & "Data處理結(jié)果數(shù)據(jù)整體沉降(計(jì)算).xls" 'Step1：生成新的數(shù)據(jù)計(jì)算表格（根據(jù)前一次的數(shù)據(jù)表格，復(fù)制后改名生成） excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.Sheets(e

52、xcelWBT.Sheets.Count - 2) '獲得要復(fù)制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復(fù)制表格 Set excOption ExplicitDim excelApp As Excel.Application '應(yīng)用程序Private Sub Command1_Click() Set excelApp = New Excel.Application Dim excelWBS As Excel.Workbook '源工作簿 D

53、im excelWBT As Excel.Workbook '目標(biāo)工作簿 Dim excelSheetS As Excel.Worksheet '源工作表 Dim excelSheetT As Excel.Worksheet '目標(biāo)工作表 Dim excelRangS, excelRangT As Excel.Range Dim strFileS, strFileT As String '源文件和目標(biāo)文件的路徑 Dim SheetNameS, SheetNameT As String '源Sheet名和目標(biāo)Sheet名 '*處理“整體沉降”數(shù)據(jù)

54、strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄).xls" strFileT = App.Path & "Data處理結(jié)果數(shù)據(jù)整體沉降(計(jì)算).xls" 'Step1：生成新的數(shù)據(jù)計(jì)算表格（根據(jù)前一次的數(shù)據(jù)表格，復(fù)制后改名生成） excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT

55、) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.Sheets(excelWBT.Sheets.Count - 2) '獲得要復(fù)制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復(fù)制表格 Set excelSheetT = excelWBT.ActiveSheet '獲得復(fù)制后的表格 SheetNameT = excelWBS.Sheets(excelWBS.Sheets.Count).Name '獲得目標(biāo)表格名 excelSheetT.Name = SheetNameT '更改復(fù)制后的表格名 'Step2：導(dǎo)入觀測數(shù)據(jù) SheetNameS = SheetNameT Set excelSheetS = excelWBS.Sheets(SheetNameS)