④ Dim zy, i, j As Integer
谷歌也没搜到Dim是个啥玩意,就当成定义的意思了,定义zy, i, j为整数类型(Integer),后面还有个定义成字符型(String)的,就是可以储存字母之类的。
⑤ PM(3, 5)
Dim PM(3, 5) As Double里出现了个PM(3, 5) 百度知道:excel vba 中PM(3,5)是什么意思?
1、cells(行坐标,列坐标) 表示一个单元格的位置,如: A1 :CELLS(1,1) B2:CELLS(2,2) C2: CELLS(2,3)
2、VBA中没有PM() 属性, (1)可能是自定义的数组,如: dim PM(10,10)
则PM(3,5)就是这个数组的一个元素 (2)或是单元格区域,如: set PM=RANGE(\
则 B2为 PM(1,1) ,PM(3,5)就是单元格 F4
个人理解:Dim PM(3, 5) As Double是定义3×5=15个PM(?, ?)数组元素,双精度的,可以使用这十五个PM(?, ?)符号进行储存,注意第二个问号前有个空格。
⑥ With Sheets(\平面资料\……End With
百度知道:VBA中的WITH 语句用法及含义
通俗点讲with的作用就是简化代码,让代码简洁易懂 让你不需要输入重复的内容 例如: With [A1]
.RowHeight = 10 .ColumnWidth = 15 End With 相当于
[A1].RowHeight = 10 [A1].ColumnWidth = 15
省去了输入很多[A1]
也就是说with中以 . 开头的就相当于 WITH后的对象 .什么什么什么
⑦ Rows(\
谷歌翻译: Rows(\
行 清除内容
百度知道:excel的vb中Rows( 6:500 ).ClearContents是什么意思? 将第6行到第500行的内容清除。
谷歌翻译: Worksheets(\
工作表 范围 清除内容
2.4 探索与发现
其实就单纯的表格数据计算,所使用的VBA编程知识,是非常非常少的,换个VB编程高手,来看咱们工程坐标计算所使用的代码规则,简直就是加减乘除而已。事实上也是如此,你只要耐心的跟同样小白的我,一起花十几分钟看完这篇流程,你已经有能力看懂88%的代码,并且可以简单的修改应用。传说ExcelVBA可以直接接入CAD….这就要等大家去探索发现了,嘿嘿!!废话少说,还有几段小代码规则,大家再来看看吧!
⑧ If .Cells(i + 2, 3) = \…. End If
如果你连if、while、for这些条件循环语句都不懂的话,那你真比我还小白了,哈哈!!!
这段代码并不难,之所以拿出来研究,还是为了消除大家的畏惧心理,嘿嘿!!
百度搜索:这个语句可判断 If Cells(j, 2) =\这个单元格“Cells(j, 2)”是空白单元格吗?
如果cells(j,2)为空的话,这时候下一步,这里的双引号是空的意思。
下面,好菜上场了,个人感觉这个非常有用的规则,解密了③代码的()问题。
⑨ ST1 = Fwj(PM(1, 1), PM(1, 2), PM(2, 1), PM(2, 2)) 计算方位角
乍一看,挺晕,其实呢,首先不要被PM(?, ?)、ST1所迷惑,个人感觉,这家伙就是a、b、c、d,好了,言归正传,x = Fwj(a, b, c, d),咦?,Fwj是个什么东东,嘿嘿百度上是搜不到的,我找了一大遍,发现sub里有个Fwj
⑩ Function Fwj(x1, y1, x2, y2)…. End Function
谷歌翻译:Function→函数
原来是自定义函数的意思呀!这里()里不再是空的了,转念一想,我们在表格里不是经常使用一些简单的公式么?什么“=SUM()求和”、“DEGREES()弧度转角度”、“Pi()”都是有括号么?在代码规则里括号里有东西,估计也是直接把括号里的东西定义了,可以直接使用。
嘿嘿,我发现,在宏里定义了的函数可以在表格里找到
嘿嘿,转念一想,哈哈,这TMD以后方便了,自定义函数真是个好东西,网上应该有很多很不错的自定义函数,大家搜索一下,一定有意想不到的收获。呵呵,个人感觉ExcelVBA就是个大函数,我们只不过是把A1、B2之类的单元格使用代码替换了一下,附加个函数运算就得了,哈哈!
2.5 又一个的小问题
傻了吧!Sub GetStaCoor(sec As CurveSec, sta As StaPoint)这是神马东东,嘿嘿,只不过是把sec跟sta这两个代符直接在括号里定义了,没什么大不了的。
又傻了吧!LL = sec.EN_Sta.Mile - sec.ST_Sta.Mile狗日的这又是神马东西?嘿嘿,不要着急,这些东西,你都见过的,只不过用“.”给连接起来了,感觉应该是一层一层的

