教你如何通過excel vba編寫測量坐標(biāo)計算程序_圖文

1、教你如何通過Excel VBA編寫測量坐標(biāo)計算程序發(fā)布日期：2021-01-11來源：網(wǎng)絡(luò) 未知瀏覽次數(shù)：1704摘要：認(rèn)識VBA、理解VBA，并利用OfficeExcelVBA編寫測量坐標(biāo)計算程序。關(guān)鍵詞：ExcelVBA程序坐標(biāo)編寫了解：VBA是什么？簡單的說就是一種自動化語言，它可以使常用的程序自動化,可以創(chuàng)立自定義的解決方案。可以用Excel的宏語言來使Excel自動化運行等Microsoft讓它開發(fā)出來的應(yīng)用程序共享一種通用的自動化語言VisualBasicForApplication(VBA)，可以認(rèn)為VBA是非常流行的應(yīng)用程序開發(fā)語言VisualBasic的子集，事實上VBA是V

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

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

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

5、語句塊2Q=1EndIfEndIf 5、Do循環(huán)語句：DoWihle循環(huán)條件DoWhileCells(j,1)Empty語句塊1X=N+(Cells(j,1)-D)*Cos(F)ExitDoY=E+(Cells(j,1)-D)*Sin(F)語句塊2j=j+1LoopLoop 6、調(diào)用單元格數(shù)值：WithSheets(單元格名稱)WithSheets(坐標(biāo)計算)N=.Cells(行,列)N=.Cells(3,2)E=.Cells(行,列)E=.Cells(4,2)D=.Cells(行,列)D=.Cells(5,2)F=.Cells(行,列)F=.Cells(6,2)EndWithEndWith說

6、明：這里的.Cells(行,列)表示調(diào)用Sheets(坐標(biāo)計算)單元格中指定數(shù)值。 7、MsgBox事件語句：PrivateSubWorkbook_Open()PrivateSubWorkbook_Open()MsgBox提示語句MsgBox歡送使用直線坐標(biāo)計算程序！EndSubEndSub 主題：通過以上認(rèn)識相信大家對VBA編程稍有認(rèn)識與了解，現(xiàn)在將進(jìn)行測量坐標(biāo)計算程序設(shè)計。給大家講解的是“直線坐標(biāo)中樁計算的程序如何編寫與運算。 思路：根據(jù)單元格輸入的數(shù)據(jù)并由With過程調(diào)用，建立Do循環(huán)計算模式自動填充待求點單元格坐標(biāo)。 準(zhǔn)備：本表需將平安級別設(shè)置為“低，否那么運行時點擊計算按鈕沒有反映。

7、 Office Excel 設(shè)置方法如下： Excel 2003版：工具宏平安性選擇較低的平安級別重新翻開文件即可運行。 Excel 2007版：Office按鈕Excel選項信任中心信任中心設(shè)置宏設(shè)置啟用所有宏。 版本：程序測試演示版本 Microsoft Office Excel 2003直線坐標(biāo)計算原理：如下列圖所示，直線的起點坐標(biāo)、起點切線方位角ao、直線長度L。直線的止點坐標(biāo)、止點方位角az計算如下：計算數(shù)據(jù)：輸入直線要素起點坐標(biāo)xo3378605.445起點坐標(biāo)yo453648.704起點樁號O7586.707計算方位角ao98.565562程序操作步驟：1、設(shè)置表格框架可以根據(jù)自

8、己的要求設(shè)計，圖示如下：2、在菜單欄上面點擊右鍵彈出下拉式對話框選中“VisualBasic。3、調(diào)用后的VisualBasic菜單欄顯示如下。4、插入命令按鈕按鈕主要用于鼠標(biāo)點擊時觸發(fā)函數(shù)運行。5、插入命令按鈕后樣式，在上面點擊右鍵命令按鈕對象編輯輸入“坐標(biāo)計算名稱可以根據(jù)自己要求輸入。同樣方法添加“數(shù)據(jù)去除按鈕。6、在“坐標(biāo)計算按鈕上面點擊右鍵查看代碼，即可進(jìn)入代碼編輯區(qū)域。同樣方法編輯“數(shù)據(jù)去除按鈕代碼。7、代碼輸入?yún)^(qū)域，在藍(lán)色線條位置粘貼“VBA主要源碼代碼然后點擊左上角Excel圖標(biāo)即可返回Excel電子表格界面。這里還可以在VBAProject上面點擊右鍵插入模塊將代碼粘貼到模塊中

9、通過路徑指引，但是在這里就直接將代碼粘貼在按鈕內(nèi)部減少了添加模塊的繁瑣。VBA主要源碼： OptionExplicit顯式聲明模塊中的所有變量 PrivateSubCommandButton1_Click()按鈕下粘貼以下代碼：DimjAsIntegerDimAi,Bi,Ci,Di,Ei,Fi,Gi,HiAsDoubleDimN,E,D,X,Y,FAsDouble定義變量ConstPi=3.14159265358979WithSheets(坐標(biāo)計算)IfTrim(.Cells(3,2)=ThenMsgBox請輸入“起點坐標(biāo)X！,vbInformation,提示:ExitSubIfTrim(.C

10、ells(4,2)=ThenMsgBox請輸入“起點坐標(biāo)Y！,vbInformation,提示:ExitSubIfTrim(.Cells(5,2)=ThenMsgBox請輸入“起點樁號K！,vbInformation,提示:ExitSub檢測數(shù)據(jù)IfTrim(.Cells(6,2)=ThenMsgBox請輸入“起點方位角F！,vbInformation,提示:ExitSubN=.Cells(3,2)E=.Cells(4,2)D=.Cells(5,2)調(diào)用數(shù)據(jù)F=.Cells(6,2)Gi=Int(.Cells(5,2)+10)/10)*10Hi=.Cells(5,2)+.Cells(7,2)F

11、i=Abs(F)Ai=Int(Fi)Bi=(Fi-Ai)*100Bi=Int(Bi)Ci=(Fi-Ai)*10000-100*Bi六十進(jìn)制轉(zhuǎn)換為十進(jìn)制Di=Bi+Ci/60Ei=Ai+Di/60IfF0ThenF=-EiElseF=EiEndIfF=F/180*PiEndWithj=9DoWhileCells(j,1)EmptyX=N+(Cells(j,1)-D)*Cos(F)Y=E+(Cells(j,1)-D)*Sin(F)坐標(biāo)計算核心Cells(j,2)=Round(X,3)Cells(j,3)=Round(Y,3)j=j+1LoopEndSubPrivateSubCommandButto

12、n2_Click()按鈕下粘貼以下代碼： Range(B9:C65536).ClearContents EndSub VBA源碼說明：OptionExplicit顯式聲明模塊中的所有變量；Private Sub CommandButton1_Click()Private外部，可供類或是模塊自身調(diào)用；Sub過程(不返回值)和函數(shù)(返回值)可將其視為類的方法；CommandButton1_Click()計算按鈕名稱。DimjAsInteger定義整型變量；DimAi,Bi,Ci,Di,Ei,Fi,Gi,HiAsDouble定義雙精度變量；ConstPi=3.14159265358979定義常量；W

13、ithSheets(坐標(biāo)計算)介詞；IfTrim(.Cells(3,2)=ThenMsgBox請輸入“起點坐標(biāo)X！,vbInformation,提示:ExitSubTrim刪除字符中空格；.Cells(3,2)調(diào)用表中的第三行第二列數(shù)值；MsgBox彈出窗口提示框；vbInformation彈出窗口類型；ExitSub退出程序；Gi=Int(.Cells(5,2)+10)/10)*10Int將數(shù)字舍入到最接近的整數(shù)；Fi=Abs(F)Abs絕對值；IfF0ThenF=-EiElseF=EiEndIf當(dāng)F小于0那么F等于-Ei否那么F等于Ei結(jié)束判斷；EndWith結(jié)束介詞語句；j=9循環(huán)定義，

14、表示從第九行開始執(zhí)行；DoWhileCells(j,1)EmptyDoWhile循環(huán)控制語句，用于首先執(zhí)行一次循環(huán)體語句，然后開始測試循環(huán)條件，當(dāng)條件為真時繼續(xù)循環(huán)的處理過程；X=N+(Cells(j,1)-D)*Cos(F)Y=E+(Cells(j,1)-D)*Sin(F)Cells(j,2)=Round(X,3)Cells(j,3)=Round(Y,3)j=j+1逐句循環(huán)，每成功運行一次即為循環(huán)一次，然后繼續(xù)執(zhí)行下一行。Loop當(dāng)條件不滿足時結(jié)束循環(huán)語句。EndSub退出Sub程序過程。PrivateSubCommandButton2_Click()Range(B9:C65536).ClearContents去除區(qū)域B9:C65536中的內(nèi)容。EndSub粘貼后的代碼區(qū)域顯示：8、返回Excel表格后點擊頂部按鈕“退出設(shè)計模式即可正常點擊按鈕。9、在單元格中輸入數(shù)據(jù)。10、點擊“坐標(biāo)計算按鈕即可計算出以下坐標(biāo)。注：新建空白表格時需將單元名稱“Sheet1改為“坐標(biāo)計算。程序源碼文件下載地址： HYPERLINK :/ surmap /file/upload/202101/11/17-00-40-55-1.rar vba_zxzb.rar結(jié)論：通過實踐證明，在