1、小白自学EXCeIVBA道路坐标高程计算程序流程1声明1.1 本人是个工作时间不长测量胞员.1.2 听说想轻松开心的干好测量得学门编程,又听说ExceIVBA是个简洁的可视化的常用的.1.3本人很懒，面对厚厚的全是“昏天暗地”代码的EXCe1.VBA教科书籍，实在是没心没力，其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、WhiIe、end的意思，,还有而窗体图框.其他的就都还给老师了）.1.4 谷歌、僮娘.是咱的好帮手.1.5 仰视的存在，神般的存在,无私的化身！（王中伟教授QQ：595077）（陈超中铁QQ：295188316）陈怵博的VBA代码乍一看盛觉比王老师的让人头痛,怎么说
2、咱们也是个有志向有目标的人，要哨就哨现件头！就选一嘿咽王老师的程序吧！1.6 代码荻得.王老帅、陈帅傅担忧不懂编程的人.不当心修改代码导致程序悟误,设置fVba密码个人认为），其次我跟他们不熟,没有正大光明的要的密码，于是求助谷歌僮娘,这个关于VBA密码破解，于是很不厚道的得到了南码，为了便利本次学习，又很不以道的把的密码贴出来（df750726）,神人勿怪呀！2代码理解ing.我们通过密眄翻开Vba代码窗口.大家可以先把每个表格IIf1.开阅读下代码.是不是尊觉很短呀，懑觉应当是超级链接的意思.嘿嘿，主要的代码在模块*,-m.睡开下，代码笠吧，这就是咱们要肯的骨头。现在咱们冲呀！2.1第一段
3、代码理解貌似第一段代码是定义的意思“定义n(ft、定义桩号点、定义坡段、定义根本曲税”H甬)三徜明)Pub1.icCoastPIAsDoub1.e三3.14159265358979定义桩号点Pub1.icTypeStAPoxntNi1.eAsDoub1.一里过x三Doub1.e,fryAsDoub1.e旌标xAsDoub1.e,SKaADoub1.e例我方位用bMDuHRoAsDoub1.e曲至EndTyPe定义技段Pub1.icTypS1.opexNx1.eTi1.estAs7AssRAseKAsSKMAxDoub1.esDoUb1.oDoub1.eDoub1.eDoub1.erDoub1.
4、eDOUb1。iKsDoub1.eEndTyPQ,定义基空曲戏Pub1.icTypeCUmSeCST.StaAsSt&PointEMStftAsStaPomt2Tvn谷歌译：Pub1.icConstP1.AsDoub1.e公共&P1.ii21双精度浮点型百度百科：双精度浮点数双精度浮点数(DoUbIe)用来表示带有小数局部的实效,一般用于科学计算.用8个字节(64位)存储空间，其数值范第为17E-3081.7E+308,双制度浮点数最多有15或16位卜进制有效数字，双精度浮点数的指数用D或d”表示。双精度浮点数科学记数法格式：aDc或adc在一些现代的被优化用来进展速数学计算的处理器上双精度型
5、事实上比单精度的快.全部超出人类短验的数学函数，如sin(),cos()，和sqrt()均返回双精度的值,当你须要保持屡次反笈迭代的计算的精确性时,或在操作值很大的数字时,双精度鞭是球好的选择，个人三MKP1.是储存数据的符号,把赋值储存进去,公共常量，意思是大家都可以调用的冏定伯，虫精度浮点型应当是规定P1.能储存的数据类型(什么整数电、I1.期啦、小数啦、文字啦之类的)，还布储存量(估计双制度比单精度储存的多)之类的规定， Pub1.icTypeStaPointEndType谷砍译：Pub1.icTypeStaPo1.nt（联系上下文“定义班号点”应当是StakePoint）公共类型一号点
6、百度文康：VB中TyPe沿句的功能及用法Type语句只能在模块级运用.运用TyPe语句声明门一个用户自定义类型后,就可以在该声明范阳内的任何位次声明该类型的变录,可以运用Dim、Private.Pub1.ic.ReDim或Static来声明用户自定义类型的变量，在标准模块中,用户自定义类型按块省设置是公用的.可以遥用Private关械字来变更其可见性.而在类模块中,用户自定义类型只能是私有的,且运用Pub1.ic关键字也不能变更其可见性，在Type.EndType块中不允许运用行号和行标签。用户自定义类型常常用来表示数据记录，记录一般由多个不同数据类里的元素纲成，个人现号句定义常猿的代码1常常
7、用工（ft,就把3.1415固定到P1.里.便利调用）.运用TyPe语句分段SIaPOint/桩号点、S1.op。/坡段、CUrVeSec根本曲税）、批E定义变出的代码，这几段都是定义的双精度，之所以分段，联系下文，估计是便利常常调用，值得留意的是CurveSec3Bt定义这一段，对于ST_SW起点、EN_Sta./终点的定义,调用J前而StaPoInU瞥号点的定义,两句话,脆把根本曲线所纪要运用参数代号都定义了，呵呵,这就是TyPe语句吧，可以相互附用，便利定义！咦？这个分割线是怎么回事？IGi用）3MtO0PenSubAutoeOpenQShQoyC欢迎So1.42,3)=ThennU,1
8、)=.Ce1.1.sG,3)na,2)三Ce1.1.sG,4)JD三.C11三G*1,2)Forj三3To7Hiej-2)=Ce1.1.sG1.zj)j计总方位向ST1.=F*J!1.(I.1.)r制(1,2),PR(2t1),牌22)JdJJ=jjH(1.1).制(1,2),P1.1.(2.1),即2)，去5555555由十4.ZoZo/0/00)5Ci1.1.xyysExitSubEndIfIf.Ce1.1.s(i+2,3)=Then.EndIf假如你连if、whi1.e、for这些条件循环语句都不懂的话，那你真比我还小白了,哈哈！!这段代码并不庭，之所以拿出来探讨，还是为了消退大家的是供
9、心理,W!百度搜寻，这个谱句可推断IfCeIIsG,21bThen这个单元格“Ce1.1.s。,2)是空白单元格吗?假如Ce1.1$(i,2)为空的话，这时帔下一步，这里的双引号是空的意思，下面，好菜上场了，个人感觉这个特别有用的规咫么，解密了代码的()问题。ST1.=Fwj(PM(1.,1),PM(1,2),PM(2f1),PM(2,2)计算方位角乍一看，挺苏，其实呢，首先不要被PM(?.?)、STI所迷惑,个人感觉，这家伙就是a、b.C.d,好了,言归正传,X-Pwj(a,b.c,d).咦？,Fwj是个什么东东.嗯嗯百度上是搜不到的，我找了一大遇，发觉SUb里有个FWj0001Ihgj1.
10、GetAGetMGetStaCoorI111.jiJJJItjrPetoDytoBadyj,怛据坐标推算方位用udionFvjGd,y1.,x2,IAb三(x2-x1.)0ThnFVj=P1./2If2-y1.)0ThenFvj=1.5PIZ1.seIfbs(y2-y1.)0ThenFvj=0If6c2-x1.)0nd(y2-y1.)0ThenFwj三FwjS1.M1.f(2-x1.)0ThenFwj=PI-Absffvj)S1.saIf(2-x1.)0And(y2-y1.)0ThenFwj三FIFvjn三0And(y2-y1.)0ThgFwj=2*PI-Absffvj)2ndIfZndIfE
11、ndFunctionFunctionFwj(x1.,y1.,2,y2).EndFunction谷敏译Function-F原来是自定义函数的意思呀！这里0里不再是空的了,转念一想.我们在表格里不是常常运用一些简洁的公式么？什么“=S1.JM0求和DEGREES0弧度转角度：Pi0-都是有括号么？在代码规那么里括号里有东西，估计也是干腌把括号里的东西定义了，可以干脆运用。嘿嘿，我发觉,在宏里定义了的函数可以在表格里找到1.=f1.eXVW1.=加j(B5,C5,D5,B5)BCDE【口力公ID5,E5)!45嘿呢，转念一想，哈哈.这TMD以前便利了，自定义函数真是个好东西，网上应当有许多很不错的自
12、定义函数，大家搜寻下，肯定有意想不到的收获，呵呵，个人感觉Exce1.VBA就是个大函数，我们只不过是把A1.B2之类的单元格运用代码件换了一下，网加个函数运算就得了,哈哈！2.5 又一个的小问题Iff1.)CetStCor末拄元内任总长度1.内的坐标及切城方位用，家用Gash1.。的ndr心式计算SubGetStaCoor(secAsCurveSeczstAsStPoint)Dxn(2,4)AsDoUbIQDin1,1.1.,GeUiAsDOUbhDinSI,S2t,c,c1.,HsDoub1.eDinisIntQger1三xt.Mi1.e-sec.STSt.111.1.1.=S“D1.Sr
13、Hih-“cST-StMi1.I4(1.1.)st0.x三三c.SSt4.x1S1.sty三“c.ST二Sgy*1S2EndI%dSUb傻了吧！SubGetStaCoor(secAsCurveSec1staAsStaPOint)这是神马东东，您嘿，只不过是把SeC跟SIa这两个代符干脆在括号里定义了，没什么大不了的.又傻了吧!一日的这又是神马东西?嗯叫不要焦急,这些东西,你挥见过的,只不过用给连接起来了.感觉应当是一层一层的递归查找的选思,你看，先把SeC运用以前定义基本曲虢Pub1.icTypeCurveSecSjSSAsStftPomtEH-StaAsStftPoint定义好的CUrVeS
14、c根本曲嫉定义,这样SeC里就有了En1.TbENSta定X额偿Pub1.icTypeS1.opesNi1.AsDOUbIQ35W?d1.i1.AsDoUbIe，终点里程之类的，同理，就有了Mi1.。之类的,stAsDo的加上1传亡eTAsDoub1.esRAsDoub1.eKAsDoub1.esMAsDoub1.e三Doub1.eEndTyp至此我的的小白学习流程就告一段落了,还有两段代码,其中一段梃简洁的,大家自己探究吧!另外一段嘛.别问我,我是小白,我不懂！H你懂箱,嗯嘿三ff1.)Z生成桩号SubZhscODsZhbG)DieVi,n,st,enAsDoub1.eDiei.j,j1.,
15、j2.kA:Intogorn=InpuMxI百粕入百线投硝&一路线坐标计其，2tnIn=,ThenEndn=InputBox(，清输入曲妖段桩班，路线坐标计U,10)，“*CRMeeIIM(4,1).Ct1.1.so2).S1.ctSe1.eetiox1.SortKey1.=Rance(*b1.*),Order1.：=x1.A三cndncHeader:=x1.Guess.一OrderC三tc*:=1,V*tc1.se:-FeJse4OrientQition=x1.TopToBottc,SortVethodx1.FnYnCt1.U(4z1).Se1.tc1.EndS0最终呢.感谢大家陪小白我一起
16、学习.介绍一份做师得的?教你如何通过EXCeIVBA娘写刈破坐标计算程序?给大家.副本人搜寻珍藏的施工测量资源链接测量空侧工程测属资源质检站中华钢构造论坛仿真科技论坛最新专业桥梁网站、矫梁论及（2021.02验证更新）王中伟老怵的测绘技术日志总索引计算器中文测用程序道路之星行业标准标准共享网下拨链接【更新】纯EXCe1.公式开发的施工测域数据计仪表V1.4密玛是AABBCC123456【更新】在AutoCAD中用VBA按输入随意步长绘马路全能曲战（多与CAD吩咐）/UEXCE1.公式编写的计算西方交会法小工具Exce1.全线坐标前程计算V1.积木法版+交点法版2021.3.6纯Exce1.编辑
17、的测量方面的一眼小程序测或程序汇编（5800计算器程序和对应的EXCeI程序）Exce1.刈M坐标计算程序（附带计算器程序）白编EXCeI洪1.U自程序-何足道道路中边桩坐标计算EXCa程序（120424版）E中伟老师编写】道路中边桩坐标计。程序110610【王中他老牌编写】立交Hi道参数协助计算程序（100111版）【王中伟老师编写】“是卵型曲线转交点的大地坐标系与施工坐标系的计算（可计蚌H戏，内哈5800程序代码）Exc1.e全站仪好用放线程序（已改正）电子表格ExceIVBA测值程序共享-陈超卡西欧CAS1.ofX-97SoGU/9860坐标计算程序共享-陈超卡西欧计算零程序传箱软件FA
18、124的运用方法Exce1.曲线坐标计算程序VBA46测量程序交点法、线元法、竖曲线等程序全新设计最好大家自己也建个115网盘帐号,共享到自己的空间.这样源文件就多了.下毂就快点儿.没有帐号的请用下面的推广注册连接,帮我扩扩容，州谢哈.计算器中文溯附程序道路之举9750的副机fxES(MS)计算揩论坛工程测量资源9750板块测量空间9750板块卡西欧计曾等程序传斩状件FA-124的运用方法-G2M文件导入到计曾器f-9750GII视频教程程序源程序运用说明程序运用视频,计算零娘程图书RDWORK（9750/9860版）程序包PDF（解保修正）.rarCAS10Jx-CG20中文图形编程计算器电子手薄与陂道超欠挖程序（新增可打卬功能）pdf计算器运用说明再次感谢无私的神人们！!
免费区 
