電子表格Excel VBA測(cè)量程序分享

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

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

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

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

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

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

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