【正文】 其優(yōu)點(diǎn)如下 ： office辦公軟件中的一個(gè)組件，適應(yīng)范圍廣，有良好的群眾應(yīng)用基礎(chǔ)，工程技術(shù)人員一般都熟悉其使用方法和規(guī)則。它們都是對(duì)條件進(jìn)行判斷，根據(jù)判斷結(jié)果，選擇執(zhí)行不同的分支。 (2)For each?next 語句 在 VBA 中， for each 結(jié)構(gòu)是個(gè)功能強(qiáng)大的語句結(jié)構(gòu)。 賦值語句的工作流程是：計(jì)算右邊表達(dá)式的值，然后賦給左邊的變量。 北京交通大學(xué)畢業(yè)設(shè)計(jì)（論文） 10 圖 21 插入過程 圖 22 添加過程對(duì)話框 函數(shù)實(shí)際是實(shí)現(xiàn)一種映射，它通過一定的映射規(guī)則，完成運(yùn)算并返回結(jié)果。 北京交通大學(xué)畢業(yè)設(shè)計(jì)（論文） 9 過程最大的好處就是在一個(gè)地方寫了一個(gè)功能模塊之后 ， 如果要在其他的地方實(shí)現(xiàn)同樣的功能，不必將代碼重新寫一遍，只要直接調(diào)用就行。 VBA 程序設(shè)計(jì)基礎(chǔ) 前面介紹了 VBA的一些基礎(chǔ)的知識(shí)和 VBA相對(duì)于其他編程語言的一些主要優(yōu)勢(shì)及特點(diǎn)，對(duì) Excel 宏也做了簡(jiǎn)單介紹，接下來將介紹一些基礎(chǔ)的 VBA 程序設(shè)計(jì)的語法知識(shí)。 Excel 宏簡(jiǎn)介 宏是通過一次單擊就可以應(yīng)用的命令集。同時(shí) VBA 與宿主應(yīng)用程序緊密整合，不必從頭開始創(chuàng)建解決方案，能夠充分地利用宿主應(yīng)用程序自身的功能，便于快速開發(fā)。 ，定制開發(fā)系統(tǒng)報(bào)表功能，簡(jiǎn)化在實(shí)際報(bào)表設(shè)計(jì)中的操作過程。 綜上所述，可以看出 ExcelVBA 正廣泛應(yīng)用在各種工程建設(shè)中，而 科學(xué)技術(shù)的進(jìn)步北 京 交 通 大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論 文 ） 緒論 5 和生產(chǎn)的發(fā)展是不會(huì)停滯不前的 ， 功能強(qiáng)大且大家所熟悉的 Excel 平臺(tái)，成本低廉，簡(jiǎn)單易懂，因而在中小設(shè)計(jì)科研單位的應(yīng)用前景值得看好。通過其在東風(fēng)水電站資料整編及應(yīng)力應(yīng)變計(jì)算中的應(yīng)用效果看 ， 這種思路較好地解決了監(jiān)測(cè)數(shù)據(jù)計(jì)算工作中經(jīng)常會(huì)遇到的枯燥、重復(fù)、繁瑣的人工處理和 Excel 表格中無法簡(jiǎn)單處理的計(jì)算問題 ， 同時(shí)提出了 ExcelVBA 在水電監(jiān)測(cè)工程的數(shù)據(jù)處理其它方面推廣應(yīng)用的思路 [2]。但如今線路線型的設(shè)計(jì)也越發(fā)趨于多樣化，復(fù)雜化，這導(dǎo)致測(cè)量的內(nèi)業(yè)計(jì)算需要更加大量復(fù)雜的計(jì)算，在此種背景下，如何能夠快速又精確的完成線路內(nèi)業(yè)計(jì)算，對(duì)從事測(cè)量工作的專業(yè)人士是很有幫助的。這 3 萬公里快速客運(yùn)網(wǎng)的建設(shè)，將使我國(guó)旅客運(yùn)輸邁上一個(gè)新臺(tái)階。鐵路運(yùn)輸達(dá)到國(guó)際先進(jìn)水平，同期，我國(guó)高速公路網(wǎng)絡(luò)進(jìn)一步完善，農(nóng)村公路建設(shè)步伐還在繼續(xù)加快。而 ExcelVBA 恰恰具備強(qiáng)大的數(shù)據(jù)分析與處理能力，所以通過詳細(xì)分析線路坐標(biāo)計(jì)算的方法，利用 ExcelVBA 功能編程來 計(jì)算，可以使線路坐標(biāo)計(jì)算變得既簡(jiǎn)單又方便，從而大大減輕工作量，提高工作效率。 畢業(yè)設(shè)計(jì)（ 論文 ） 中文題目： ExcelVBA 在 道路中樁放樣數(shù)據(jù) 計(jì)算中的應(yīng)用 學(xué)習(xí)中心 （函授站） ： 山西交通學(xué)習(xí)中心 專 業(yè)： 土木工程 姓 名： 陳南江 學(xué) 號(hào)： 14677167 指導(dǎo)教師： 張亮梅 北京交通大學(xué) 遠(yuǎn)程與繼續(xù)教育學(xué)院 2021 年 7 月 畢業(yè)設(shè)計(jì) (論文 )承諾書 與版權(quán)使用授權(quán)書 本人所 呈 交的畢業(yè)論文是本人在指導(dǎo)教師指導(dǎo)下獨(dú)立研究、寫作的成果。 請(qǐng)刪除填寫說明 指導(dǎo)教師： 年 月 日 中 期 報(bào) 告 題目： ExcelVBA 在 道路中樁放樣數(shù)據(jù) 計(jì)算中的應(yīng)用 學(xué)生姓名 ： 陳南江 學(xué)號(hào) ： 14677159 一、進(jìn)展情況 二、指導(dǎo)教師意見 指導(dǎo)教師： 年 月 日 結(jié) 題 驗(yàn) 收 一、完成日期 二、完成質(zhì)量 三、存在問題 四、結(jié)論 指導(dǎo)教師： 年 月 日北 京 交 通 大 學(xué) 畢 業(yè) 設(shè) 計(jì) （ 論文 ） 中 文 摘 要 i 中文摘要 摘要： 隨著社會(huì)的進(jìn)步，科技的發(fā)展， 我國(guó)的高速公路鐵路建設(shè)也進(jìn)入了一個(gè)空前繁榮的時(shí)期 ,而公路線形的設(shè)計(jì)也趨向多樣化、復(fù)雜化，導(dǎo)致線路坐標(biāo)計(jì)算往往既復(fù)雜又繁瑣，且極易出錯(cuò)。 “ 十一五 ” 時(shí)期，在大規(guī)模投資的帶動(dòng)下，我國(guó)交通運(yùn)輸?shù)木€路網(wǎng)絡(luò)和客貨運(yùn)量均快速增長(zhǎng)，對(duì)國(guó)民經(jīng)濟(jì)發(fā)展 的支撐作用明顯增強(qiáng)?？梢哉f我國(guó)在高速鐵路建設(shè)方面，將要用 15 年的時(shí)間走完世界所有發(fā)達(dá)國(guó)家近半個(gè)世紀(jì)走完的道路。如今，按照 “ 十二五 ” 規(guī)劃，鐵路在建和待建里程共計(jì) 公里，其中，在建鐵路規(guī)模達(dá) 3 萬多公里；公路在建里程 公里，可見，國(guó)家仍將對(duì)公路鐵路建設(shè)繼續(xù)給予大量投入及支持。 在水電工程安全監(jiān)測(cè) 方面，針對(duì)水電工程安全監(jiān)測(cè)數(shù)據(jù)種類繁多 ， 數(shù)據(jù)量大 ， 且較為零亂的情況，任律、 劉小兵 等通過總結(jié)以往監(jiān)測(cè)數(shù)據(jù)分析中的數(shù)據(jù)整編和實(shí)測(cè)值計(jì)算比較復(fù)雜的問題 ， 在基于大部分水電安全監(jiān)測(cè)的數(shù)據(jù)都存儲(chǔ)在 Excel 表格中的條件下 ，提出應(yīng)用編程簡(jiǎn)單、通用性強(qiáng)、針對(duì)性突出的 ExcelVBA 的方法對(duì)監(jiān)測(cè)數(shù)據(jù)進(jìn)行整 編和計(jì)算。并且通過規(guī)則場(chǎng)地和不規(guī)則場(chǎng)地兩個(gè)實(shí)例進(jìn)行了驗(yàn)證 [4]。 ，進(jìn)行操作界面的定制，使 Excel 環(huán)境成為一個(gè)業(yè)務(wù) 系統(tǒng)。 VBA 的主要特點(diǎn)和優(yōu)勢(shì) VBA 相對(duì)于其他編程語言而言，主要的特點(diǎn)及優(yōu)勢(shì)如下： ，但是 VBA 提供了一組基于 VB 開發(fā)系統(tǒng)的高級(jí)編程工具，有完整的集成開發(fā)環(huán)境（ DE），功能強(qiáng)大， 不需要應(yīng)用其他的工具創(chuàng)建解決方案。同時(shí)，宿主應(yīng)用程序提供的錄制宏功能，不僅為用戶提供了一種學(xué)習(xí)應(yīng)用程序編程模型的簡(jiǎn)單方法，而且能迅速 獲得并應(yīng)用滿足要求的 VBA 代碼。 Excel 的自動(dòng)化過程大都可以通過錄制宏完成，但是宏錄制器存在以下局限性： ； ，即用戶無法進(jìn)行輸入，計(jì)算機(jī)無法給出提示； Excel 對(duì)話框； ； VBA 可以解決以上問題，使 Excel 可以完成自身無法完成的任務(wù) [7]。 Sub 過程、 Function 函數(shù)是 VBA 中比較常用的過程，只不過 Function 函數(shù)是一種特殊的過程，它有返回值，而 Sub 過程沒有返回值 。 建立 Sub 過程的方法： (1)打開代碼編輯器窗口， (2)如圖 21所示，選擇 “ 插入 ” 菜單中的 “ 過程 ” ， (3)彈出如圖 22所示的 “ 添加過程 ” 對(duì)話框，從對(duì)話框中輸入過程名，并選擇類型和范圍， (4)在新創(chuàng)建的過程中輸入內(nèi)容。這里主要講賦值語句。 (1)For?next 循環(huán)語句用于控制循環(huán)次數(shù)預(yù)知的循環(huán)結(jié)構(gòu) 它的形式如下： For 循環(huán)變量 = 初值 To 終值 [Step 步長(zhǎng) ] 語句 塊 [Exit For] 語句塊 Next 循環(huán)變量 循環(huán)變量必須為數(shù)值型。 判斷結(jié)構(gòu) VBA 提供了多種形式的條件語句來實(shí)現(xiàn)選擇 結(jié)構(gòu)，有 If 條件語句和 Select情況語句等。通過 VBA編輯器創(chuàng)建宏， 比函數(shù)功能更便捷。 5. 適應(yīng)性強(qiáng) ： 對(duì)于用函數(shù)制作的表格 ， 當(dāng)改變數(shù)據(jù)時(shí)，經(jīng)常需要?jiǎng)邮指卤砀瘢ㄟ^ VBA編程則能自動(dòng)完成表格的更新。其中， R 及 ? 均為已知數(shù)據(jù)。自JD 起沿兩切線方向分別量出切線長(zhǎng) T ，即得曲線起點(diǎn) ZY 及曲線中點(diǎn) YZ。 如圖 33 所示，帶有緩和曲線的圓曲線其曲線要素可用下列公式求得： 北京交通大學(xué)畢業(yè)設(shè)計(jì)（論文） 18 圖 33 緩和曲線要素示意圖 切線長(zhǎng)： 2t a n)( ????? pRqTH （ 35） 曲線長(zhǎng)： sH lRL 2180 )2( 0 ???? ? ??? （ 36） 外矢距： RpREH ??? 2s e c)( ? （ 37） 切曲差： LTD HH ??2 （ 38） 式中， ? 為偏角， R 為圓曲線半徑， 0l 為緩和曲 線長(zhǎng)度， q 為加設(shè)緩和曲線后使切線增長(zhǎng)的距離， p 為加設(shè)緩和曲線后圓曲線相對(duì)于切線的內(nèi)移量， 0? 為HY 點(diǎn)（或 YH 點(diǎn)）的緩和曲線角度。 圖 34 有緩和曲線的圓曲線主要點(diǎn)測(cè)設(shè) 各主要點(diǎn)的里程計(jì)算出后，就可以進(jìn)行測(cè)設(shè)。 曲線坐標(biāo)計(jì)算的的方法有多種， 這里只介紹偏角法和切線支距法。其中 ： Rlb s3200 ?? ? （ 316） 用偏角法測(cè)設(shè)曲線的計(jì)算和操作方法都比較簡(jiǎn)單、靈活，且可以自行閉合、自行檢核，故應(yīng)用比較廣泛 [9]。 ? 當(dāng)點(diǎn)位于圓曲線上時(shí)，各樁點(diǎn)坐標(biāo)同 用切線支距法進(jìn)行單圓曲線詳細(xì)測(cè)設(shè)方法類似，但坐標(biāo)計(jì)算公式略有不同，需要加上 p 和 q 。如圖 38 所示， HZ 點(diǎn)的坐標(biāo)為： ????????sincos221 Ty TTxHZHZ （ 321） 2T HZ 左? ZH 1T JD 右? 2T HZ 圖 38 HZ點(diǎn)在 ZH切線直角坐標(biāo)系中的坐標(biāo) 過 HZ 點(diǎn)緩和曲線的切線 x 軸在一直緩點(diǎn) ZH 為原點(diǎn)的切線直角坐標(biāo)系中的方位角 右???180 或 左???180 ，并考慮以緩直點(diǎn) HZ為原點(diǎn)的 y 軸方向與以 ZH為原點(diǎn)的 y 軸方向相反，通過坐標(biāo)轉(zhuǎn)換，若 ? 為右偏角，則另一半曲線任意一點(diǎn)的坐標(biāo)為 [12]： ?????????????????c oss i ns i nc osiiHZiiiHZi yxyy yxxx （ 322） 若 ? 為左偏角，則另一半曲線任意一點(diǎn)的坐標(biāo)為： ?????????????????c oss i ns i nc osiiHZiiiHZi yxyy yxxx （ 323） 切線直角系中的坐標(biāo)轉(zhuǎn)換到測(cè)量坐標(biāo)系中的坐標(biāo) 為了在已知坐標(biāo)的測(cè)量控制點(diǎn)上進(jìn)行曲線放樣，必須將以 ZH 點(diǎn)為原點(diǎn)的切線直角坐標(biāo)系中的曲線坐標(biāo)轉(zhuǎn)換到線路導(dǎo)線測(cè)量坐標(biāo)系中去。 基礎(chǔ)模塊設(shè)計(jì)簡(jiǎn)介 每個(gè) VBA 應(yīng)用程序都存在于一個(gè)“工程”中。每個(gè)過程都有唯一的名字，過程中包含一系列語句。例如： Public R， Ls， T， L， j as Double 等等，其中 Double 為雙精度變量類型。注意， 依次計(jì)算 ， 順序點(diǎn)擊按鈕， 否則會(huì)導(dǎo)致計(jì)算結(jié)果有誤。注意，不能打亂點(diǎn)擊順序，否則會(huì)造成計(jì)算結(jié)果 輸出有誤。下面是簡(jiǎn)單的程序模塊設(shè)計(jì)，北京交通大學(xué)畢業(yè)設(shè)計(jì)（論文） 29 如圖 43 所示： 圖 43 程序模塊的插入 緩和曲線數(shù)據(jù)編程計(jì)算以及成果輸出 為了減少工作中的繁重計(jì)算，應(yīng)用 VBA 編寫相應(yīng)數(shù)據(jù)計(jì)算程序，操作簡(jiǎn)單，應(yīng)用方便，從而大大的增加了工作效率。 在“視圖”菜單中選擇“工程資源管理器”命令，或在“標(biāo)準(zhǔn)”工具欄上單擊“工程資源管理器” 按鈕，打開“工程”任務(wù)窗體。 編程界面的進(jìn)入和基本子程序 首先，新建一個(gè) Excel 工作表，然后通過 “ 工具 ” 選項(xiàng)卡下的 “ 宏 ” 子菜單中的 “ Visual Basic 編輯器 ” 進(jìn)入 VBE