江鑫林（四川省攀枝花市仁和區(qū)住房和城鄉(xiāng)建設(shè)局　四川攀枝花　617068）

淺談excelVBA在道路測量中的應(yīng)用

江鑫林
（四川省攀枝花市仁和區(qū)住房和城鄉(xiāng)建設(shè)局四川攀枝花617068）

Excel軟件是所有軟件中最優(yōu)秀、也最為普及的一款辦公軟件，利用excel二次開發(fā)平臺，可以實現(xiàn)它本身不具備的很多功能，可以實現(xiàn)操作自動化，進而全面提高工作效率。隨著社會的發(fā)展，我國的市政、公路、鐵路等基礎(chǔ)工程進入了全面建設(shè)時期，在實際施工過程中，線路坐標計算涉及到大量的數(shù)據(jù)計算，工作量很大，利用excel二次開發(fā)功能編制程序來計算可以減輕工作量，而且不易出現(xiàn)錯誤。下面，就如何利用excelVBA對線路坐標計算進行探討。

1　已知某線路為

直線+緩和曲線+圓曲線+緩和曲線+直線，從小里程至大里程依次為ZH（直緩點）、HY（緩圓點）、YH（圓緩點）、HZ（緩直點）如圖1所示。

圖1　

2　路線要素表（如表1所示）

3　角度轉(zhuǎn)化為弧度

打開excel2007，按alt+F11進入VBS，點擊，<插入>-<模塊1>，在VBS工程資源管理器上雙擊<模塊1>，在右側(cè)窗口輸入以下代碼：

由于在excel中不能識別角度，因此自定義名稱為jdzh（）的函數(shù)將角度轉(zhuǎn)換為弧度。

表1　已知路線要素表

4　計算線路中樁坐標

<插入>-<模塊2>，在VBS工程資源管理器上雙擊<模塊2>，在右側(cè)窗口輸入以下代碼：

以上代碼分別為在VBA中自定義名稱為xzb（）、yzb（）的道路中樁坐標計算函數(shù)。

5　計算線路邊樁坐標

<插入>-<模塊3>，在VBS工程資源管理器上雙擊<模塊3>，在右側(cè)窗口輸入以下代碼：

以上代碼分別為在VBA中自定義名稱為xzbz（）、xybz（）、yzbz（）、yybz（）的道路邊樁坐標計算函數(shù)。

6　坐標計算結(jié)果（如表2所示）

在坐標計算表中，里程樁號這列單元格格式設(shè)置為k00+ 000.00，輸入時注意直接輸入數(shù)據(jù)即可。

表2　坐標計算表

7　結(jié)束語

無論是公路、鐵路、市政工程，在施工測量中都涉及到道路中樁、邊樁坐標的計算，利用傳統(tǒng)的計算方法會涉及到大量的數(shù)據(jù)計算，工作量很大，且容易出錯，利用excelVBA二次開發(fā)功能，通過自定義函數(shù)編程不僅能靈活計算出道路在各種不同線型下的坐標，同時利用excel的自動填充功能可以方便的計算出任何待求點的坐標，從而大大的提高工作的效率。

[1]《公路施工測量手冊》.人民交通出版社，2008，5.

[2]《excelVBA語法與應(yīng)用詞典》.中國青年出版社，2008.

TP391

A

1673-0038（2015）51-0264-03

2015-12-1

江鑫林（1983-），男，苗族，四川攀枝花人，助理工程師，本科，主要從事工程管理等相關(guān)工作。