電子表格Excel VBA測量程序分享

1、電子表格Excel VBA測量程序分享 2012-2-13 11:16閱讀(6977 贊(贊(154贊(簡介：Microsoft Excel是微軟公司的辦公軟件Microsoft office的組件之一，Visual Basic forApplications（VBA）是一種VisualBasic的一種宏語言，是基于Visual Basic for Windows 發(fā)展而來的，主要能用來擴展Windows的應用程式功能，特別是Microsoft Office軟件。也可說是一種應用程式視覺化的Basic Script，VBA的使用可以達成執(zhí)行特定功能或是重復性高的操作。適用：Microsoft

2、Office Excel辦公軟件NO.1：曲線坐標計算程序VBA說明：本程序適用于Office Excel運行，屬于多交點坐標正算、反算程序，包括：多交點曲線要素、坐標正算、坐標反算、放樣計算、豎曲線高程等。下載：曲線坐標計算程序VBA 1.0（單交點坐標正算）曲線坐標計算程序VBA 2.0（單交點坐標正算、反算）曲線坐標計算程序VBA 2.3（單交點坐標正算、反算、自動化）曲線坐標計算程序VBA 3.0（多交點坐標正算、反算）曲線坐標計算程序VBA 4.04.9（交點法、線元法、豎曲線等一體化程序） 2012-11-15 更新測量坐標計算程序 V5（交點法、線元法、直線、豎曲線等多種計算程序

3、） 2013-07-27 更新 NO.2：測量計算程序集成VBA 1.6說明：本程序適用于Office Excel運行，通過VBA編寫的測量集成程序，屬于單交點曲線，包括：坐標正算、坐標反算、坐標放樣、角度轉弧度、任意切線方位角、坐標展點、邊角后方交會、坐標面積計算、無定向平差、水準平差、豎曲線高程、導線觀測手薄、線元法坐標正算、線元法坐標反算、直線坐標正反算等。下載：點擊下載NO.3：線元法坐標正反算VBA說明：本程序適用于Office Excel運行，是線元法坐標正算、反算一體程序，可以計算多線元數據，適用性廣（包括：復曲線、S型曲線、匝道）等。下載：線元法坐標正算VBA 1.0（單線元正

4、算）線元法坐標正反算VBA 2.0（單線元正算、反算）線元法坐標正反算VBA 3.0（多線元正算、反算）NO.4：結構物坐標計算程序VBA 1.0說明：本程序適用于Office Excel運行，該程序可計算任意矩形邊角點，適用于涵洞基礎、橋墩承臺等矩形、平行四邊形角點坐標計算，本表為曲線坐標計算程序VBA 4.0改進版，屬于多交點要素含坐標正算。下載：點擊下載NO.5：測回法觀測手薄(支導線計算bata1說明：本程序適用于Office Excel運行，該程序適用于導線控制測量多測回的數據內業(yè)處理，可直接在表中輸入觀測原始數據后自動計算出支導線坐標。下載：點擊下載NO.6：放樣計算【方位角和距離

5、】VB函數bata2說明：本程序適用于Office Excel運行，該程序適用于計算兩點間坐標方位角和水平距離，用于現(xiàn)場測量放線使用。下載：點擊下載NO.7：附合導線簡易平差說明：本程序適用于Office Excel運行，該程序適用于附合導線簡易平差。下載：點擊下載NO.8：極坐標測量放樣計算表說明：本程序適用于Office Excel運行，該程序適用于現(xiàn)場測量放樣，包括：水平夾角、弧度顯示、方位角、距離（類似于放樣計算【方位角和距離】VB函數bata2）。下載：點擊下載NO.9：曲線任意點切線方位角計算表說明：本程序適用于Office Excel運行，該程序適用于任意曲線、任意點的切線方位角

6、計算（包括：復曲線、S型曲線、匝道）等。下載：點擊下載NO.10：豎曲線高程計算程序VBA 1.0說明：本程序適用于Office Excel運行，該程序適用于豎曲線高程計算（含多數據庫）。下載：點擊下載NO.11：水準測量高差閉合差調整表(米bata1說明：本程序適用于Office Excel運行，該程序適用于水準測量簡易平差。下載：點擊下載NO.12：無定向導線平差計算表Beta1說明：本程序適用于Office Excel運行，該程序適用于無定向導線平差，在已知兩點不通視的情況下用進行導線測量的方式屬于無定向導線，可進行簡易導線平差。下載：點擊下載NO.13：直線坡度高程計算查詢表說明：本程

7、序適用于Office Excel運行，該程序適用于直坡高程計算（含橫坡）。下載：點擊下載NO.14：(附閉合水準測量平差表格程序說明：本程序適用于Office Excel運行，該程序適用水準測量輔助平差，可進行附合、閉合水準平差且通過改正數自動調整高程。下載：點擊下載NO.15：徠卡DNA03電子水準儀GSI源文件自動處理程序說明：本程序適用于Office Excel運行，該程序適用于對徠卡DNA03電子水準儀原始數據GSI源文件進行自動填表（一（二）等水準觀測手?。┯涗?。下載：點擊下載注意：本表需啟用"宏"方可運行，Office Excel 啟用宏方法如下：A.Excel 2003版:工具>>>宏>>>安全性>>>選擇較低的安全級別>>>重新打開文件即可運行。B.Excel 2007版:Office按鈕>>>Excel選項>>>信任中心>>>信任中心設置>>>宏設置>>>啟用所有宏。提示：若在使用過程中修改數據后出現(xiàn)數據結果無變化，請雙擊無變化的單元格或者保存重新打開即可（由于本程序使用的是VBA編