Excel隧洞计算程序(坐标)
小白自学ExcelVBA道路坐标高程计算程序流程汇编
小白自学ExcelVBA道路坐标高程计算程序流程1声明1.1 本人是个工作时间不长测量施工员。
1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的……1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。
其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。
1.4 谷歌、度娘，是咱的好帮手。
1.5 仰望的存在，神一般的存在，无私的化身！道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077）曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316）陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！1.6 道路中边桩坐标计算程序120424.xls代码获取。
王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！2 代码理解ing…我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。
现在咱们冲呀！2.1 第一段代码理解貌似第一段代码是定义的意思“定义π值”、'定义桩号点”、“'定义坡段”、“'定义基本曲线”①Public Const PI As Double = 3.14159265358979谷歌翻译：Public Const PI As Double公共常量PI 作为双精度浮点型百度百科：双精度浮点数双精度浮点数（Double）用来表示带有小数部分的实数，一般用于科学计算，用8个字节（64位）存储空间，其数值范围为1.7E-308～1.7E+308，双精度浮点数最多有15或16位十进制有效数字，双精度浮点数的指数用“D”或“d”表示。
excel坐标计算
交点编号ZD1计算得出的数E(外失距)T(切线长)L(曲线总长)653.5902967.1565530.513输入里程偏移距离X坐标Y坐标所在位置381259.68558945.9153503012.1960在第一缓和曲线上381260558945.9852503012.5083在第一缓和曲线上381270558948.1695503022.2668在第一缓和曲线上381280558950.3543503032.0252在第一缓和曲线上381290558952.54503041.7834在第一缓和曲线上381300558954.7269503051.5414在第一缓和曲线上381310558956.9156503061.2989在第一缓和曲线上381320558959.1063503071.056在第一缓和曲线上381330558961.2996503080.8125在第一缓和曲线上381340558963.4959503090.5683在第一缓和曲线上381350558965.6956503100.3234在第一缓和曲线上381360558967.8991503110.0776在第一缓和曲线上381370558970.1068503119.8309在第一缓和曲线上381380558972.3192503129.5831在第一缓和曲线上381390558974.5367503139.3341在第一缓和曲线上381400558976.7596503149.0839在第一缓和曲线上381410558978.9885503158.8323在第一缓和曲线上381420558981.2238503168.5793在第一缓和曲线上381430558983.4658503178.3248在第一缓和曲线上381440558985.7149503188.0685在第一缓和曲线上381450558987.9717503197.8105在第一缓和曲线上381460558990.2365503207.5507在第一缓和曲线上381470558992.5098503217.2889在第一缓和曲线上381480558994.7919503227.025在第一缓和曲线上381490558997.0833503236.7589在第一缓和曲线上381500558999.3844503246.4906在第一缓和曲线上381510559001.6957503256.2198在第一缓和曲线上381520559004.0174503265.9466在第一缓和曲线上381530559006.3502503275.6707在第一缓和曲线上381540559008.6943503285.392在第一缓和曲线上381550559011.0502503295.1106在第一缓和曲线上381560559013.4183503304.8261在第一缓和曲线上381570559015.7991503314.5386在第一缓和曲线上381580559018.1929503324.2478在第一缓和曲线上381590559020.6001503333.9538在第一缓和曲线上381600559023.021*******.6563在第一缓和曲线上381610559025.4567503353.3552在第一缓和曲线上381620559027.9068503363.0504在第一缓和曲线上381630559030.3721503372.7417在第一缓和曲线上381640559032.852*******.4291在第一缓和曲线上381650559035.3496503392.1124在第一缓和曲线上381660559037.8627503401.7915在第一缓和曲线上381670559040.3925503411.4662在第一缓和曲线上381679.68559042.8578503420.827在圆曲线上381680559042.9395503421.1364在圆曲线上381700559048.0862503440.4628在圆曲线上381720559053.3031503459.7704在圆曲线上381740559058.5902503479.0589在圆曲线上381760559063.9474503498.3281在圆曲线上381780559069.3747503517.5776在圆曲线上381800559074.8719503536.8073在圆曲线上381820559080.4389503556.0168在圆曲线上381840559086.0758503575.206在圆曲线上381860559091.7825503594.3746在圆曲线上381880559097.5588503613.5223在圆曲线上381900559103.4047503632.6488在圆曲线上381920559109.3201503651.754在圆曲线上381940559115.305503670.8375在圆曲线上381960559121.3591503689.8992在圆曲线上381980559127.4826503708.9387在圆曲线上382000559133.6753503727.9558在圆曲线上382020559139.9371503746.9502在圆曲线上382040559146.2679503765.9218在圆曲线上382060559152.6676503784.8702在圆曲线上382080559159.1363503803.7953在圆曲线上382100559165.6736503822.6966在圆曲线上382120559172.2797503841.5741在圆曲线上382140559178.9544503860.4274在圆曲线上382160559185.6976503879.2564在圆曲线上382180559192.5092503898.0607在圆曲线上382200559199.3892503916.8401在圆曲线上382220559206.3374503935.5943在圆曲线上382240559213.3537503954.3232在圆曲线上382260559220.4381503973.0264在圆曲线上382280559227.5905503991.7038在圆曲线上382300559234.8107504010.355在圆曲线上382320559242.0987504028.9798在圆曲线上382340559249.4544504047.578在圆曲线上382360559256.8777504066.1494在圆曲线上382380559264.3685504084.6936在圆曲线上382400559271.9266504103.2104在圆曲线上382420559279.552504121.6997在圆曲线上382440559287.2446504140.1611在圆曲线上382460559295.0043504158.5944在圆曲线上382480559302.831504176.9994在圆曲线上382500559310.7245504195.3757在圆曲线上382520559318.6849504213.7233在圆曲线上382540559326.7118504232.0418在圆曲线上382560559334.8054504250.331在圆曲线上382580559342.9654504268.5906在圆曲线上382600559351.1917504286.8204在圆曲线上382620559359.4843504305.0202在圆曲线上382640559367.843504323.1898在圆曲线上382660559376.2677504341.3288在圆曲线上382680559384.7583504359.437在圆曲线上382700559393.3147504377.5143在圆曲线上382720559401.9368504395.5603在圆曲线上384850560668.0166506091.886在圆曲线上384851560668.7578506092.5573在圆曲线上382740559410.6245504413.5749在圆曲线上382760559419.3776504431.5577在圆曲线上382780559428.196504449.5086在圆曲线上382800559437.0797504467.4273在圆曲线上382820559446.028*******.3136在圆曲线上382840559455.0422504503.1673在圆曲线上382860559464.1208504520.988在圆曲线上382880559473.2641504538.7756在圆曲线上382900559482.4721504556.5298在圆曲线上382920559491.7445504574.2505在圆曲线上382940559501.0814504591.9373在圆曲线上382960559510.4825504609.59在圆曲线上385087.095560847.1194506247.2164在圆曲线上382980559519.9477504627.2084在圆曲线上383000559529.4769504644.7923在圆曲线上383020559539.07504662.3415在圆曲线上383040559548.7269504679.8556在圆曲线上383060559558.4474504697.3345在圆曲线上383080559568.2313504714.7779在圆曲线上383100559578.0787504732.1857在圆曲线上383120559587.9893504749.5575在圆曲线上383140559597.963504766.8931在圆曲线上383160559607.9996504784.1924在圆曲线上383180559618.0991504801.4551在圆曲线上383200559628.2613504818.6809在圆曲线上383220559638.4861504835.8697在圆曲线上383240559648.7733504853.0211在圆曲线上383260559659.1228504870.1351在圆曲线上383280559669.5345504887.2113在圆曲线上383300559680.0082504904.2495在圆曲线上383320559690.5438504921.2495在圆曲线上383340559701.1411504938.2111在圆曲线上383360559711.8001504955.1341在圆曲线上383380559722.5205504972.0182在圆曲线上383400559733.3022504988.8632在圆曲线上383420559744.1451505005.6688在圆曲线上383440559755.0491505022.435在圆曲线上383460559766.014505039.1613在圆曲线上383480559777.0396505055.8477在圆曲线上383500559788.1258505072.4939在圆曲线上383520559799.2725505089.0997在圆曲线上383540559810.4794505105.6648在圆曲线上383560559821.7466505122.189在圆曲线上383580559833.0737505138.6722在圆曲线上383600559844.4608505155.1141在圆曲线上383620559855.9075505171.5145在圆曲线上383640559867.4138505187.8731在圆曲线上383660559878.9795505204.1898在圆曲线上383680559890.6045505220.4643在圆曲线上383700559902.2885505236.6964在圆曲线上383720559914.0315505252.8859在圆曲线上383740559925.8334505269.0327在圆曲线上383760559937.6938505285.1364在圆曲线上383780559949.6127505301.1968在圆曲线上383800559961.59505317.2139在圆曲线上383820559973.6254505333.1872在圆曲线上383840559985.7188505349.1167在圆曲线上383860559997.8701505365.0021在圆曲线上383880560010.079505380.8433在圆曲线上383900560022.3455505396.6399在圆曲线上383920560034.6693505412.3918在圆曲线上383940560047.0504505428.0988在圆曲线上383960560059.4884505443.7607在圆曲线上383980560071.9834505459.3772在圆曲线上384000560084.535505474.9482在圆曲线上384020560097.1432505490.4734在圆曲线上384040560109.8077505505.9527在圆曲线上384060560122.5285505521.3859在圆曲线上384080560135.3053505536.7727在圆曲线上进口384082560136.586505538.3088在圆曲线上384100560148.1379505552.1129在圆曲线上384120560161.0263505567.4063在圆曲线上384140560173.9702505582.6528在圆曲线上384160560186.9694505597.8522在圆曲线上384180560200.023*******.0041在圆曲线上384200560213.1333505628.1085在圆曲线上384220560226.2976505643.1651在圆曲线上384240560239.5165505658.1737在圆曲线上384260560252.7899505673.1342在圆曲线上384280560266.1177505688.0463在圆曲线上384300560279.4995505702.9098在圆曲线上384320560292.9354505717.7246在圆曲线上384340560306.425505732.4905在圆曲线上384360560319.9682505747.2071在圆曲线上386370.194561920.5846506944.755在第二缓和曲线上386380561929.3769506949.097在第二缓和曲线上386390561938.3509506953.5091在第二缓和曲线上386400561947.3326506957.9057在第二缓和曲线上386410561956.3217506962.2871在第二缓和曲线上386420561965.318506966.6536在第二缓和曲线上386430561974.3212506971.0058在第二缓和曲线上386440561983.3313506975.3439在第二缓和曲线上386450561992.3479506979.6683在第二缓和曲线上386460562001.3708506983.9795在第二缓和曲线上386470562010.3999506988.2777在第二缓和曲线上386480562019.435506992.5635在第二缓和曲线上386490562028.4758506996.8371在第二缓和曲线上386500562037.5222507001.0989在第二缓和曲线上386510562046.5739507005.3494在第二缓和曲线上386520562055.6307507009.5889在第二缓和曲线上386530562064.6926507013.8178在第二缓和曲线上386540562073.7591507018.0365在第二缓和曲线上386550562082.8303507022.2454在第二缓和曲线上386560562091.9058507026.4448在第二缓和曲线上386570562100.9854507030.6352在第二缓和曲线上386580562110.0691507034.8169在第二缓和曲线上386590562119.1566507038.9904在第二缓和曲线上386600562128.2477507043.156在第二缓和曲线上386610562137.3422507047.3141在第二缓和曲线上386620562146.4399507051.4651在第二缓和曲线上386630562155.5407507055.6094在第二缓和曲线上386640562164.6444507059.7474在第二缓和曲线上386650562173.7508507063.8795在第二缓和曲线上386660562182.8597507068.006在第二缓和曲线上386670562191.9709507072.1274在第二缓和曲线上386680562201.0842507076.2441在第二缓和曲线上386690562210.1995507080.3564在第二缓和曲线上386700562219.3166507084.4648在第二缓和曲线上386710562228.4353507088.5696在第二缓和曲线上386720562237.5554507092.6712在第二缓和曲线上386730562246.6768507096.7701在第二缓和曲线上386740562255.7992507100.8666在第二缓和曲线上386750562264.9226507104.9611在第二缓和曲线上386760562274.0466507109.054在第二缓和曲线上386770562283.1712507113.1457在第二缓和曲线上386780562292.2961507117.2367在第二缓和曲线上386790562301.4212507121.3272在第二缓和曲线上386790.194562301.5982507121.4065里程大于第二曲线终点出的数据77.38323998X,YZH点558945.915262433,503012.196005598558945.985159621,503012.508278528558948.169524053,503022.266790301558950.354324447,503032.025204476558952.539983235,503041.783426423558954.726922822,503051.541361401558956.915565577,503061.298914505558959.106333821,503071.055990605558961.299649809,503080.812494298558963.495935725,503090.568329848558965.695613664,503100.323401136558967.899105623,503110.0776116558970.106833485,503119.830864183558972.319219007,503129.58306128558974.536683812,503139.33410468558976.759649366,503149.083895513558978.988536976,503158.832334194558981.223767767,503168.579320371558983.465762675,503178.324752868558985.714942431,503188.068529631558987.971727545,503197.810547675558990.236538297,503207.550703026558992.509794716,503217.288890671558994.791916572,503227.025004501558997.083323356,503236.758937257558999.384434271,503246.490580475559001.695668208,503256.219824436559004.017443738,503265.946558106559006.350179094,503275.670669084559008.694292153,503285.39204355559011.050200422,503295.110566211559013.418321019,503304.826120244559015.799070658,503314.538587243559018.192865629,503324.247847169559020.600121785,503333.953778293559023.021254516,503343.656257141559025.456678739,503353.355158447559027.906808873,503363.05035509559030.372058821,503372.741718051559032.852841953,503382.429116352559035.349571081,503392.112417007559037.862658444,503401.791484967559040.392515682,503411.466183069 HY点559042.857778326,503420.826997207559042.939545997,503421.136377572 559048.086221484,503440.462817768 559053.303140754,503459.770415044 559058.590234822,503479.058914092 559063.947433775,503498.32805986 559069.374666776,503517.577597547 559074.871862058,503536.807272616 559080.438946933,503556.01683079 559086.075847786,503575.206018058 559091.782490078,503594.374580679 559097.558798352,503613.522265186 559103.404696225,503632.648818385 559109.320106397,503651.753987364 559115.304950647,503670.837519493 559121.359149838,503689.899162429 559127.482623913,503708.938664115 559133.675291902,503727.955772792 559139.937071917,503746.950236992 559146.267881159,503765.921805551 559152.667635915,503784.870227604 559159.136251559,503803.795252594 559165.673642557,503822.696630273 559172.279722463,503841.574110706 559178.954403924,503860.427444274 559185.697598682,503879.256381676 559192.509217568,503898.060673936 559199.389170513,503916.8400724 559206.337366542,503935.594328749 559213.353713778,503954.32319499 559220.438119443,503973.026423471 559227.590489859,503991.703766876 559234.810730449,504010.354978232 559242.09874574,504028.979810912 559249.45443936,504047.578018637 559256.877714045,504066.149355481 559264.368471636,504084.693575873 559271.926613081,504103.2104346 559279.552038439,504121.699686812 559287.244646877,504140.161088022 559295.004336674,504158.594394114 559302.831005224,504176.999361341 559310.724549034,504195.375746333 559318.684863726,504213.723306095 559326.71184404,504232.041798016 559334.805383834,504250.330979869 559342.965376087,504268.590609812 559351.191712897,504286.820446397 559359.484285487,504305.020248568 559367.842984203,504323.189775667 559376.267698517,504341.328787436 559384.758317027,504359.437044021 559393.314727463,504377.514305973 559401.93681668,504395.560334255 560668.016616769,506091.886043581560668.757845184,506092.557296464559410.624470668,504413.574890242559419.377574549,504431.557735726559428.19601258,504449.508632916559437.079668153,504467.427344445559446.028423798,504485.313633374559455.042161186,504503.167263188559464.120761126,504520.987997807559473.26410357,504538.775601585559482.472067616,504556.529839315559491.744531505,504574.250476229559501.081372626,504591.937278006559510.482467517,504609.590010772 QZ点560847.119439937,506247.216378716559519.947691866,504627.2084411559529.476920514,504644.792336022559539.070027453,504662.341463022559548.726885834,504679.855590047559558.447367962,504697.334485505559568.231345303,504714.77791827559578.07868848,504732.185657686559587.989267283,504749.557473568559597.962950661,504766.893136206559607.999606732,504784.192416368559618.09910278,504801.455085304559628.261305258,504818.680914748559638.486079789,504835.869676921559648.773291171,504853.021144532559659.122803373,504870.135090786559669.534479544,504887.211289384559680.008182008,504904.249514524559690.543772271,504921.249540908559701.141111018,504938.211143742559711.80005812,504955.134098741559722.520472632,504972.018182131559733.302212798,504988.863170651559744.145136048,505005.668841557559755.049099005,505022.434972628559766.013957484,505039.16134216559777.039566497,505055.847728981559788.12578025,505072.493912443559799.272452148,505089.099672432559810.479434799,505105.664789368559821.746580009,505122.189044209559833.073738793,505138.672218451559844.460761371,505155.114094137559855.907497169,505171.514453852559867.413794827,505187.873080733559878.979502195,505204.189758468559890.604466339,505220.464271299559902.288533539,505236.696404027559914.031549297,505252.885942011559925.833358332,505269.032671176559937.693804589,505285.136378011559949.612731234,505301.196849574559961.589980662,505317.213873498559973.625394498,505333.187237985559985.718813594,505349.116731818559997.870078038,505365.002144361560010.079027153,505380.843265557560022.345499497,505396.639885937560034.66933287,505412.391796622560047.050364312,505428.098789321560059.488430108,505443.760656339560071.983365787,505459.377190578560084.535006127,505474.948185536560097.143185156,505490.473435319560109.807736154,505505.952734632560122.528491657,505521.385878792560135.305283457,505536.772663724560136.586038135,505538.308784621560148.137942603,505552.112885967560161.02629941,505567.406342674560173.970183451,505582.652831619560186.969423569,505597.852151195560200.023847873,505613.004100421560213.133283742,505628.108478939560226.29755783,505643.165087022560239.516496062,505658.173725576560252.789923644,505673.134196139560266.117665058,505688.046300887560279.499544072,505702.909842635560292.935383734,505717.724624841560306.425006381,505732.490451606560319.968233637,505747.207127682 YH点561920.584583174,506944.755043672561929.376900375,506949.097019472561938.350934573,506953.509124556561947.33259918,506957.905676113561956.321677559,506962.28705008561965.317955025,506966.653623403561974.321218797,506971.005774001561983.331257952,506975.34388074561992.347863376,506979.668323402562001.370827715,506983.97948265562010.399945329,506988.277740007562019.435012241,506992.563477819562028.47582609,506996.83707923562037.522186081,507001.098928153562046.573892938,507005.349409241562055.630748851,507009.58890786562064.692557431,507013.81781006562073.759123659,507018.036502551562082.830253835,507022.245372673562091.905755531,507026.444808368562100.985437538,507030.635198161562110.069109819,507034.816931125562119.156583457,507038.99039686562128.247670606,507043.155985468562137.342184442,507047.314087525562146.439939107,507051.465094057562155.540749667,507055.609396517562164.644432055,507059.747386757562173.750803021,507063.879457004562182.859680085,507068.005999839562191.970881484,507072.12740817562201.084226118,507076.244075207562210.199533507,507080.356394442562219.31662373,507084.46475962562228.435317384,507088.569564722562237.555435524,507092.671203934562246.676799619,507096.770071629562255.799231496,507100.866562344562264.922553291,507104.961070751562274.046587398,507109.053991641562283.171156418,507113.145719896562292.296083104,507117.236650468562301.421190314,507121.327178354 HZ点562301.598218,507121.406533243。
EXCLE函数和隧道工程应用实例
2019/9/18
5
3、逻辑函数
• 本类我们重点看一下条件选择函数的用法。
• IF(logical_test,value_if_true,value_if_false) • 其中Logical_test 表示计算结果为 TRUE 或 FALSE 的任意值或
表达式。此参数可使用任何比较运算符。 • Value_if_true 是 logical_test 为 TRUE 时返回的值或表达式 • Value_if_false 是 logical_test 为 FALSE 时返回的值或表达式。 • 此函数可以嵌套使用，最多可以嵌套64层。
• 时间值为日期值的一部分，并用十进制数来表示（例如 12:00 PM 可表示为 0.5，因为此时是一天的一半）。
• DATE(year,month,day) 返回特定日期的序列号 • 如果 year 位于 0（零）到 1899（包含）之间，则 Excel 会
将该值加上 1900，再计算年份。例如：DATE(108,1,2) 将返 回 2008 年 1 月 2 日 (1900+108)。 • 如果 year 位于 1900 到 9999（包含）之间，则 Excel 将使 用该数值作为年份。例如：DATE(2008,1,2) 将返回 2008 年 1 月 2 日。 • 如果 year 小于 0 或大于等于 10000，则 Excel 将返回错误 值 #NUM!。
表中两个竖曲线把线路设计标高分成了5个不同的区段，每个区段 的曲线要素和算法都有不同，这给我们现场计算带来很多麻烦， 我们拿到一个里程，先好看它位于哪个区段，在去查这个区段 的曲线参数，然后定算法，这样就比较麻烦。
五个区段的具体参数和算法如下表所示：
2019/9/18
Excel函数进行测量坐标批量计算的编程应用
Excel函数进⾏测量坐标批量计算的编程应⽤Excel函数进⾏测量坐标批量计算的编程应⽤陈兵何红玲（中国⼀冶集团有限公司，湖北武汉430080）关键词Excel函数测量坐标坐标计算1前⾔提起Excel电⼦表格，我们往往想起它在办公管理、统计财经、⾦融等众多领域的应⽤,可以进⾏各种数据的处理、统计分析和辅助决策操作，然⽽Excel中函数对于测量⾏业也能发挥不⼩的作⽤，⽐如在⾼速公路项⽬中，要花费⼤量时间对线路放样坐标进⾏逐桩计算和校核，采⽤传统的⽅法去计算这些坐标，很是费时费⼒，⽽且效率不⾼，⽽运⽤Excel电⼦表格中的函数功能编缉公式，实现逐桩坐标批量计算，可⼤⼤提⾼⼯作效率，减少计算错误，实现便捷化⼯作模式。
2测量坐标计算依据2.1 ⽅位⾓与象限⾓的关系由坐标纵轴的北端或南量⾄直线的锐⾓，称为该直线的象限⾓，⽤R表⽰，其⾓值范围为0?～90?。
如图1所⽰，直线01、02、03和04的象限⾓分别为北东R01、南东R02、南西R03和北西R04，则直线⽅位⾓和象限⾓的位置关系如图2，坐标⽅位⾓与象限⾓的换算关系如表1：图1 象限⾓表1 ⽅位⾓与象限⾓的换算关系象限坐标增量由象限⾓求⽅位⾓由⽅位⾓求象限⾓Ⅰ北东△x ＞0,△y ＞0 α01=R 01 R 01=α01 Ⅱ南东△x ＜0,△y ＞0 α02=180-R 02 R 02=180-α02 Ⅲ南西△x ＜0,△y ＜0 α03=180+R 03 R 03=α03-180 Ⅳ北西△x ＞0,△y ＜0α04=360-R 04R 04=360-α042.2 坐标正算和反算 2.2.1.坐标正算根据已知点的坐标，已知边长及该边的坐标⽅位⾓，计算未知点的坐标的⽅法，称为坐标正算。
如图3所⽰，A 点为已知点，坐标为X A 、Y A ，已知AB 边长D AB ，坐标⽅位⾓为αAB ，要求B点坐标X B 、Y B 。
由图3可知 X B =X A +△X AB Y B =Y A +△Y AB 其中△X AB = D AB cos αAB△Y AB = D AB sin αAB上⾯式中sin 和cos 的函数值随着α所在象限的不同有正、负之分，因此，坐标增量同样具有正、负号。
坐标正算、反算计算方法及在Excel中的VBA编程
坐标正算、反算计算方法及在Excel 中的VBA 编程测量中经常需要将某点相对坐标系坐标转换成线路的里程、偏距，或根据线路某一里程偏距计算出对应的相对坐标系坐标，为寻求一种快速简单高效的计算方法，本文对线路正算反算的原理进行了阐述，并结合Excel VBA 编程，将编程和Excel 的拖拽的功能相结合，编制出实用计算表，特别适用于需要大量计算边桩、围护桩的情况。
关键词：坐标方位角坐标正算坐标反算 V AB 编程循环迭代直接算法一、坐标方位角的反算1.坐标方位角反算如图1所示，已知点A 、B 的坐标，求直线AB坐标方位角α。
图1坐标方位角反算直线AB 之间的坐标增量：AB B AAB B Ax x x y y y ∆=−∆=−当0,0AB AB x y ∆>∆>时，角α位于第一象限角：arctan ABABy x α∆=∆当0,0AB AB x y ∆<∆>时，角α位于第二象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆<∆<时，角α位于第三象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆>∆<时，角α位于第二象限角：arctan360AB AB y x α∆=+°∆2.坐标方位角反算的VBA 编程可用VBA 将上述过程定义为一个名为angel()的函数，代码如下：Function angel(x0As Double, y0 As Double, x1 As Double, y1 As Double) As Double dx = x1- x0dy = y1- y0If dx > 0 And dy > 0 Thenangel = Atn(dy / dx)End IfIf dx < 0 And dy > 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx < 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx > 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979 * 2End IfEnd Function二、直线段坐标正算与反算1.直线段正算图2直线段计算已知HZ 点坐标（x1,y1）、里程N HZ ，ZH 点坐标（x2,y2），正算时已知P 点对应的中桩里程Np 和偏距e （规定沿着线路前进方向，左边偏距为负，右边偏距为正），Np>N HZ ，求P 点对应的坐标。
Excel电子表格在公路-铁路工程缓和曲线坐标计算中的应用
3、鼠标选中表格的第二栏(B列)中39820一行，在表头上方的编辑栏内先输入“=”号，
然后输入X坐标的计算公式（公式1、公式2），该公式显示在表头的计算栏内，按回车键，电脑将进行自动计算，坐标计算结果显示在对应的表格里；同理在对应的第三栏（C列）输入Y坐标的计算公式，按回车键，坐标计算结果会自动显示在Y栏对应的表格里，求得的X值和Y值即为K39+820X坐标计算公式在Excel表格编辑栏显示格式如下：
=3770069.532+SQRT(((A6-39815.899)-(A6-39815.899)_/(40*615_*174.293_)+(A6-39815.899)/(3456*615_*174.293_)-(A6-39815.899)
4、将鼠标分别放在k39+820所在行对应的X、Y坐标栏的右下角，当出现“+”号时，按住鼠标左键往下拖，各桩号的坐标成果就会自动显示在对应的X、Y栏内。
输入公式时一定要注意，角度要换算成弧度,计算成果要和图纸上给出的已知点坐标进行比较，看看是否和图纸成果一致，确保正确无误后，可以根据自己的需要设计出不同形式的输出表格，打印或者传输到全站仪内存中，作为施工放样资料进行工程定位和施工过程控制。
EXCEL电子表格在隧道轴线计算中的简单应用(修正)
EXCEL电子表格在隧道轴线计算中的简单应用张子敏一、前言在盾构施工中，隧道轴线数据一般采用可编程计算器进行计算，操作繁琐且效率不高，对于后期的数据整理造成困难，工作量较多。
本文通过将设计轴线计算和平面偏差计算的FX-5800P计算器运算程序转化成EXCEL电子表格形式，将计算器的运算语言转化成公式，其中结合相关函数的运用，可有效降低计算工作量，提高工作效率，便于后期数据整理。
二、设计轴线计算1、设计平面坐标计算（1）直线段Fx-5800P计算器程序：“N”?→N （N：计算里程）L 0-N→L或N-L→L沿计算方向里程变小或变大（L：直线段起始里程）ω→C （ω：直线段方位角）L·COS(C)+“X0”◢（X:已知起始里程坐标X值）L·SIN(C)+“Y0”（Y:已知起始里程坐标Y值）EXCEL电子表格：N——输入计算里程值；C——输入已知直线段方位角的弧度值；L——输入该直线段起始里程；L——输入公式：N-L0或L-N。
得到计算里程至起始里程的距离；X——输入公式：L·COS(C)+“起始里程坐标X值”，求得计算里程坐标X值；Y——输入公式：L·SIN(C)+“起始里程坐标Y值”，求得计算里程坐标Y值。
（2）缓和曲线段Fx-5800P计算器程序：“N”?→NL 0-N→L或N-L→L沿计算方向里程变小或变大f 1 (L)→E（f1(L):已知相对坐标X值方程）f 2 (E)→F（f2(E):已知相对坐标Y值方程）Pol(E,F)（生成I值：距离； J值：角度）ω±J→C 根据计算距离起始方向定“±”（ω:直线段方位角）I·COS(C)+ “X0”◢（X:已知起始里程坐标X值）I·SIN(C)+ “Y0”（Y:已知起始里程坐标Y值）EXCEL电子表格：N——输入计算里程值；L——输入该缓和曲线段起始里程；L——输入公式：N-L0或L-N。
教你如何通过Excel VBA编写测量坐标计算程序
教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VB A)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA是V B应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。
如果你已经了解VB会发现学习VBA非常快。
相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。
它运用范围广，计算速度快，计算精度高，合理化显示等。
或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。
Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
利用EXCEL进行道路中边线逐桩坐标计算
利用EXCE L 进行道路中边线逐桩坐标计算张宝利1,薛志勤2(1.西北农林科技大学资源与环境学院,陕西杨凌 712100;2.华南农业大学信息与软件学院,广州 510642)摘要:利用坐标增量的基本思想,将道路曲线坐标的计算归结为3种最基本的形式———直线段、圆曲线段、缓和曲线段,直接计算出中、边线的测量坐标,省去了切线支距法坐标向测量坐标的转换过程,简化了计算思路,节约了计算量。
并利用办公软件Excel 的强大计算功能进行实例计算。
关键词:Excel;道路边线;道路中线;逐桩坐标;圆曲线;缓和曲线中图分类号:U452.1文献标志码:B文章编号:1672-741X (2008)03-0302-03Calcul ati on of Coordi n ates of St akes on Centerli n e and Si deli n e Usi n g ExcelZHANG Baoli 1,XUE Zhiqin2(1.College of R esou rces and Environm en t,N orthw est A &F U niversity,Yangling 712100,Shanxi,Ch ina;2.College of Infor m ation and S oft w are,S outh China A gricultural U n iversity,Guangzhou 510642,China )Abstract:The coordinate calculati on of the high way curves is divided int o three basic types,i .e .,straight secti on,cir 2cular curve and transiti on curve,on basis of the coordinate incre ment p rinci p le .W ithout coordinate transf or mati on,the survey coordinates of the stakes on the alignment of the centerline and sideline are directly worked out,which si m p lifies the calculati on p rinci p le and reduces the calculati on quantity .Further more,coordinate calculati on is made f or p r oject cases by using the str ong calculati on functi ons of Excel .Key words:Excel;high way sideline;highway centerline;coordinates of stakes;circular curve;transiti on curve不论是在铁路还是公路的设计和建设中都不可避免地遇到大量的曲线计算。
EXCEL计算坐标
Excel在导线计算中的应用李海军摘要：目前在一些小地区的大比例尺测图中，做控制用的较多的是导线测量的方法。
由于全站仪的广泛应用给导线的外业测量带来不少方便，但导线的内业计算如采用手工计算工作量大，本文就介绍用Ecxcl进行导线计算的方法。
关键词：Excel 导线计算1前言Execl是目前最为流行的电子表格制作软件，它是微软公司开发的在Windows下运行的一个重要应用软件，一般也称Microsoft Execl。
它同MicrosoftWord、 Microsoft PowerPoint、Microsoft FrontPage等合称Microsoft office。
Execl具有强大的运算功能，它能按照用户的意图进行各种复杂的运算（包括编写公式、调用函数等）。
Execl同样具有强大的数据管理和处理功能，能够根据用户的要求将输入的数据生成各种各样的图表，可以对数据按照各种复杂的条件进行排序、查找、替换、编辑和筛选。
最后，Execl能把用户制作的文件保存起来，用户可以随时调出来进行补充和修改，也方便打印和复制。
2 Execl在导线计算中的应用目前，随着测绘技术的不断发展，在一些小地区的大比例尺测图中，做控制应用较多的依然是导线测量的方法。
在导线测量中，野外数据的采集用全站仪可以说方便快捷，但是其内业的计算用手工却比较麻烦，而且费时费力。
本文就着重介绍一下Excel在导线计算方面的应用。
3．实例现在就以某一测区测得一条附合导线为例，讲解用Excel对其进行计算的方法。
导线图如下所示：已知A,B,C,D四点的坐标，在测量时测出了导线的左转折角以及相邻导线点之间的水平距离。
现在我们就看如何用Excel快速计算出1，2，3，4点的坐标。
计算各导线点的坐标3.1.1输入首先我们在A列输入点号，然后在B列输入观测角（在这里我们观测的是左角），以度分秒的格式输入，度和分之间用小数点隔开，在S2T2单元格中输入B点的x，y坐标，S3T3单元格中输入A点的x，y坐标， S8T8单元格中输入C点的x，y坐标， S9T9单元格中输入D点的x，y坐标，最后在H列输入各条导线边的长度。
线路坐标计算程序 excel版
0.000 0.0
0.000
61475.206 61475.206 61581.433
322634.074 322634.074 322413.245
61475.206 61475.206 61581.433
值.在计算新的里程或加桩里程坐标时,一定要先将最右边
K36+272.626
62240.230
62240.230 62239.509 62238.966
319960.104
319960.104 319987.468 320007.461
0.000
0.000 31.260 31.300
K36+272.626
K36+272.626 K36+300.000 K36+320.000
18.6
缓和曲线长度L 150
°
ˊ
″
第一计算方位角 A1
91.50083333
91
30
3
切线长度T 1146.422
曲线长度l 2260.845
直缓点桩号ZH K36+272.626
缓圆点桩号HY K36+422.626
曲中桩号QZ K37+403.049
圆缓点桩号YH K38+383.471
缓直点桩号HZ K38+533.471
右边桩坐标 Y
319960.104
对应弦长 切线方位角
319960.104
319960.104 319986.636 320006.597
0.000
0.000 27.374 47.374
0.000
0.000 27.374 47.374
320110.030
教你如何通过ExcelVBA编写测量坐标计算程序
教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VB A)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA是V B应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。
如果你已经了解VB会发现学习VBA非常快。
相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。
它运用范围广，计算速度快，计算精度高，合理化显示等。
或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。
Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
Excel测量坐标计算程序(附带计算器程序)
缓和曲线角 β2
0.056
切线长ቤተ መጻሕፍቲ ባይዱT1
476.548
JD至HZ方位 角
（弧度）
（弧度）
HZ至JD方位角 （度）
（度）
HY至JD方位角 （弧度）
3.63453181 0.49293916 28.24333333 28°14′36″ 3.322837339
桩号、坐标结果表
QZ桩号
YH桩号
HZ桩号
40306.803
GotoA LblD(第二缓和曲线) Abs（M-(N+T+L+V)）→W W－W5÷（40R2V2）+W9÷（3456R4V4）→C-------------------------------支距X坐标 W3÷（6RV）－W7÷（336R3V3）+W11÷（42240R5V5）→D------------支距Y坐标 90W2÷（πRV）→O-----------------------------------------------------------------缓和曲线角 E＋CcosQ-BDsinQ＋Scos（Q+BO+90）→X◢ F＋CsinQ+BDcosQ＋Ssin（Q+BO+90）→Y◢ Pol（（X-P），（Y-Z））：Cls----------------------------------------------------方位角和距离程序 IfJ＜0：ThenJ+360 →J：ElseJ →J：Ifend：I◢J ►DMS◢
204.408414 1.42360245 204.413372 0.02089324
164.414334 0.74077489 164.416002 0.013516541
教你如何通过Excel VBA编写测量坐标计算程序
教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(V BA)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA 是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。
如果你已经了解VB会发现学习VBA非常快。
相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。
它运用范围广，计算速度快，计算精度高，合理化显示等。
或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。
Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
用EXCEL批量计算坐标转换
用EXCEL批量计算坐标转换在Excel中进行坐标转换，可以通过使用VBA（Visual Basic for Applications）编写宏来实现批量计算。
下面是一个示例，可以将经纬度转换为高斯投影坐标：1. 在Excel中创建一个新的工作表。
2.在第一列中输入经度值，例如A1单元格输入:经度。
3.在第二列中输入纬度值，例如B1单元格输入:纬度。
4.在第三列中输入转换后的X坐标的标题，例如C1单元格输入:高斯X坐标。
5.在第四列中输入转换后的Y坐标的标题，例如D1单元格输入:高斯Y坐标。
8.在模块中输入以下VBA代码：```vbaOption ExplicitSub ConvertCoordinatesDim ws As WorksheetDim lng As Double, lat As Double '经纬度Dim x As Double, y As Double '高斯坐标Dim i As Long'指定要处理的工作表Set ws = ThisWorkbook.Sheets("Sheet1")'从第二行开始遍历每一行For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row'读取经纬度值lng = ws.Cells(i, 1).Valuelat = ws.Cells(i, 2).Value'进行坐标转换，可以使用适当的转换算法'以下是一个示例，将经度值转换为高斯X坐标，纬度值转换为高斯Y坐标x = lng * 200y = lat * 100'将转换后的坐标值写入对应的单元格ws.Cells(i, 3).Value = xws.Cells(i, 4).Value = yNext iEnd Sub```10. 返回Excel界面，并在工作表上运行宏。
选择开发选项卡中的宏，找到ConvertCoordinates并点击运行。