【文章內(nèi)容簡(jiǎn)介】 直接在數(shù)據(jù)庫(kù)上操作 ； 有的用 Visual Basic 等編程語(yǔ)言作開發(fā)平臺(tái)。但無(wú)論采用什么流程 ， 最終的成果都可以導(dǎo)入到電子表格中 ， 從而 進(jìn)行處理。 畢業(yè)論文 共 31 頁(yè)，第 11 頁(yè) Excel 對(duì)沉降觀測(cè)的內(nèi)業(yè)數(shù)據(jù)處理 對(duì)一次沉降觀測(cè)的數(shù)據(jù)處理 用 Excel 內(nèi)置函數(shù)處理沉降數(shù)據(jù) 以下是 朝陽(yáng)區(qū) 北苑路大羊坊 6 號(hào)樓的 首次觀測(cè)數(shù)據(jù) ， 這是一個(gè) 12 層的建筑物，由于該樓所占面積較大，所布設(shè)的控制點(diǎn)較多。其中， BM T1 是為已知基準(zhǔn)點(diǎn)， BM1點(diǎn)的高程為 ， A A A A A A A A A1 A1 B BB B B B B B B B B1 B1 B1 B1 B16 為該建筑物布設(shè)的沉降觀測(cè)水準(zhǔn)點(diǎn)， P P P P P P P P P P10 為水準(zhǔn)儀觀測(cè)時(shí)臨時(shí)增加的工作點(diǎn)，其首次觀測(cè)數(shù)據(jù)如表 3表 32 所示： 由于測(cè)量所用的電子水準(zhǔn)儀只能讀出前后尺的視距以及水準(zhǔn)尺在前后尺上的讀數(shù)，不能很直觀的讀出每個(gè)沉降點(diǎn)的高程以及觀測(cè)時(shí)的視距。因此不能直觀的比較兩次沉降數(shù)據(jù)以得出這段時(shí)間建筑物的沉降量，為方便得出我們所要的沉降數(shù)據(jù)，現(xiàn)我們用 excel軟件對(duì)原始的觀測(cè)數(shù)據(jù)進(jìn)行簡(jiǎn)單的處理。 首先當(dāng)已知 BM1 點(diǎn)的高程 H=， 根據(jù)水準(zhǔn)觀測(cè)的公式：后視 前視 =高差 (h) 則 T1 點(diǎn)的高程 H1=Hh== 在 Excel 中，我們可以用 Excel 自帶的函數(shù)運(yùn)算功能來(lái)實(shí)現(xiàn)這一運(yùn)算。如表 33 為首次觀測(cè)數(shù)據(jù)處理后的結(jié)果： 畢業(yè)論文 共 31 頁(yè)，第 12 頁(yè) 表 31 大羊坊六號(hào)原始觀測(cè)數(shù)據(jù) 畢業(yè)論文 共 31 頁(yè)，第 13 頁(yè) 表 32 大羊坊六號(hào)原始觀測(cè)數(shù)據(jù) （續(xù)） 畢業(yè)論文 共 31 頁(yè)，第 14 頁(yè) 表 33 第一次觀測(cè)數(shù)據(jù)處理 如上圖所示：在求 T1 點(diǎn)高程的單元格中，我們可以在函數(shù)欄中輸入“ =C2B3”，在按 enter 便可以得到我們想要的 T1 點(diǎn)的高程 ，以此類推，我們可以用同樣的方法來(lái)計(jì)算出其他觀測(cè)點(diǎn)的高 程。 同理，總的視距 =前距 +后距，可以同樣用 excel 的函數(shù)運(yùn)算功能來(lái)實(shí)現(xiàn)視距和的運(yùn)算，下面就不在贅述了。 : Excel 對(duì)測(cè)量平差的計(jì)算 沉降觀測(cè)的內(nèi)業(yè)計(jì)算 ， 一般按閉合線路進(jìn)行平差計(jì)算。按水準(zhǔn)測(cè)量的精度要求 ： 實(shí)測(cè)高差閉合差 即符合要求 ； 每測(cè)站所測(cè)高差中數(shù)中誤差 即符合要求 ； 計(jì)算校核為 (后視讀數(shù)之和 前視讀數(shù)之和 ) 高差之和； 畢業(yè)論文 共 31 頁(yè)，第 15 頁(yè) 閉合差為 ( 后視讀數(shù)之和 前視讀數(shù)之和 )247。 2，或者高差之和除以 2，或者平均高差之和。 計(jì)算校核需同時(shí)滿足以上計(jì)算結(jié)果條件 ， 才 說明內(nèi)業(yè)計(jì)算無(wú)誤。附表中“備注” 欄中為每一測(cè)站上沉降觀測(cè)點(diǎn)之讀數(shù)及計(jì)算高程值 ， 本欄目中未列出主輔尺的高差，應(yīng)注意校核主、 輔尺 讀數(shù)值之差是否等于尺常數(shù)， 如差值超過規(guī)定允許范圍， 是為“粗差” ，應(yīng)予重測(cè)， 這在施測(cè)過程中就應(yīng)有意識(shí)地進(jìn)行控制， 以免過后返工，增加不必要的工作量。述表格 ， 如為手工計(jì)算 ， 因較為單調(diào)與枯燥。特別是對(duì)于小區(qū)群體建筑， 觀測(cè)點(diǎn)位較多時(shí)， 內(nèi)業(yè)計(jì)算有一定的勞動(dòng)強(qiáng)度，手工計(jì)算速度也不快，我們針對(duì)該表格重復(fù)計(jì)算的特點(diǎn) ， 利用微機(jī)中的電子表格 Excel 的計(jì)算功能進(jìn)行計(jì)算， 對(duì)于所示附 表， 在 Excel中相應(yīng)表格中輸入對(duì)應(yīng)的計(jì)算公式。實(shí)際上， 僅可輸入一個(gè)測(cè)站單元的計(jì)算式， Excel將自動(dòng)對(duì)計(jì)算式作相應(yīng)的替換 ， 即公式中的相對(duì)單元格 引用是基于包含公式和單元格引用的單元格的相對(duì)位置。如果公式所在單元格的位置改變 ， 引用也隨之改變，是為“相對(duì)引 用” 。 只需錄入相應(yīng)的觀測(cè)數(shù)據(jù)，有關(guān)計(jì)算數(shù)據(jù)將由電子表格自動(dòng)計(jì)算。由于一般工程的觀測(cè)線路基本上是固定的 ， 這種表格也一般固定下來(lái)，每次觀測(cè)后只需將觀測(cè)數(shù)據(jù)對(duì)應(yīng)錄于電子表格中即可得出對(duì)應(yīng)結(jié)果。由于 Excel 的計(jì)算公式的復(fù)制自動(dòng)替換功能 ， 因而該表格可按實(shí)際測(cè)站的數(shù)量方便地進(jìn)行復(fù)制 擴(kuò)展，在一定程度上可謂一勞永逸。 對(duì)多次沉降觀測(cè)數(shù)據(jù)的處理 VBA 在多次沉降數(shù)據(jù)處理上的應(yīng)用 VBA 的簡(jiǎn)單介紹 ： VBA 更確切地講 ， 它是一種自動(dòng)化語(yǔ)言 ,它可以使常用的程序自動(dòng)化 ， 可以創(chuàng)建自定義的解決方案 。 此外 ， 如果你愿意 ， 還可以將 Excel 用做開發(fā)平臺(tái)實(shí)現(xiàn)應(yīng)用程序 。 (1)VBA 可以實(shí)現(xiàn)的功能包括 ： 。 2. 自定義 Excel 工具欄 ,菜單和界面 。 用 。 Excel,使其成為開發(fā)平臺(tái) 。 5. 創(chuàng)建報(bào)表 。 析 。 (2)用 Excel 作為開發(fā)平臺(tái)有如下原因 ： 1. Excel 本身功能強(qiáng)大 ,包括打印 ,文件處理 ,格式化和文本編輯 。 2. Excel 內(nèi)置大量函畢業(yè)論文 共 31 頁(yè)，第 16 頁(yè) 數(shù) 。 3. Excel 界面熟悉 。 4. 可連接到多種數(shù)據(jù)庫(kù) 。 用其他語(yǔ)言開發(fā)應(yīng)用程序 ， 一半的工作是編寫一些基本功能的模塊 ， 包括文件的打開和保存 ， 打印 ， 復(fù)制等 。 而用 Excel 作為開發(fā)平臺(tái) ,則由于 Excel 已經(jīng)具備這些基本功能 ， 你要做的只是使用它 。 (3)錄制簡(jiǎn)單的宏 在介紹學(xué)習(xí) VBA 之前，應(yīng)該花幾分鐘錄制一個(gè)宏。 新術(shù)語(yǔ)：“宏” ， 指一系列 Excel 能夠執(zhí)行的 VBA 語(yǔ)句。 以下將要錄制的宏非常簡(jiǎn)單，只是改變單元格顏色。請(qǐng)完成如下步驟： 1)打開新工作簿，確認(rèn)其他工作簿已經(jīng)關(guān)閉。 2)選擇 A1 單元格。調(diào)出“常用”工具欄。 3)選擇“工具” — “宏” — “錄制新宏” 。 4)輸入“改變顏色”作為宏名替換默認(rèn)宏名，單擊確定 ,注意，此時(shí)狀態(tài)欄中顯示“錄制”，特別是“停止錄制”工具欄也顯 示出來(lái)。替換默認(rèn)宏名主要是便于分別這些宏。 宏名最多可為 255 個(gè)字符，并且必須以字母開始。其中可用的字符包括：字母、數(shù)字和下劃線。宏名中不允許 出現(xiàn)空格。通常用下劃線代表空格。 5)選擇“格式”的“單元格” ， 選擇“圖案”選項(xiàng)中的紅色 ,單擊“確定” 。 6)單擊“停止錄制”工具欄按鈕，結(jié)束宏錄制過程。 如果“停止錄制”工具欄開始并未出現(xiàn)，請(qǐng)選擇“工具” — “宏” — “停止錄制” 。 錄制完一個(gè)宏后就可以執(zhí)行它了。 (4)執(zhí)行宏 當(dāng)執(zhí)行一個(gè)宏時(shí)， Excel 按照宏語(yǔ)句執(zhí)行的情況就像 VBA 代碼在對(duì) Excel 進(jìn)行“遙控” 。 但 VBA 的“遙控”不僅能 使操作變得簡(jiǎn)便，還能使你獲得一些使用 Excel 標(biāo)準(zhǔn)命令所無(wú)法實(shí)現(xiàn)的功能。而且，一旦熟悉了 Excel 的“遙控” ， 你都會(huì)奇怪自己在沒有這些“遙控”的情況下，到底是怎么熬過來(lái)的。要執(zhí)行剛才錄制的宏，可以按以下步驟進(jìn)行： 1）選擇任何一個(gè)單元格，比如 A3。 2）選擇“工具” — “宏” — “宏” ， 顯示“宏”對(duì)話框。 3）選擇“改變顏色” ， 選擇“執(zhí)行” ， 則 A3 單元格的顏色變?yōu)榧t色。試著選擇其它單元格和幾個(gè)單元格組成的區(qū)域， 然后再執(zhí)行宏，以便加深印象。 查看錄制的代碼 到底是什么在控制 Excel 的運(yùn)行呢 ？ 你可能有些疑惑 ， 好 ， 讓我們看看 VBA 的語(yǔ)句吧 . 畢業(yè)論文 共 31 頁(yè)，第 17 頁(yè) 1）選擇“工具” — “宏” — “宏” ， 顯示 “宏”對(duì)話框。 2）單擊列表中的“改變顏色” ， 選擇“編輯”按鈕。 此時(shí)，會(huì)打開 VBA 的編輯器窗口（ VBE） 。關(guān)于該編輯器， 以后再詳細(xì)說明，先將注意力集中到顯示的代碼上。代碼如下： （日期和姓名會(huì)有不同） Sub 改變顏色 () 39。 39。 改變顏色 Macro 39。 xw 記錄的宏 2020610 39。 With .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 將來(lái)會(huì)十分熟悉這種代碼，雖然現(xiàn)在它們看上去像一種奇怪的外語(yǔ)。學(xué)習(xí) VBA 或編程語(yǔ)言在某種程度上比較像在學(xué)習(xí)一種外語(yǔ)。 Sub 改變顏色 ():這是宏的名稱。 中間的以“ 39。”開頭的五行稱為“注釋” ， 它在錄制宏時(shí)自動(dòng)產(chǎn)生。 以 With 開頭到 End With 結(jié)束的結(jié)構(gòu)是 With 結(jié)構(gòu)語(yǔ)句，這段語(yǔ)句是宏的主要部分。注意單詞“ selection” ， 它代表“突出顯示的區(qū)域”（即：選定區(qū)域） 。 With ：它讀作“選擇區(qū)域的的內(nèi)部” ， 這整段語(yǔ)句設(shè)置該區(qū)域內(nèi)部的一些 “ 屬性”。 其中： .ColorIndex = 3: 將該內(nèi)部設(shè)為紅色。注意：有一小圓點(diǎn)，它的作用在于簡(jiǎn)化語(yǔ)句，小圓點(diǎn)代替出現(xiàn)在 With 后的詞 ， 它是 With 結(jié)構(gòu)的一部分。另外：紅色被數(shù)字化為 3，有興趣的話，你將 3 改為其他數(shù)字試試看。 Pattern = xlSolid：設(shè)置該區(qū)域的內(nèi)部圖案。由于是錄制宏，所以，雖然你并未設(shè)置這一項(xiàng)，宏仍然將其記錄下來(lái) (因?yàn)? 在“圖案”選項(xiàng)中有此一項(xiàng)，只是你為曾設(shè)置而已）。xlSolid 表示純色。 PatternCo