Excel電子表格弧度與度轉(zhuǎn)換vba程序代碼_百度文庫

1、Excel電子表格弧度與度轉(zhuǎn)換vba程序代碼時間:2010-12-15 15:30:35   來源:  作者:  我要投稿  我要收藏  投稿指南Public Function Dms(ByVal radian As Double As Double 'hu度-角度'Dim A As Double, B As Double, C As Double, D As Double, e As DoubleDim ang As Double, sign As Integerang = A

2、bs(radian + 0.00000000000001: sign = Sgn(radian: A = ang * M_DEGB = Int(A: C = (A - B * 60: D = Int(C: e = (C - D * 60Dms = sign * (B + D / 100# + e / 10000#End FunctionExcel函數(shù)公式應(yīng)用基礎(chǔ)時間:2010-01-27 10:31:38   來源:本站  作者:xdw_815101  我要投稿  我要收藏  投稿指南一、函數(shù)應(yīng)

3、用基礎(chǔ)1.函數(shù)和公式(1什么是函數(shù)Excel函數(shù)即是預先定義，執(zhí)行計算、分析等處理數(shù)據(jù)任務(wù)的特殊公式。以常用的求和函數(shù)SUM為例，它的語法是“SUM(number1,number2,.”。其中“SUM”稱為函數(shù)名稱，一個函數(shù)只有唯一的一個名稱，它決定了函數(shù)的功能和用途。函數(shù)名稱后緊跟左括號，接著是用逗號分隔的稱為參數(shù)的內(nèi)容，最后用一個右括號表示函數(shù)結(jié)束。參數(shù)是函數(shù)中最復雜的組成部分，它規(guī)定了函數(shù)的運算對象、順序或結(jié)構(gòu)等。使得用戶可以對某個單元格或區(qū)域進行處理，如分析存款利息、確定成績名次、計算三角函數(shù)值等。按照函數(shù)的來源，Excel函數(shù)可以分為內(nèi)置函數(shù)和擴展函數(shù)兩大類。前者只要啟動了Excel

4、，用戶就可以使用它們；而后者必須通過單擊“工具加載宏”菜單命令加載，然后才能像內(nèi)置函數(shù)那樣使用。(2什么是公式函數(shù)與公式既有區(qū)別又互相聯(lián)系。如果說前者是Excel預先定義好的特殊公式，后者就是由用戶自行設(shè)計對工作表進行計算和處理的公式。以公式“=SUM(E1:H1*A1+26”為例，它要以等號“=”開始，其內(nèi)部可以包括函數(shù)、引用、運算符和常量。上式中的“SUM(E1:H1”是函數(shù)，“A1”則是對單元格A1的引用(使用其中存儲的數(shù)據(jù)，“26”則是常量，“*”和“+”則是算術(shù)運算符(另外還有比較運算符、文本運算符和引用運算符。如果函數(shù)要以公式的形式出現(xiàn)，它必須有兩個組成部分，一個是函數(shù)名稱前面的等

5、號，另一個則是函數(shù)本身。2.函數(shù)的參數(shù)函數(shù)右邊括號中的部分稱為參數(shù)，假如一個函數(shù)可以使用多個參數(shù)，那么參數(shù)與參數(shù)之間使用半角逗號進行分隔。參數(shù)可以是常量(數(shù)字和文本、邏輯值(例如TRUE或FALSE、數(shù)組、錯誤值(例如#N/A或單元格引用(例如E1:H1，甚至可以是另一個或幾個函數(shù)等。參數(shù)的類型和位置必須滿足函數(shù)語法的要求，否則將返回錯誤信息。(1常量常量是直接輸入到單元格或公式中的數(shù)字或文本，或由名稱所代表的數(shù)字或文本值，例如數(shù)字“2890.56”、日期“2003-8-19”和文本“黎明”都是常量。但是公式或由公式計算出的結(jié)果都不是常量，因為只要公式的參數(shù)發(fā)生了變化，它自身或計算出來的結(jié)果就

6、會發(fā)生變化。(2邏輯值邏輯值是比較特殊的一類參數(shù)，它只有TRUE(真或FALSE(假兩種類型。例如在公式“=IF(A3=0,"",A2/A3”中，“A3=0”就是一個可以返回TRUE(真或FALSE(假兩種結(jié)果的參數(shù)。當“A3=0”為TRUE(真時在公式所在單元格中填入“0”，否則在單元格中填入“A2/A3”的計算結(jié)果。(3數(shù)組數(shù)組用于可產(chǎn)生多個結(jié)果，或可以對存放在行和列中的一組參數(shù)進行計算的公式。Excel中有常量和區(qū)域兩類數(shù)組。前者放在“”(按下Ctrl+Shift+Enter組合鍵自動生成內(nèi)部，而且內(nèi)部各列的數(shù)值要用逗號“,”隔開，各行的數(shù)值要用分號“;”隔開。假如你

7、要表示第1行中的56、78、89和第2行中的90、76、80，就應(yīng)該建立一個2行3列的常量數(shù)組“56,78,89;90,76,80。區(qū)域數(shù)組是一個矩形的單元格區(qū)域，該區(qū)域中的單元格共用一個公式。例如公式“=TREND(B1:B3,A1:A3”作為數(shù)組公式使用時，它所引用的矩形單元格區(qū)域“B1:B3,A1:A3”就是一個區(qū)域數(shù)組。(4錯誤值使用錯誤值作為參數(shù)的主要是信息函數(shù)，例如“ERROR.TYPE”函數(shù)就是以錯誤值作為參數(shù)。它的語法為“ERROR.TYPE(error_val”，如果其中的參數(shù)是#NUM!，則返回數(shù)值“6”。(5單元格引用單元格引用是函數(shù)中最常見的參數(shù)，引用的目的在于標識工作

8、表單元格或單元格區(qū)域，并指明公式或函數(shù)所使用的數(shù)據(jù)的位置，便于它們使用工作表各處的數(shù)據(jù)，或者在多個函數(shù)中使用同一個單元格的數(shù)據(jù)。還可以引用同一工作簿不同工作表的單元格，甚至引用其他工作簿中的數(shù)據(jù)。根據(jù)公式所在單元格的位置發(fā)生變化時，單元格引用的變化情況，我們可以引用分為相對引用、絕對引用和混合引用三種類型。以存放在F2單元格中的公式“=SUM(A2:E2”為例，當公式由F2單元格復制到F3單元格以后，公式中的引用也會變化為“=SUM(A3:E3”。若公式自F列向下繼續(xù)復制，“行標”每增加1行，公式中的行標也自動加1。如果上述公式改為“=SUM($A $3:$E 3”，則無論公式復制到何處，其引

9、用的位置始終是“A3:E3”區(qū)域?；旌弦糜小敖^對列和相對行”，或是“絕對行和相對列”兩種形式。前者如“=SUM($A3:$E3”，后者如“=SUM(A$3:E$3”。上面的幾個實例引用的都是同一工作表中的數(shù)據(jù)，如果要分析同一工作簿中多張工作表上的數(shù)據(jù)，就要使用三維引用。假如公式放在工作表Sheet1的C6單元格，要引用工作表Sheet2的“A1:A6”和Sheet3的“B2:B9”區(qū)域進行求和運算，則公式中的引用形式為“=SUM(Sheet2!A1:A6,Sheet3!B2:B9”。也就是說三維引用中不僅包含單元格或區(qū)域引用，還要在前面加上帶“!”的工作表名稱。假如你要引用的數(shù)據(jù)來自另一個工

10、作簿，如工作簿Book1中的SUM函數(shù)要絕對引用工作簿Book2中的數(shù)據(jù)，其公式為“=SUM(Book2Sheet1! SA S1: SA S8,Book2Sheet2! SB S1: SB S9”，也就是在原來單元格引用的前面加上“Book2Sheet1!”。放在中括號里面的是工作簿名稱，帶“!”的則是其中的工作表名稱。即是跨工作簿引用單元格或區(qū)域時，引用對象的前面必須用“!”作為工作表分隔符，再用中括號作為工作簿分隔符。不過三維引用的要受到較多的限制，例如不能使用數(shù)組公式等。提示：上面介紹的是Excel默認的引用方式，稱為“A1引用樣式”。如果你要計算處在“宏”內(nèi)的行和列，必須使用“R1C

11、1引用樣式”。在這種引用樣式中，Excel使用“R”加“行標”和“C”加“列標”的方法指示單元格位置。啟用或關(guān)閉R1C1引用樣式必須單擊“工具選項”菜單命令，打開對話框的“常規(guī)”選項卡，選中或清除“設(shè)置”下的“R1C1引用樣式”選項。由于這種引用樣式很少使用，限于篇幅本文不做進一步介紹。(6嵌套函數(shù)除了上面介紹的情況外，函數(shù)也可以是嵌套的，即一個函數(shù)是另一個函數(shù)的參數(shù)，例如“=IF(OR(RIGHTB(E2,1="1"，RIGHTB(E2,1="3"，RIGHTB(E2,1="5"，RIGHTB(E2,1="7"，

12、RIGHTB(E2,1="9","男","女"”。其中公式中的IF函數(shù)使用了嵌套的RIGHTB函數(shù)，并將后者返回的結(jié)果作為IF的邏輯判斷依據(jù)。(7名稱和標志為了更加直觀地標識單元格或單元格區(qū)域，我們可以給它們賦予一個名稱，從而在公式或函數(shù)中直接引用。例如“B2:B46”區(qū)域存放著學生的物理成績，求解平均分的公式一般是“=AVERAGE(B2:B46”。在給B2:B46區(qū)域命名為“物理分數(shù)”以后，該公式就可以變?yōu)椤?AVERAGE(物理分數(shù)”，從而使公式變得更加直觀。給一個單元格或區(qū)域命名的方法是：選中要命名的單元格或單元格區(qū)域，鼠標單

13、擊編輯欄頂端的“名稱框”，在其中輸入名稱后回車。也可以選中要命名的單元格或單元格區(qū)域，單擊“插入名稱定義”菜單命令，在打開的“定義名稱”對話框中輸入名稱后確定即可。如果你要刪除已經(jīng)命名的區(qū)域，可以按相同方法打開“定義名稱”對話框，選中你要刪除的名稱刪除即可。由于Excel工作表多數(shù)帶有“列標志”。例如一張成績統(tǒng)計表的首行通常帶有“序號”、“姓名”、“數(shù)學”、“物理”等“列標志”(也可以稱為字段，如果單擊“工具選項”菜單命令，在打開的對話框中單擊“重新計算”選項卡，選中“工作簿選項”選項組中的“接受公式標志”選項，公式就可以直接引用“列標志”了。例如“B2:B46”區(qū)域存放著學生的物理成績，而B

14、1單元格已經(jīng)輸入了“物理”字樣，則求物理平均分的公式可以寫成“=AVERAGE(物理”。需要特別說明的是，創(chuàng)建好的名稱可以被所有工作表引用，而且引用時不需要在名稱前面添加工作表名(這就是使用名稱的主要優(yōu)點，因此名稱引用實際上是一種絕對引用。但是公式引用“列標志”時的限制較多，它只能在當前數(shù)據(jù)列的下方引用，不能跨越工作表引用，但是引用“列標志”的公式在一定條件下可以復制。從本質(zhì)上講，名稱和標志都是單元格引用的一種方式。因為它們不是文本，使用時名稱和標志都不能添加引號。3.函數(shù)輸入方法對Excel公式而言，函數(shù)是其中的主要組成部分，因此公式輸入可以歸結(jié)為函數(shù)輸入的問題。(1“插入函數(shù)”對話框“插入

15、函數(shù)”對話框是Excel輸入公式的重要工具，以公式“=SUM(Sheet2!A1:A6,Sheet3!B2:B9”為例，Excel輸入該公式的具體過程是：首先選中存放計算結(jié)果(即需要應(yīng)用公式的單元格，單擊編輯欄(或工具欄中的“fx”按鈕，則表示公式開始的“=”出現(xiàn)在單元格和編輯欄，然后在打開的“插入函數(shù)”對話框中的“選擇函數(shù)”列表找到“SUM”函數(shù)。如果你需要的函數(shù)不在里面，可以打開“或選擇類別”下拉列表進行選擇。最后單擊“確定”按鈕，打開“函數(shù)參數(shù)”對話框。對SUM函數(shù)而言，它可以使用從number1開始直到number30共30個參數(shù)。對上面的公式來說，首先應(yīng)當把光標放在對話框的“numb

16、er1”框中，單擊工作簿中的“Sheet2!”工作表標簽，“Sheet2!”即可自動進入其中，接著鼠標拖動選中你要引用的區(qū)域即可。接著用鼠標單擊對話框的“number2”框，單擊工作簿中的“Sheet3!”工作表標簽，其名稱“Sheet3!”即可自動進入其中，再按相同方法選擇要引用的單元格區(qū)域即可。上述方法的最大優(yōu)點就是引用的區(qū)域很準確，特別是三維引用時不容易發(fā)生工作表或工作簿名稱輸入錯誤的問題。(2編輯欄輸入如果你要套用某個現(xiàn)成公式，或者輸入一些嵌套關(guān)系復雜的公式，利用編輯欄輸入更加快捷。首先選中存放計算結(jié)果的單元格；鼠標單擊Excel編輯欄，按照公式的組成順序依次輸入各個部分，公式輸入完畢

17、后，單擊編輯欄中的“輸入”(即“”按鈕(或回車即可。手工輸入時同樣可以采取上面介紹的方法引用區(qū)域，以公式“=SUM(Sheet2!A1:A6,Sheet3!B2:B9”為例，你可以先在編輯欄中輸入“=SUM(”，然后將光標插入括號中間，再按上面介紹的方法操作就可以引用輸入公式了。但是分隔引用之間的逗號必須用手工輸入，而不能像“插入函數(shù)”對話框那樣自動添加。在電腦報2003年合訂本附贈光盤相應(yīng)文章中，我們列出了所有Excel 2003函數(shù)，供讀者速查。二、函數(shù)速查一覽(一數(shù)據(jù)庫函數(shù)1.DAVERAGE用途：返回數(shù)據(jù)庫或數(shù)據(jù)清單中滿足指定條件的列中數(shù)值的平均值。語法：DAVERAGE(databa

18、se，field，criteria參數(shù)：Database構(gòu)成列表或數(shù)據(jù)庫的單元格區(qū)域。Field指定函數(shù)所使用的數(shù)據(jù)列。Criteria為一組包含給定條件的單元格區(qū)域。2.DCOUNT用途：返回數(shù)據(jù)庫或數(shù)據(jù)清單的指定字段中，滿足給定條件并且包含數(shù)字的單元格數(shù)目。語法：DCOUNT(database，field，criteria參數(shù)：Database構(gòu)成列表或數(shù)據(jù)庫的單元格區(qū)域。Field指定函數(shù)所使用的數(shù)據(jù)列。Criteria為一組包含給定條件的單元格區(qū)域。3.DCOUNTA用途：返回數(shù)據(jù)庫或數(shù)據(jù)清單指定字段中滿足給定條件的非空單元格數(shù)目。語法：DCOUNTA(database，field，c

19、riteria參數(shù)：Database構(gòu)成列表或數(shù)據(jù)庫的單元格區(qū)域。Field指定函數(shù)所使用的數(shù)據(jù)列。Criteria為一組包含給定條件的單元格區(qū)域。4.DGET用途：從數(shù)據(jù)清單或數(shù)據(jù)庫中提取符合指定條件的單個值。語法：DGET(database，field，criteria參數(shù)：Database構(gòu)成列表或數(shù)據(jù)庫的單元格區(qū)域。Field指定函數(shù)所使用的數(shù)據(jù)列。Criteria為一組包含給定條件的單元格區(qū)域。5.DMAX用途：返回數(shù)據(jù)清單或數(shù)據(jù)庫的指定列中，滿足給定條件單元格中的最大數(shù)值。語法：DMAX(database，field，criteria參數(shù)：Database構(gòu)成列表或數(shù)據(jù)庫的單元格區(qū)

20、域。Field指定函數(shù)所使用的數(shù)據(jù)列。Criteria為一組包含給定條件的單元格區(qū)域貫通測量（break through survey）是坑道施工中和貫通后的測量。前者是為確保掘進的坑道（或豎井）能按設(shè)計準確貫通而進行的，一般包括：地面聯(lián)測、地下導線測量和坑道掘進測量、放樣掘進方向和坡度，并常檢查其正確性；后者是在隧道貫通后，測定實際的橫向、縱向和豎向貫通誤差。目的是為獲取實際的貫通誤差值，作為下一步調(diào)整施工中線的依據(jù)，以獲得一條調(diào)整后的隧道中線，作為擴大斷面、襯砌以及在鐵路隧道中鋪設(shè)鐵軌的依據(jù)。貫通測量包括平面貫通測量和高程貫通測量。前者是測定實際的橫向和縱向貫通誤差，測量方法隨洞內(nèi)控制的形

21、式而異：對于采用中線法施工的隧道貫通之后，應(yīng)從相向測量的兩個方向各自向貫通面延伸中線，并各釘一臨時樁，量取兩樁之間的距離，即得隧道的實際橫向貫通誤差，兩臨時樁的里程之差即為隧道的實際縱向貫通誤差；采用單導線作為洞內(nèi)控制時，貫通之后在貫通面上釘一臨時樁，從相向測量的兩個方向各自向臨時樁進行支導線測量，分別測取臨時樁點的平面坐標，將兩組坐標的差值分別投影到貫通面上和隧道中線上，則貫通面上的投影即為橫向貫通誤差，在中線上的投影即為縱向貫通誤差。其他類型的控制圖形可據(jù)實際情況設(shè)計適合的方法。高程貫通測量是測定實際的豎向貫通誤差，通常采用水準測量方法，從隧道兩端洞口附近的水準點開始，各自向洞內(nèi)進行，分別

22、測出貫通面上同一點的高程，即獲此點的兩個高程之差。某大橋測量實施方案時間:2010-07-16 14:20:05   來源:本站  作者:jirong  我要投稿  我要收藏  投稿指南×××大橋測量實施方案一、工程概況×××K24+580×××大橋位于××縣××鎮(zhèn)××村境內(nèi)，大橋橫跨“V”型谷地，交角約45°，于K24+460處，大橋跨

23、越谷地沖溝底部，為旱橋。全橋平面位于R=800m右偏圓曲線、A=374.166m右偏緩和曲線、A=374.166m左偏緩和曲線及R=800m左偏圓曲線、A=374.166 左偏緩和曲線段上；縱面位于R=13000m凹曲線、直線、R=25000m凸曲線上，橋長940.68m；×××大橋6#11#墩身設(shè)計為空心薄壁墩，均為跨越“V”字型溝壑所設(shè)，共計12個空心薄壁高墩，最高墩為K24+580×××大橋9#墩右幅空心薄壁墩高為73.5米，其余墩高均在41m72m之間。二、測量作業(yè)依據(jù)1、工程測量規(guī)范(GB50026-20072、×

24、×省××至××高速公路第1合同段兩階段施工圖設(shè)計第三冊；3、交通部頒發(fā)的現(xiàn)行有關(guān)施工技術(shù)規(guī)范和驗收標準。三、施工測量技術(shù)方案施工測量是標定和檢查施工中線、測設(shè)坡度和放樣建筑物，測量是施工的導向，是確保工程質(zhì)量的前提和基礎(chǔ)。×××施工測量的施測環(huán)境和條件復雜，特別是6#11#的高墩，要求的施測精度又相當高，必須精心施測和進行成果整理，工程測量成果必須符合相關(guān)規(guī)范的要求。3.1 控制網(wǎng)的確定橋梁支座誤差為5mm，梁長制造限差1/5000，為固定支座安裝限差，單跨中誤差為，橋軸線長度中誤差為。橋軸線中誤差為：，全橋架設(shè)相

25、對中誤差為：，控制網(wǎng)在橋軸線上的邊長相對中誤差不應(yīng)低于。以此為參考，以工程測量規(guī)范(GB50026-2007為依據(jù)，把平面控制網(wǎng)定為四等導線。對于高程控制網(wǎng)，由于×××大橋的地形條件復雜，很不利有普通水準測量的實施。由于三角高程測量可以滿足四等水準的要求，而且實施方便簡單，故采用四等三角高程測量代替普通水準測量。3.2 測量作業(yè)技術(shù)要求四等平面和四等三角高程控制測量的的技術(shù)要求如表3.2-1和3.2-2表3.2-1四等導線測量技術(shù)要求等級測角中誤差測距中誤差測距相對中誤差測回數(shù)方位角閉合差導線全長相對閉合差mm1級儀器2級儀器四等2.5181/80000461/3

26、5000n為測站數(shù)表3.2-2 電磁波測距三角高程觀測的主要技術(shù)要求等級垂直角觀測邊長測量儀器精度等級測回數(shù)指標差較差（）測回較差（）儀器精度等級觀測次數(shù)四等2級儀器37710mm級儀器往返各一次注：當采用2級光學經(jīng)緯儀進行垂直角觀測時，應(yīng)根據(jù)儀器的垂直角檢測精度，適當增加測回數(shù)測量時，采用topkonGTS-102N全站儀，該儀器的測距精度為±（2mm+2ppm×D）,其中D為距離觀測值；其測角精度為2。根據(jù)測量技術(shù)要求和該儀器參數(shù)，確定水平角觀測6測回，垂直角觀測4測回，距離觀測3測回。觀測技術(shù)要求如表3.2-3和表3.2-4表3.2-3水平角方向觀測法的技術(shù)要求等級儀

27、器精度等級半測回歸零差 （）一測回2C互差（）同一方向值各測回較差（）四等2級儀器696表3.2-4 測距的主要技術(shù)要求平面控制網(wǎng)等級儀器精度等級每邊測回數(shù)一測回讀數(shù)較差（mm）單程各測回間較差（mm）往返測距較差（mm）往返四等5mm級儀器22572（a+b×D）5mm級儀器331015注：1測回是指照準目標一次，讀數(shù)2-4次的過程3.3 導線布設(shè)以設(shè)計院的I44和I45點為起始邊，布設(shè)一個閉合導線網(wǎng)。在沿×××大橋線路方向，布設(shè)點44-0，45-4，45-3，45-3，45-1五個加密控制點。相鄰兩加密點之間，通視條件良好，距離相當，圖形條件較好。3

28、.4 內(nèi)業(yè)處理對觀測數(shù)據(jù)進行溫度、地球曲率和投影面改正，然后利用嚴密平差模型對數(shù)據(jù)進行誤差分配。導線嚴密平差計算結(jié)果均符合四等導線規(guī)范；三角高程平差結(jié)果符合四等水準的要求。各結(jié)果見×××大橋控制測量成果報表。3.5 施工放樣施工中的測量控制采用極坐標法進行施測。為了加強放樣點的檢核條件，可用另外兩個已知導線點作起算數(shù)據(jù)，用同樣方法來檢測放樣點正確與否，或利用全站儀的坐標實測功能，用另兩個已知導線點來實測放樣點的坐標，放樣點理論坐標與檢測后的合格后，方可用這些放樣點指導施工。對于6#11#高墩，用全站儀在承臺上放出墩中心及四角點，人工彈墨線放出薄壁墩輪廓線，并在薄壁

29、墩四條外邊外側(cè)20厘米處各布設(shè)3個控制點，用全站儀采用不同的測設(shè)方法測量兩次后確定其位置，作為該薄壁空心墩的永久控制點，作為控制墩身平面位置和豎直度的依據(jù)。如下圖：當墩身小于10米高時，采用吊線錘控制其平面位置和豎直度，當施工高度高于10米時，采用鉛錘儀測量其平面位置和豎直度，并且每20米高利用全站儀檢測一次高度平面位置。對于一般墩柱，采用水準儀對其測量。采用DS3水準儀，進行往返測，閉合差在mm內(nèi)；對于高墩，利用水準儀測量承臺頂實際標高作為薄壁墩高程控制依據(jù)。薄壁墩每20米高，利用全站儀采用多測回法復核一次標高。三、測量精度質(zhì)量保證措施施工放樣前將施工測量方案與意見報告監(jiān)理審批。內(nèi)容包括施測

30、方法、操作規(guī)程、觀測儀器設(shè)備的配置和測量專業(yè)人員的配備等。積極和測量監(jiān)理工程師進行聯(lián)系、溝通和配合，滿足測量監(jiān)理工程師提出的測量技術(shù)要求及意見，并把測量結(jié)果和資料及時上報監(jiān)理，測量監(jiān)理工程師經(jīng)過內(nèi)業(yè)資料復核和外業(yè)實測確定無誤后，方可進行下步工序的施工用于測量的圖紙資料，測量技術(shù)人員必須認真核對，必要時應(yīng)到現(xiàn)場核對，確認無誤無疑后，方可使用。如發(fā)現(xiàn)疑問作好記錄并及時上報，待得到答復后，才能按圖進行測量放樣。外業(yè)前，測量技術(shù)人員對內(nèi)業(yè)資料進行檢查，做到人人明白；外業(yè)中，測量要形成檢核條件，滿足校核條件要求的測量才能成為合格成果，否則返工重測；外業(yè)后，應(yīng)檢查外業(yè)記錄的結(jié)果是否齊全、清晰、正確。固定專

31、用測量儀器和工具設(shè)備，建立專業(yè)測量組，專人觀測和成果整理。用于本工程的測量儀器和設(shè)備，應(yīng)按照規(guī)定的日期、方法送到具有檢定資格的部門檢定和校準，合格后方可投入使用。所用的測量儀器和工具使用前，要檢查是否完好。在運輸和使用測量儀器的過程中，應(yīng)注意保護，如發(fā)現(xiàn)儀器有異常，應(yīng)立即停止使用并送檢，并對上次測量成果重新作出評定。測量過程中，必須消除干擾，需停工的要停工，以保證測量精度。各種建筑物放樣時應(yīng)和施工人員密切配合，避免出現(xiàn)不必要的偏差。加強對測量用控制點的保護，防止移動和損壞，一旦發(fā)生移動和損壞，立即停止使用，并加緊補救。已知線外坐標反算樁號偏距時間:2010-06-16 06:28:24

32、60; 來源:自編  作者:rz85  我要投稿  我要收藏  投稿指南LCGH （里程規(guī)劃） A “ ZH ” :B “ X ” :C “ Y ” :G “ FA ” R:L “ L ” :H “ ZXJ （ + ， - ）” Lbl 5 ： Prog “ FSGH ”： Goto5 FSGH （里程規(guī)劃子程序） U =H ÷ AbsH: H= AbsH: Z2=.5L L3÷24R2:Z3=L2÷24R:S= RH÷ 18+L:T=(R+Z3tan(.5H+Z2

33、: Z1=A+L:X=A+S L: D=A+S Lbl 4:MN:M “ CX ” :N “ CY ” : E=A+.5S Lbl :Y=Abs(E A: Prog “ KL ” : O=-(P Msin(Q+9 (K N cos(Q+9 :AbsO< . 1 E “ DK ” =E E=E+O:Goto W=(P MsinQ (K NcosQ ： W “ ZS= ” :AbsW “ YS= ” :W Goto4KL （里程規(guī)劃子程序） E A V=-Y:W= :Z= :Goto2E Z1 V=Y Y5÷40R2L2: W=Y3÷6RL Y7÷336R3L3

34、: Z=9 Y2÷RL :Goto2E X Z=9 L÷R +180(Y L÷R : V=RsinZ+Z2:W=R(1 cosZ + Z3:Goto2E D P=-(Y S: K= :Z=H:Goto1E X Z=H 9 (S Y2÷RL :P=(S Y (S Y5÷4 R2L2:K=(S Y3÷6RL (S Y7÷336R3L3Lbl 1:V=T+(T PcosH KsinH: W=(T P sinH+KcosH:Goto2 Lbl 2:Fixm:Pol(V,W:Y=G JU:Q=G ZU:P=B+IcosY:K=C+Is

35、inY Excel VBA在工程測量上的應(yīng)用佚名 閱讀：19次 上傳時間：2007-10-16 推薦人： Sai2(已傳資料2104套 筆名：舞夜月光年齡：71專業(yè)：0003等級： 性別：保密積分：169593行業(yè)：0021經(jīng)驗值：1457 注冊時間：2006-12-09最近登陸時間：2008-03-03 08:56所在地區(qū)：- 加為好友給我留言   相關(guān)資料：   沒有相關(guān)內(nèi)容 簡介：Excel是大家很熟悉的辦公軟件，相信大家在工作中經(jīng)常使用吧。在測量工作中，你是否感覺到有很不方便的時候？比如，計算一個角度的三角函數(shù)值，而角度的單位是60進制的，此時，你一定感到

36、很無奈，因為，Excel本身無法直接計算60進制的角度的三角函數(shù)！還有，如果你的工作表中有了點坐標值（二維或者三維），要在CAD中展繪出來，怎樣才能又快又直接？不然，就只有拐彎摸角了，很痛苦??！其實，只要對 Excel進行一些挖掘，就可以發(fā)現(xiàn)Excel的功能我們還沒有好好的利用呢。Excel本身提供了強大的二次開發(fā)功能，只要我們仔細的研究，沒有什么能難倒我們的。下面，好好筆者將帶你走近Excel，認識它的強大的二次開發(fā)環(huán)境VBAIDE，用它來解決上面所提到的問題，就非常容易了。 關(guān)鍵字：Excel，VBA，工程測量  1234Excel是大家很熟悉的辦公軟件，相信大家在工作中經(jīng)常使用

37、吧。在測量工作中，你是否感覺到有很不方便的時候？比如，計算一個角度的三角函數(shù)值，而角度的單位是60進制的，此時，你一定感到很無奈，因為，Excel本身無法直接計算60進制的角度的三角函數(shù)！還有，如果你的工作表中有了點坐標值（二維或者三維），要在CAD中展繪出來，怎樣才能又快又直接？不然，就只有拐彎摸角了，很痛苦??！其實，只要對 Excel進行一些挖掘，就可以發(fā)現(xiàn)Excel的功能我們還沒有好好的利用呢。Excel本身提供了強大的二次開發(fā)功能，只要我們仔細的研究，沒有什么能難倒我們的。下面，好好筆者將帶你走近Excel，認識它的強大的二次開發(fā)環(huán)境VBAIDE，用它來解決上面所提到的問題，就非常容易

38、了。初識VBAIDE，首先，你必須懂得一些簡單的VB編程常識。如果不懂就只有通過其他的途徑去學習了。但用不著深入的研究，只要靜下心來，幾個小時就可以了。打開Excel，按Alt+F11即進入VBAIDE，學過VB的人一看就知道那就是熟悉的VB界面。下面看看如何定義一個函數(shù)，然后利用它來解決60進制的角度的三角函數(shù)計算問題。在菜單上依次點擊插入->模塊，然后輸入如下代碼Public Function DEG(n As DoubleDim A As Double, B As Double, C As Double, D As Double, E As Double, F As Double,

39、 G As Double, KA As DoubleD = Abs(n + 0.000000000000001F = Sgn(nA = Int(DB = Int(D - A * 100C = D - A - B / 100DEG = F * (A + B / 60 + C / 0.36 * pi / 180End Function這樣，就定義了一個名字叫DEG的函數(shù)，它的作用就是轉(zhuǎn)換60進制的角度為Excel認識的弧度。編輯完后按Alt+Q即返回Excel，再在某一單元格輸入=sin(deg(A1(A1既可以是單元格的值,也可以是輸入的角度值,回車，哈哈，怎么樣？結(jié)果出來了吧？你可以用計算器檢

40、驗一下是否正確。如果出現(xiàn)#NAME？那就要設(shè)置一下安全設(shè)置。依次點工具->宏->安全性，在安全級選項卡上選擇“中”或者“低”，然后關(guān)閉后重新打開就可以了，以后只要是60進制的角度，就用它轉(zhuǎn)換，非常方便哦。工程測量中，經(jīng)常碰到導線的計算，如果手頭沒有平差計算程序就只有手工計算了，這時候你曾經(jīng)想過編個小程序來計算？其實，這很簡單，筆者在宛坪（上海至武威）高速公路上做測量監(jiān)理，因為有大量的導線需要復核，故編寫了一個附合導線計算程序，代碼很簡單，但很實用。下面是該程序的代碼：Sub附合導線計算(Dim m As Integer, n As Integer, ms As Double, gg

41、 As Double, sht As Object, xx As Double, yy As Double, S As DoubleSet sht = ThisWorkbook.ActiveSheetDo While sht.Cells(m + 3, 4 <> ""m = m + 1LoopFor n = 3 To m + 2ms = DEG(ms + DEG(sht.Cells(n, 4ms = RAD(msS = S + sht.Cells(n, 3Nextms = DEG(msgg = RAD(DEG(sht.Cells(3, 5 + ms - DEG(s

42、ht.Cells(3 + m, 5 - pi * mxx = 0: yy = 0For n = 4 To m + 2'方位角sht.Cells(n, 5 = RAD(DEG(sht.Cells(n - 1, 5 + DEG(sht.Cells(n - 1, 4 - pi - DEG(gg / m'坐標增量sht.Cells(n, 6 = Format(sht.Cells(n - 1, 3 * Cos(DEG(sht.Cells(n, 5, "#.#"sht.Cells(n, 7 = Format(sht.Cells(n - 1, 3 * Sin(DEG(sh

43、t.Cells(n, 5, "#.#"'坐標增量和xx = xx + sht.Cells(n, 6yy = yy + sht.Cells(n, 7Nextxx = xx + sht.Cells(3, 10 - sht.Cells(m + 2, 10yy = yy + sht.Cells(3, 11 - sht.Cells(m + 2, 11sht.Cells(m + 4, 5 = "=" & Format(gg, "#.#"sht.Cells(m + 4, 6 = "X=" & Format

44、(xx, "#.#"sht.Cells(m + 4, 7 = "Y=" & Format(yy, "#.#"sht.Cells(m + 4, 3 = "S=" & Format(S, "#.#"sht.Cells(m + 4, 9 = "S=" & Format(Sqr(xx * xx + yy * yy, "#.#"sht.Cells(m + 4, 10 = "相對精度 1/" & Format(S /

45、 Sqr(xx * xx + yy * yy, "#"For n = 4 To m + 2sht.Cells(n, 8 = Format(xx / S * sht.Cells(n - 1, 3, "#.#"sht.Cells(n, 9 = Format(yy / S * sht.Cells(n - 1, 3, "#.#"NextFor n = 4 To m + 1sht.Cells(n, 10 = sht.Cells(n - 1, 10 + sht.Cells(n, 6 - sht.Cells(n, 8sht.Cells(n, 11

46、= sht.Cells(n - 1, 11 + sht.Cells(n, 7 - sht.Cells(n, 9NextColumns("F:K".SelectSelection.NumberFormatLocal = "0.000_ "End SubPublic Function RAD(Nu As Double As DoubleDim A As Double, B As Double, C As Double, D As Double, E As Double, F As Double, G As Double, p As DoubleD = Abs

47、(NuF = Sgn(Nup = 180# / piG = p * 60#A = Int(D * pB = Int(D - A / p * GW = BC = (D - A / p - B / G * 20.62648062RAD = (C + A + B / 100 * FEnd Function值得注意的是，前面提到的DEG函數(shù)別忘記加進去。如果自己定義一個名字叫“計算”的按鈕，指定此工具的宏為“單一附合導線計算”，那么，只要按下面的格式輸入原始數(shù)據(jù)（斜體是輸入的），點“計算”就可以得到計算結(jié)果了。所有的過程都是自動的，無須再手工填寫，是不是很方便？下面我們就來解決上面提到的與CAD的連接

48、和通訊問題。進入VBAIDE，按工具->引用,找到可使用的引用，在“AutoCAD2000類型庫”的左邊打鉤，點確定就行了。在模塊中輸入以下代碼：Global Sheet As Object, acadmtext As acadmtext, fontHight As DoubleGlobal xlBook As Excel.WorkbookGlobal p0(2 As Double, p1(2 As Double, p2(2 As DoubleGlobal acadApp As AcadApplicationGlobal acadDoc As AcadDocumentGlobal aca

49、dPoint As acadPointGlobal number As IntegerPublic Type ptn As Integerpt(2 As DoubleGlobal pt( As ptGlobal text1 As AcadTextGlobal CAD As ObjectGlobal p(2 As Double, i As Integer, j As IntegerGlobal h As Integer, l As IntegerPublic Function Get_ACAD(Dwt As String As BooleanDim YER As IntegerOn Error

50、Resume NextSet acadApp = GetObject(, "AutoCAD.Application"If Err ThenErr.ClearSet acadApp = CreateObject("AutoCAD.Application"If Err ThenMsgBox Err.DescriptionOn Error GoTo 0Get_ACAD = FalseExit FunctionEnd IfEnd IfOn Error GoTo 0Set acadDoc = acadApp.ActiveDocumentacadApp.Visible = TrueGet_ACAD = TrueDim typeFace As StringDim Bold As BooleanDim Italic As BooleanDim charSet As