[道路,工程,技術(shù)]淺談基于Excel的道路工程計算技術(shù)

1、淺談基于Excel的道路工程計算技術(shù)道路工程的施工現(xiàn)場數(shù)據(jù)（施工放樣、數(shù)量計算等）采用手工計算（各種計算器）具有直觀 好理解的有點，缺點是易出錯、效率低。用傳統(tǒng)的編程方法（VB、VC等）優(yōu)點是計算準確、效 率高，缺點是需要編制專用的程序，需要專業(yè)人員有很好的編程能力，使用者需要一定的培 訓。基于此，引入Excel進行相應(yīng)計算，數(shù)據(jù)的輸入輸出（均在Excel界面）變得十分直觀、 高效，計算過程可以采用插入函數(shù)計算等，在廣大工程人員中有了廣泛應(yīng)用;但是，仔細分析 尚有如下不足：數(shù)據(jù)的輸入、輸出在一個界而，操作時宜相互干擾，宜造成原始數(shù)據(jù)易改動，數(shù)據(jù)量 大時，操作界面數(shù)據(jù)類型多、混亂；對自定義函數(shù)應(yīng)

2、用較少，所定義的公式過于簡單、缺乏可維護性；因為缺乏對高級函數(shù)的應(yīng)用，數(shù)據(jù)引用處于較低水平，方法不易分工協(xié)作；認為VBA就是編程，多數(shù)人退避三舍，造成批量數(shù)據(jù)計算手工操作過多，效率低、強 度高。下面以常見的已知導(dǎo)線點坐標、已知中樁坐標，按指定導(dǎo)線點為測站和后視點計算極坐 標放樣數(shù)據(jù)的excel過程來展示基于數(shù)據(jù)管理、檢索、批量數(shù)據(jù)處理系統(tǒng)過程、高級函數(shù)、 自定義函數(shù)和VBA程序。1界而設(shè)計導(dǎo)線點表單、中樁坐標表單向總控界而表單提供數(shù)據(jù)檢索和關(guān)聯(lián)的原始數(shù)據(jù)，總控界而 計算單個放樣數(shù)據(jù)、同時可以批量計算數(shù)據(jù)填寫于批量計算表單?？偪亟缑婵梢宰詣訖z索導(dǎo)線點表單導(dǎo)線點個數(shù)、中樁坐標表單中樁個數(shù)，測站、后

3、視點、 開始樁號、結(jié)束樁號、單個中樁（樁號）均采用下拉列表選擇，相應(yīng)的坐標（X,Y）自動檢索后填 充于表格，這樣可以防止數(shù)據(jù)出錯、同時方便數(shù)據(jù)分類管理。2關(guān)鍵技術(shù)以下主要討論：單個數(shù)據(jù)防止出錯，需要檢索;批量數(shù)據(jù)處理需要VBA對單元格調(diào)用。2.1高級內(nèi)置函數(shù)應(yīng)用：數(shù)據(jù)管理、數(shù)據(jù)聯(lián)動檢索使用2. 1. 1 VLOOKUP 函數(shù)本文基于。ffice 2013版本寫作（其他版本的office可供參考）。該函數(shù)的主要功能： 按著查找目標把其他表單對應(yīng)值返回當前單元格把具有相同查找目標的值從其他表單返回當 前表單指定位置。主控界面（B9即第2列第9行）下拉列表找到單個中樁的樁號（K115+500）, 則

4、后而兩列（C9、D9）中通過該函數(shù)自動檢索到中樁坐標表單對應(yīng)的X、Y值（4038008. 989、531541.360）oVL00KUP函數(shù)的調(diào)用格式VL00KUP 函數(shù)的調(diào)用基本格式為： VLOOKUP（lookup_value, table_array, col_index_num, range_lookup）。VLOOKUP函數(shù)的進一步說明，VLOOKUP （查找目標，查找范圍，返回值的列數(shù)，精確0R模糊查找）：查找目標:VLOOKUP （B10,中樁坐標！ SA$2: $CS999999, 2, FALSE）中的第一個參數(shù)B10, 即中樁樁號,當前為ZK115+500。查找范圍：VLO

5、OKUP （B10,中樁坐標！ $A $2: $C$999999, 2, FALSE）中的第二個參數(shù)中 樁坐標！ $A$2:3C$999999,即 中樁坐標表單的AC列1-999999行的區(qū)域，999999是區(qū)域 的行數(shù)，可以根據(jù)需要進行相應(yīng)變化。需要特別注意的是：查找目標（樁號列）一定要在該區(qū)域的第一列；該區(qū)域中一定要包含 要返回值所在的列，本例中要返回的值是X。返回值的列數(shù):VLOOKUP（B10,中樁坐標! $A$2:$C$999999,2,FALSE）中的第3個參數(shù)2, 它是一個整數(shù)值。它是返回值在第二個參數(shù)給定的區(qū)域中的列數(shù)。本例中我們要返回的是X,它是第二個參數(shù)查找范圍中樁坐標！

6、$AS2:$C$999999的第2 列。這里一定要注意，列數(shù)不是在工作表中的列數(shù)，而是在查找范圍區(qū)域的第幾列。精確0R模糊查找：VLOOKUP（B10,中樁坐標! $A$2:$C$999999, 2, FALSE）中最后一個參 數(shù)FALSE,是決定函數(shù)精確和模糊查找的關(guān)鍵。精確即完全一樣，模糊即包含的意思。第4個 參數(shù)如果指定值是0或FALSE就表示精確查找，而值為1或TRUE時則表示模糊。2.1.2 excel單元格下拉列表的建立excel單元格卜-拉列表的建立流程（以excel2013為例）：數(shù)據(jù)驗證數(shù)據(jù)驗證設(shè)置序列來源選定所需表單對應(yīng)的列。以設(shè)置導(dǎo)線點的測站為例（后視點、開始樁號、結(jié)束樁

7、號、單個中樁也需要類似設(shè)置）， 需要選擇導(dǎo)線點表單的第一列數(shù)據(jù)。2.2自定義函數(shù)：數(shù)據(jù)格式、方位角計算函數(shù)統(tǒng)一的全局常量定義，所有模塊均用到此 常量，這樣其他模塊均可以用到常量Pi的值。原代碼如下：Public Const pi=3. 14159262. 2.1數(shù)據(jù)格式函數(shù)radtodms(rad)函數(shù)功能：把弧度轉(zhuǎn)變?yōu)槎确置?，度、分均為整?shù)，秒為保留一位小數(shù)的 數(shù)值。rad為參數(shù),radtodms為函數(shù)，源代碼如下：Function radtodms(rad)degree=rad * 180 / pid=Int(degree)f=Int (degree - d) * 60)s=Int(deg

8、ree - d - f / 60) * 3600) * 10) / 10radtodms=Str$(d) + + LTrim(Str$(f) + +LTrim(StrS(s) +End Function2. 2.2方位角計算函數(shù)fwj (dx, dy)函數(shù)，dx、dy分別為某點相對于測站的X、Y的坐標增量;fwj為對應(yīng)于 dx、dy的方位角，方位角計算結(jié)果單位為弧度。dx=0時，需要單獨討論。Function fwj(dx, dy)If dx=0 ThenIf dy=0 Then fwj二出錯！If dy 0 Then fwj=pi / 2If dy 0 Then fwj=pi *3/2Els

9、exxj=Atn(Abs(dy / dx)If dx=0 And dy 0 Then fwj=xxjIf dx=0 And dy 0 Then fwj=pi - xxjIf dx=0 And dy 0 Then fwj=pi + xxjIf dx=O And dy 0 Then fwj=2 * pi - xxjEnd IfEnd Function2. 2.3夾角計算當放樣采用極坐標夾角方式時，后視方向的坐標增量為dtx, dty,中樁方向的坐標增量 為dx, dy, jiajiao為計算結(jié)果，是中樁方向方位角與后視方向方位角的差。Function jiajiao(dx, dy, dtx, dt

10、y)計算后視方向hs=fwj (dtx, dty)計算單個中樁夾角jiajiao=fwj (dx, dy) - hsIf jiajiao 0 Then jiajiao二jiajiao + 2 * piIf jiajiao 2 * pi Then jiajiao=jiajiao - 2 * piEnd Function2.3 VBA程序開發(fā)批量計算數(shù)據(jù)計算后視方位角，確定計算范圍，表頭填寫，逐樁方位角計算、距離計算、夾角計算， 數(shù)據(jù)回填表格。核心技術(shù)是表格的引用。以源代碼中的第五行為例，Worksheets(主控界面).Cells(4, 3)其他的引用可以參照此。既可以從單元格提取信息(一般提取信息為文本，必要時需要通過 VAL函數(shù)轉(zhuǎn)變?yōu)閿?shù)值才能參加計算)也可以單元格寫入信息。源代碼略。3運行過程運行總體步驟如下：第一步：輸入原始數(shù)據(jù)表單并校核；第二步：利用下拉列表選擇測站點編號、后視點編號、單個中樁樁號，此時excel自動計算該中樁對應(yīng)的極坐標放樣數(shù)據(jù)方位角和距離等;第三步：選定開始樁號、結(jié)束樁號，批量計算放樣數(shù)據(jù)按鈕。4結(jié)