excel與vba在工程測量中的應(yīng)用

《excel與vba在工程測量中的應(yīng)用》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、EXCEL與VBA在工程測量中的應(yīng)用摘要：Excel是大家很熟悉的辦公軟件，相信大家在工作中經(jīng)常使用吧。在測量工作中，你是否感覺到有很不方便的時候？比如，計算一個角度的三角函數(shù)值，而角度的單位是60進(jìn)制的，此時，你一定感到很無奈，因為，Excel本身無法直接計算60進(jìn)制的角度的三角函數(shù)！還有，如果你的工作表中有了點坐標(biāo)值（二維或者三維），要在CAD中展繪出來，怎樣才能又快又直接？不然，就只有拐彎摸角了，很痛苦啊！其實，只要對Excel進(jìn)行一些挖掘，就可以發(fā)現(xiàn)Excel的功能我們還沒有好好的利用呢。Excel本身提供了強(qiáng)大的

2、二次開發(fā)功能，只要我們仔細(xì)的研究，沒有什么能難倒我們的。下面，好好筆者將帶你走近Excel，認(rèn)識它的強(qiáng)大的二次開發(fā)環(huán)境VBAIDE，用它來解決上面所提到的問題，就非常容易了。關(guān)鍵詞：ExcelVBA工程測量?Excel是大家很熟悉的辦公軟件，相信大家在工作中經(jīng)常使用吧。在測量工作中，你是否感覺到有很不方便的時候？比如，計算一個角度的三角函數(shù)值，而角度的單位是60進(jìn)制的，此時，你一定感到很無奈，因為，Excel本身無法直接計算60進(jìn)制的角度的三角函數(shù)！還有，如果你的工作表中有了點坐標(biāo)值（二維或者三維），要在CAD中展繪出來，

3、怎樣才能又快又直接？不然，就只有拐彎摸角了，很痛苦??！其實，只要對Excel進(jìn)行一些挖掘，就可以發(fā)現(xiàn)Excel的功能我們還沒有好好的利用呢。Excel本身提供了強(qiáng)大的二次開發(fā)功能，只要我們仔細(xì)的研究，沒有什么能難倒我們的。下面，好好筆者將帶你走近Excel，認(rèn)識它的強(qiáng)大的二次開發(fā)環(huán)境VBAIDE，用它來解決上面所提到的問題，就非常容易了。　　初識VBAIDE，首先，你必須懂得一些簡單的VB編程常識。如果不懂就只有通過其他的途徑去學(xué)習(xí)了。但用不著深入的研究，只要靜下心來，幾個小時就可以了?！　〈蜷_Excel，按Alt+F11

4、即進(jìn)入VBAIDE，學(xué)過VB的人一看就知道那就是熟悉的VB界面。下面看看如何定義一個函數(shù)，然后利用它來解決60進(jìn)制的角度的三角函數(shù)計算問題。在菜單上依次點擊[插入]->[模塊]，然后輸入如下代碼PublicConstpi=3.14159265359PublicFunctionDEG(nAsDouble)DimAAsDouble,BAsDouble,CAsDouble,DAsDouble,EAsDouble,FAsDouble,GAsDouble,KAAsDoubleD=Abs(n)+0.00000000000000

5、1F=Sgn(n)A=Int(D)B=Int((D-A)*100)C=D-A-B/100DEG=F*(A+B/60+C/0.36)*pi/180EndFunction　　這樣，就定義了一個名字叫DEG的函數(shù)，它的作用就是轉(zhuǎn)換60進(jìn)制的角度為Excel認(rèn)識的弧度。編輯完后按Alt+Q即返回Excel，再在某一單元格輸入=sin(deg(A1))(A1既可以是單元格的值,也可以是輸入的角度值),回車，哈哈，怎么樣？結(jié)果出來了吧？你可以用計算器檢驗一下是否正確。如果出現(xiàn)#NAME？那就要設(shè)置一下安全設(shè)置。依次點[工具]->[宏]

6、->[安全性]，在安全級選項卡上選擇“中”或者“低”，然后關(guān)閉后重新打開就可以了，以后只要是60進(jìn)制的角度，就用它轉(zhuǎn)換，非常方便哦?！　」こ虦y量中，經(jīng)常碰到導(dǎo)線的計算，如果手頭沒有平差計算程序就只有手工計算了，這時候你曾經(jīng)想過編個小程序來計算？其實，這很簡單，筆者在宛坪（上海至武威）高速公路上做測量監(jiān)理，因為有大量的導(dǎo)線需要復(fù)核，故編寫了一個附合導(dǎo)線計算程序，代碼很簡單，但很實用。下面是該程序的代碼：Sub附合導(dǎo)線計算()DimmAsInteger,nAsInteger,msAsDouble,ggAsDouble,shtA

7、sObject,xxAsDouble,yyAsDouble,SAsDoubleSetsht=ThisWorkbook.ActiveSheetDoWhilesht.Cells(m+3,4)<>""m=m+1LoopForn=3Tom+2ms=DEG(ms)+DEG(sht.Cells(n,4))ms=RAD(ms)S=S+sht.Cells(n,3)Nextms=DEG(ms)gg=RAD(DEG(sht.Cells(3,5))+ms-DEG(sht.Cells(3+m,5))-pi*m)xx=0:yy=0Forn=4Tom

8、+2'方位角sht.Cells(n,5)=RAD(DEG(sht.Cells(n-1,5))+DEG(sht.Cells(n-1,4))-pi-DEG(gg)/m)'坐標(biāo)增量sht.Cells(n,6)=Format(sht.Cells(n-1,3)*Cos(DEG(sht.Cells(n,5))),"