没有合适的资源?快使用搜索试试~ 我知道了~
小白自学ExcelVBA道路坐标高程计算程序流程.doc
需积分: 10 3 下载量 104 浏览量
2022-07-15
08:36:12
上传
评论 1
收藏 315KB DOC 举报
温馨提示
试读
14页
小白自学ExcelVBA道路坐标高程计算程序流程.doc
资源详情
资源评论
资源推荐
小白自学 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”表示.
双精度浮点数科学记数法格式 :±aD±c 或±ad±c
在一些现代的被优化用来进行高速数学计算的处理器上双精度型实际上比单精度的快。
所有超出人类经验的数学函数,如 sin( ),cos( ) ,和 sqrt( )均返回双精度的值。当
你需要保持多次反复迭代的计算的精确性时,或在操作值很大的数字时,双精度型是最好的
选择。
个人理解:PI 是储存数据的符号,把 3。14159265358979 赋值储存进去,公共常量,意思
是大家都可以调用的固定值,双精度浮点型应该是规定 PI 能储存的数据类型(什么整数啦、
日期啦、小数啦、文字啦之类的),还有储存量(估计双精度比单精度储存的多)之类的规定。
② Public Type StaPoint……End Type
谷歌翻译: Public Type StaPoint(联系上下文“定义桩号点"应该是 Stake Point)
公共 类型 桩号点
百度文库:VB 中 Type 语句的功能及用法
Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后,就可以
在该声明范围内的任 何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim
或 Static 来声明用户自定义类型的变量。
在标准模块中,用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变
其可见性.而在类 模块中,用户自定义类型只能是私有的,且使用 Public 关键字也不能改
变其可见性. 在 Type。。。End Type 块中不允许使用行号和行标签。
用户自定义类型经常用来表示数据记录,记录一般由多个不同数据类型的元素组成。
个人理解:①号句定义了常量的代码(经常用π值,就把 3。1415 固定到 PI 里,方便调用)。②
使用 Type 语句分段(StaPoint/桩号点、Slope/坡段、CurveSec/基本曲线)、批量自定义变
量的代码,这几段都是定义的双精度,之所以分段,联系下文,估计是方便经常调用.
值得注意的是 CurveSec/基本曲线 定义这一段,对于 ST_Sta/起点、EN_Sta、/终点
的定义,调用了前面 StaPoint/桩号点的定义,两句话,直接把基本曲线所需要使用参数代号
都定义了,呵呵,这就是 Type 语句吧,可以相互调用,方便定义!
2.2 咦??????这个分割线是怎么回事?
为什么会跟下一段的 Sub Auto_Open()。....End Sub 分开呢?
点一下 Sub Auto_Open().。。。.End Sub 右上角的“声明”就变成“Auto_Open”,声
明什么意思?Auto_Open 又是什么意思?点击声明的下拉列表,好家伙,全是程序(sub)代号,
应该是起到一个引所目录的作用吧!触发某段代码运行..。。.
对于上面的 Sub Auto_Open().。。.。。End Sub 代码的功能的功能聪明的我已经猜到,是
打开 Excel 表格,就会跳到标签为“欢迎”的页面.
③ Sub……。 End Sub
谷歌翻译: Sub……。 End Sub(联系上下文“定义桩号点"应该是 Stake Point)
程序 结束程序
百度搜索:Sub……。 End Sub 语句的功能及用法
语法
[Public | Private] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
剩余13页未读,继续阅读
智慧安全方案
- 粉丝: 3605
- 资源: 59万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0