如何通過Excel VBA編寫測量坐標計算程序

1、教你如何通過Excel VBA編寫測量坐標計算程序入門篇摘 要：認識VBA、理解VBA，并利用Office Excel VBA編寫測量坐標計算程序。關(guān)鍵詞：Excel VBA 程序 坐標 編寫了解：VBA是什么？簡單的說就是一種自動化語言，它可以使常用的程序自動化,可以創(chuàng)立自定義的解決方案。可以用Excel的宏語言來使Excel自動化運行等Microsoft讓它開發(fā)出來的應(yīng)用程序共享一種通用的自動化語言Visual Basic For Application(VBA)，可以認為VBA是非常流行的應(yīng)用程序開發(fā)語言Visual Basic的子集，事實上VBA是VB應(yīng)用程序的版本，盡管存在有些不同V

2、BA和VB在結(jié)構(gòu)上仍然十分相似。如果你已經(jīng)了解VB會發(fā)現(xiàn)學習VBA非常快。相應(yīng)的學完VBA會給學習VB打下堅實的根底。理由：選擇Excel VBA編程的理由是因為它的計算功能非常強大，是現(xiàn)今任何編程計算器無法逾越的。它運用范圍廣，計算速度快，計算精度高，合理化顯示等?；蛟S很多測量人員對Excel VBA還有些陌生，主要是大家寄托于計算器、電腦、 PDA等系列軟件使用。Excel VBA對于大多數(shù)測量人員而沒有系統(tǒng)學過計算機語言程序設(shè)計的人群來講有一定模糊，不過只要有根本數(shù)學知識、測量常識和邏輯理解的人，都能通過Excel VBA編寫設(shè)計出滿意如意的測量程序。目標：基于Excel VBA的測量坐

3、標計算程序的設(shè)計目標是將繁瑣計算過程轉(zhuǎn)入到計算機中，利用程序語言的重復(fù)性原理，在計算機中可將坐標計算得出更精確的結(jié)果，使坐標計算更加可靠。最終目標是讓用戶可以通過Excel VBA自行完成坐標計算程序設(shè)計。認識：學習VBA到底需要什么根底和了解些什么？學習VBA需要認識英文字母、一般的單詞如：函數(shù)所用的過程、數(shù)學根底知識、測量常識、邏輯性思維即可。在VBA中需要了解VBA的過程、變量、屬性、方法、事件、語句等。Excel VBA程序可以分為“錄制宏、自定義函數(shù)，由于錄制宏編寫計算類程序它限制了計算涵式過程，而無法到達自定義數(shù)據(jù)直接運算的目的，所以大家可以通過按鈕式點擊進行自定義函數(shù)過程還可以通

4、過窗體定義過程。根本常識：1、類型：常用類型分為Integer整型、Single (單精度型)、Double (雙精度型)、String字符串型、Variant(數(shù)字)、Variant(字符)。2、變量：Dim 變量名 As 數(shù)據(jù)類型。例：Dim A As Double定義變量除了可以使用Dim語句外，比擬常的還有：static語句，Private語句，Public語句。3、常量：Const 常量名 As 數(shù)據(jù)類型 常量的值。例：Const PI =3.1415926535898常量聲明后不可對它再進行賦值。4、If語句：If 邏輯表達式 Then If Q0 Then 語句塊1 Q=-1El

5、se Else 語句塊2 Q=1 End If End If5、Do循環(huán)語句：Do Wihle 循環(huán)條件 Do While Cells(j, 1) Empty 語句塊1 X = N + (Cells(j, 1) - D) * Cos(F) Exit Do Y = E + (Cells(j, 1) - D) * Sin(F) 語句塊2 j = j + 1 Loop Loop6、調(diào)用單元格數(shù)值：With Sheets(單元格名稱) With Sheets(坐標計算) N = .Cells(行, 列) N = .Cells(3, 2) E = .Cells(行, 列) E = .Cells(4, 2

6、) D = .Cells(行, 列) D = .Cells(5, 2) F = .Cells(行, 列) F = .Cells(6, 2) End With End With說明：這里的.Cells(行, 列)表示調(diào)用Sheets(坐標計算)單元格中指定數(shù)值。7、MsgBox事件語句：Private Sub Workbook_Open() Private Sub Workbook_Open() MsgBox 提示語句 MsgBox 歡送使用直線坐標計算程序！End Sub End Sub主題：通過以上認識相信大家對VBA編程稍有認識與了解，現(xiàn)在將進行測量坐標計算程序設(shè)計。給大家講解的是“直線坐

7、標中樁計算的程序如何編寫與運算。 思路：根據(jù)單元格輸入的數(shù)據(jù)并由With過程調(diào)用，建立Do循環(huán)計算模式自動填充待求點單元格坐標。 直線坐標計算原理：如下列圖所示，直線的起點坐標Oxo，yo、起點切線方位角ao、直線長度L。 直線的止點坐標Zxz，yz、止點方位角az計算如下：計算數(shù)據(jù)：輸入直線要素 起點坐標xo 3378605.445 起點坐標yo 453648.704 起點樁號O 7586.707 計算方位角ao 98.565562程序操作步驟：1、設(shè)置表格框架可以根據(jù)自己的要求設(shè)計，圖示如下： 2、在菜單欄上面點擊右鍵彈出下拉式對話框選中“Visual Basic。3、調(diào)用后的Visual

8、 Basic菜單欄顯示如下。4、插入命令按鈕按鈕主要用于鼠標點擊時觸發(fā)函數(shù)運行。5、插入命令按鈕后樣式，在上面點擊右鍵命令按鈕 對象編輯輸入“坐標計算名稱可以根據(jù)自己要求輸入。同樣方法添加“數(shù)據(jù)去除按鈕。6、在“坐標計算按鈕上面點擊右鍵查看代碼，即可進入代碼編輯區(qū)域。同樣方法編輯“數(shù)據(jù)去除按鈕代碼。7、代碼輸入?yún)^(qū)域，在藍色線條位置粘貼“VBA主要源碼代碼然后點擊左上角Excel圖標即可返回Excel電子表格界面。這里還可以在VBAProject上面點擊右鍵插入模塊將代碼粘貼到模塊中通過路徑指引，但是在這里就直接將代碼粘貼在按鈕內(nèi)部減少了添加模塊的繁瑣。 VBA主要源碼：Private Sub

9、CommandButton1_Click()按鈕下粘貼以下代碼：VBA源碼說明：粘貼后的代碼區(qū)域顯示：8、返回Excel表格后點擊頂部按鈕“退出設(shè)計模式即可正常點擊按鈕。9、在單元格中輸入數(shù)據(jù)。 10、點擊“坐標計算按鈕即可計算出以下坐標。程序源碼文件下載地址： :/ fffsky /nsp/geturl.php?path=vba_zxzb.rar 結(jié)論：通過實踐證明，在工作中知道測量數(shù)學模型并結(jié)合編程技術(shù)寫一些程序?qū)ΤＳ玫臄?shù)據(jù)處理能夠高效的解決實際工作中出現(xiàn)的問題，從而使工作效率得以提高。在這里或許有朋友要問為什么不編寫復(fù)雜的曲線坐標計算程序？其實編寫什么都一樣，教你的只是一種方法，一種思路，如果你用心去學就算告訴你一個過程你就會懂里面的意思。所以功夫還得靠大家自己多加練習才能邁入編程的正常軌