小白自学ExcelVBA道路坐标高程计算程序流程.docx

《小白自学ExcelVBA道路坐标高程计算程序流程.docx》由会员分享，可在线阅读，更多相关《小白自学ExcelVBA道路坐标高程计算程序流程.docx（15页珍藏版）》请在第壹文秘上搜索。

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.tEndSqb为什么会跟下一

8、段的SUbAuto_0pen0EndSub分开呢？点吓SUbAutoJIpMiO如dSob右上角的声明就变成AutjOperT,声明什么意思？AUIo_OPCn又是什么意思？点击声明的卜拉列表，好家伙，全是程序（SUb）代号应当是起到一个引所书目的作用吧！触发某段代码运行.对于上面的SubAuto-OpenOEndSub代码的功能的功能脱憩的我已经猜到，是翔开EXCe1.表格，就会跳到标卷为“欢送1的页面。 SubEndSub谷砍骨：Sub.EndSub（联系上下文“定义桩号点”应当是StakePoint）程序完毕程序百度搜寻：Sub.EndSub谱句的功能及用法语法（Pub1.icIPriv

9、ate）Subname（arg1.ist）statementsExitSubstatementsEndSubSub语句的语法包含以下局部Pub1.ic表示Sub过程可被全部SCrIP1.中的全部其他过程访问.PriVate表示Sub过程只可被声明该过程的Script中的其他过程访问.NameSub的名称，遵循标准变量i名约定，ArgIiSt代表在调用时要传递给Sub过程的参数的变成列表.用过号隔开多个变量.Statements在Sub过程主体内所执行的任何语句组.用户自定义类型常常用来表示数据记录，记录般由多个不同数据类型的元素组成.在Sub过程中运用的变量分为两类：一类是在过程内显式声明的，

10、另一类那么不是。在过程内显式声明的变加(运用Dim或等效方法)总是局部变对于那些没有在过程中:小明的变温也足I，部的，除韭在该过程外更高级别的位置显式地声明它们.Sub过程是包含在Sub语句和EndSub语句中的,系列Visua1.Basic语句。一次酒用过程时都执行过程中的语句，从Sub语句后的第一个可执行语句开场，到遇到的第一个EndSub,ExitSub或Return谱句完毕.个人理“Sub语句中SUb作为开头，是让计匏机制读代码就知道,你执行的是一个程序,而不是默认的定义一些数据，当然要先定义，才能执行，前面的代码都是公共定义，是计蚌机呆先执行的，sub里有自己小范用的dim定义。据视

11、察给SUb后加名字，名字推终必需足(),至于为什么要加0.别问我,我是小白,我不知道”！但启动调用程序时,就干脆用写名字就行了.2.3 一切反动派都是纸老虎丫丫了个呸的！这一层一层的代码都是什么呀！太祖行云，一切反动派都是纸老虎！上去敏他去！行好听指挥,一步一步来！SubZqbOD1.DiD1.I1.iD1.zttsDoub1.e，2,IX,EKASDoubh用(3,5)AsDoub1.eryzi,jAsIntrSTI,ST2,pj,JdJj,q,aP1.P2,t1.,JDAsStringMithSh平面资料)JD三.CaisC2z2)FH(I,1)=Ce1.1.s(2,3)FIiQ,2)=.

12、Ce1.1.s(2,4)stt三C1.1.s(2,8)EndVithShXtSe百曲表).Se1.ectRgSr6SoO).C1.oarConSntsCe1.1.s,1)=JDC1.1.x(6,2)三PM(1,1)Cf1.1.s(6z3)=PM(I,2)Ce1.1.s(6r4)=sitDimzy,AsInteger谷歌也没搜到D.m是个啥玩意，就当成定义的意思了，定义zIJ为整数类型(Imeger),后面还有个定义成字符型(String)的，就是可以储存字母之类的。PM(3,5)DiBPM(3,5)AsDoub1.e里出现了个PM(3,5)百度知A1.exce1.vba中PN(3,5)是什么意

13、思？1、ce1.1.s(行坐标.列坐标)表示一个地元格的位置,如：A1.:CE1.1.S(1,1)B2:CE1.1.S(2,2)C2:CE1.1.S(2,3)2、YBA中没有Pj(O属性,(1)可能是自定义的数级,如:dimPM(10,10)那么PM(3,5)就是这个数组的一个元素(2)或是单元格区域，如：seiPY=RANGErB2)那么B2为PM(1.1).用(3,5)就是单元格F4个人理解；DiaPM(3,5)ASDoub1.e是定义3X5=15个PY(?,?)数组元素，双精度的，可以运用这十五个PY(?,?)符号进展储存，留意其次个问号前有个空格。WithSheetS(平面资料”).E

14、ndWith百度知道：VBA中的W1.TH语句用法及含义通俗点讲With的作用就是简化代码，让代码简洁易怪让你不须要抬入重受的内容例如：WithA1.RowHeight=10.CoIumnWidth=15EndWith相当于(A1.),RowHeight=IO(A1.),CoIumnWidth=15省去了输入许多A1.也就是说With中以,开头的就相当于WITH后的对象.什么什么什么Rows(6:500).CIearContents谷砍译：Rows(6500).Cea,Contents行去除内容百度知道，exce1.的Vb1I1Rows(6:500).CIearConte11ts是什么意思？将

15、第6行到第SOo行的内容去除.谷砍I1.译：Work$heets(BSheet1.).Range(A1.:G37).CIearContents工作表范围去除内容2.4 探究与发觉其实就单纯的表格数据计算，所运用的VBA编程学问，是特别特别少的，换个VB编程高手,来看咱们工程坐标计以所运用的代码规那么.简点就是加减乘除而已.事实上也是如此.你只要耐性的圾同样小臼的我,一起花十几分钟看完这篇流程，你已羟有实力看慌88%的代码，并且可以简沿的修改应用。传闻ExceIVBA可以干脆接入CAD.“这就要等大家去探先发觉了，嗯嚼！!废话少说，还有几段小代码规那么，大家再来看看吧！7MZ1.EqbYithSh“