【正文】 ........ ii ABSTRACT: ABSTRACT ..................................................................................... ii 目 錄 ................................................................................................................... iii 1 緒論 .....................................................................................................................1 概述 ....................................................................................................... 1 選題背景 ............................................................................................. 1 研究的目的和背景意義 ....................................................................... 2 研究的目的 ................................................................................. 2 研究的背景及意義 ..................................................................... 2 研究的內(nèi)容和方法 ............................................................................... 2 重點(diǎn)研究的內(nèi)容 ....................................................................... 2 研究的框架 ............................................................................... 3 研究?jī)?nèi)容 .............................................................................................. 4 2 ExcelVBA 基礎(chǔ)簡(jiǎn)介 ............................................................................................6 ExcelVBA 基礎(chǔ) .................................................................................... 6 ExcelVBA 簡(jiǎn)介 ........................................................................ 6 VBA 的主要特點(diǎn)和優(yōu)勢(shì) ............................................................ 7 Excel 宏簡(jiǎn)介 ............................................................................ 7 VBA 程序設(shè)計(jì)基礎(chǔ) ................................................................................ 8 函數(shù)與過(guò)程 ............................................................................... 8 控制結(jié)構(gòu) ................................................................................. 10 判斷結(jié)構(gòu) ................................................................................. 12 ExcelVBA 環(huán)境下進(jìn)行數(shù)據(jù)處理的優(yōu)點(diǎn) .......................................... 13 3 平面曲線坐標(biāo)的計(jì)算方法 .................................................................................15 平面曲線曲線要素及主點(diǎn)計(jì)算 ......................................................... 15 圓曲線曲線要素及主點(diǎn)里程計(jì)算及測(cè)設(shè) ............................. 15 帶有緩和曲線的圓曲線各曲線要素及主點(diǎn)里程計(jì)算及測(cè)設(shè) 17 曲線坐標(biāo) 的計(jì)算及詳細(xì)測(cè)設(shè)方法 ..................................................... 20 偏角法 ..................................................................................... 20 切線支距法 ............................................................................. 22 線路逐樁坐標(biāo)計(jì)算 ................................................................. 23 北 京 交 通 大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論 文 ） iv 切線直角系中的坐標(biāo)轉(zhuǎn)換到測(cè)量坐標(biāo)系中的坐標(biāo) ............. 24 4 程序模塊設(shè)計(jì)及實(shí)現(xiàn) .........................................................................................26 程序窗口的基本應(yīng)用和程序模塊設(shè)計(jì) .............................................. 26 編程界面的進(jìn)入和基本子程序 ............................................. 26 基礎(chǔ)模塊設(shè)計(jì)簡(jiǎn)介 ................................................................. 28 緩和曲線數(shù)據(jù)編程計(jì)算以及成果輸出 ............................................. 29 數(shù)據(jù)編程計(jì)算步驟與圖解 ..................................................... 29 逐樁坐標(biāo)計(jì)算及最后成果輸出 ............................................. 30 結(jié) 論 33 參考文獻(xiàn) .................................................................................................................34 附 錄 35 北 京 交 通 大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 緒論 1 1 緒論 概述 近年來(lái)，我國(guó)公路鐵路建設(shè)迎來(lái)了史無(wú)前例的高速，跨越式發(fā)展。（頁(yè)面大小可以根據(jù)字?jǐn)?shù)多少調(diào)整） 請(qǐng)刪除填寫說(shuō)明 四、進(jìn)度計(jì)劃 五、指導(dǎo)教師意見(jiàn) 填寫說(shuō)明：查閱資料是否全面，提出的研究方案和計(jì)劃進(jìn)度是否可行，還有什么需要注意和改進(jìn)的方面，是否同意按學(xué)生提出的計(jì)劃進(jìn)行等。 除了文中特別加以標(biāo)注和致謝之處外，論文中不包含其他人已經(jīng)發(fā)表或撰寫過(guò)的研究成果，也不包含為獲得北京交通大學(xué)或其他教育機(jī)構(gòu)的學(xué)位或證書而使用過(guò)的材料。 Excel 是 Microsoft Office 家族中的一個(gè)功能強(qiáng)大、技術(shù)先進(jìn)、使用方便的表格式數(shù)據(jù)綜合管理 系統(tǒng) 和分析系統(tǒng)，而 VBA 則是 Excel 重要的高級(jí)功能，它的目的是幫助使用者根據(jù)自己的需要在 office 環(huán)境中進(jìn)行功能模塊的定制與開(kāi)發(fā)。但無(wú)論是公路建設(shè)還是鐵路建設(shè)，在進(jìn)行中樁放樣過(guò)程中我們都將遇到許多繁瑣的數(shù)據(jù)計(jì)算與處理，在用盡了大量精力的同時(shí)也消耗了大量的時(shí)間，所以如何能在準(zhǔn)確計(jì)算線路中樁坐標(biāo)的同時(shí)，大大的減少計(jì)算所需的時(shí)間與精力，是很多業(yè)內(nèi)人士都急需解決的問(wèn)題。 北 京 交 通 大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 緒論 2 研究的目的和背景意義 研究的目的 隨著科技的發(fā)展，計(jì)算機(jī)技術(shù)的應(yīng)用范圍也越來(lái)越廣泛。而 Excel 是我們最常使用的 Office辦公軟件之一，但我們可能忽略了它的一個(gè)非常強(qiáng)大的功能，既二次開(kāi)發(fā)功能 。 張永成、王洪輝等利用 VBA在 Excel中實(shí)現(xiàn)了測(cè)井?dāng)?shù)據(jù)的標(biāo)準(zhǔn)化處理。相信 ExcelVBA 的這種高級(jí)功能會(huì)讓越來(lái)越多的業(yè)內(nèi)人士認(rèn)可。 。 VBA 創(chuàng)建的解決方案沒(méi)有脫離用戶已熟悉的應(yīng)用程序環(huán)境，更容易被用戶所接受。它們幾乎可以自動(dòng)完成用戶在程序中執(zhí)行的任何操作，宏是一系列的命令與函數(shù)，存儲(chǔ)于 Visual Basic 模塊中，并且在需要執(zhí)行該項(xiàng)任務(wù)時(shí)可隨時(shí)運(yùn)行。 函數(shù)與過(guò)程 過(guò)程和函數(shù)就是能執(zhí)行特定功能的語(yǔ)句塊。當(dāng)發(fā)現(xiàn)功能模塊有錯(cuò)誤時(shí)，不必在 整個(gè)應(yīng)用程序中查找錯(cuò)誤，然后逐個(gè)改正逐句調(diào)試。VBA 的自定義函數(shù)也就是根據(jù)需求編制一個(gè)符合自己格式的函數(shù)。給變量賦值和設(shè)定屬性是 VB 編程中常見(jiàn)的兩個(gè)任務(wù)。它允許用戶為集合對(duì)象中的每個(gè)元素執(zhí)行循環(huán)內(nèi)的程序區(qū)塊內(nèi)容。 …Then 語(yǔ)句 (單分支結(jié)構(gòu) ) 該語(yǔ)句是用來(lái)判斷 if 后面的判斷式是否為 True，若為 True，才執(zhí)行 then 之后的語(yǔ)句；否則將不執(zhí)行該語(yǔ)句。 2. VBA是一種面向?qū)ο蟮木幊陶Z(yǔ)言，其語(yǔ)法比較簡(jiǎn)單，容易理解和 掌握， 并且 VBA是針對(duì)特定的應(yīng)用程序進(jìn)行開(kāi)發(fā)的，用簡(jiǎn)短的代碼就能實(shí)現(xiàn)復(fù)雜的功能。 ExcelVBA進(jìn)行數(shù)據(jù)處理的優(yōu)點(diǎn)為測(cè)量數(shù)據(jù)處理提供了極大的方便，通過(guò)VBA編程可以進(jìn)行測(cè)量中的各種算術(shù)和矩陣運(yùn)算、解算各類方程；可 以實(shí)現(xiàn)水準(zhǔn)網(wǎng)、導(dǎo)線網(wǎng)、邊角網(wǎng)、三角網(wǎng)等各類控制網(wǎng)的近似平差和嚴(yán)密平差及坐標(biāo)換帶及坐標(biāo)正反算；可以進(jìn)行道路中邊樁坐標(biāo)及放樣數(shù)據(jù)計(jì)算、道路高程及超高和加寬計(jì)算、路基填土高度以及土石方量計(jì)算等。其余要素可按下列關(guān)系式計(jì)算得出，即： 切線長(zhǎng)： 2tan?RT ? （ 31） 曲線長(zhǎng)： ?180??RL? （ 32） 外矢距： )12(s ec ?? ?RE （ 33） 切曲差： LTD ??2 （ 34） 從圖中可以看出，圓曲線的主要點(diǎn)包括： ZY 點(diǎn)（直圓點(diǎn)）：直線與圓曲線的連接點(diǎn)； QZ 點(diǎn)（曲中點(diǎn)）：圓曲線的 重點(diǎn)； YZ 點(diǎn)（圓直點(diǎn)）：圓曲線與直線的連接點(diǎn)。 圓曲線的主要點(diǎn)對(duì)整條曲線起著控制作用。 主點(diǎn)里程同樣可由 JD（交點(diǎn)）里程求得，方法步驟如下： ZH 里程 =JD 里程 HT ； HY 里程 =ZH 里程 + sL ； YH 里程 =HY 里程 + YL ； HZ 里程 =YH 里程 + sL ； QZ 里程 =HZ 里程 21 HL ； 檢核： JD 里程 =QZ 里程 +21 HD 。再次平分線上由 JD 量取外矢距 E ，即得曲線中點(diǎn) QZ。偏角法分為：長(zhǎng)弦偏角法、短弦偏角法 [9]。利用曲線上各點(diǎn)在此坐標(biāo)系中的坐標(biāo) ( yx, )，便可采用直角坐標(biāo)法測(cè)設(shè)曲線。 用切線支距法測(cè)設(shè)曲線，由于各曲線點(diǎn)是獨(dú)立測(cè)設(shè)的，其測(cè)角及量邊的誤差都不積累，所以在支距不太長(zhǎng)的情況下，具有精度較高、操作較簡(jiǎn)單的優(yōu)點(diǎn)，故應(yīng)用也較廣泛。那么現(xiàn)在我們就選擇其中具有代表性的計(jì)算方法進(jìn)行程序模塊設(shè)計(jì) 。在進(jìn)行錄制宏時(shí)，如果原來(lái)不存在模塊，office 就自動(dòng)創(chuàng)建一個(gè)。 編程的開(kāi)始，首先涉及到程序模塊的建立。 45 緩和曲線要素求取程序 首先，在固定的位置把已知數(shù)據(jù)輸入，運(yùn)用已編制的程序計(jì)算數(shù)據(jù)結(jié)果，即點(diǎn)擊曲線要素計(jì)算按鈕，得出所要求的 數(shù)