|
发表于 2024-7-26 07:39
来自手机
|
显示全部楼层
本帖最后由 lss001 于 2024-7-26 07:48 编辑
发发哥abc 发表于 2024-7-25 16:25
好像很有道理。我复习一下数组名称的知识。数组名称必须以字母开头,后面可以跟字母或数字,最多可以有25 ...
'数组名称还是规范化比较方便
'不规范<不带括号>→arr1,arr2,arr3
'注意:代码需要放置在Thisworkbook中
Public arr1, arr2, arr3
Sub 数组名称不规范()
arr1 = [{1,6}]
arr2 = [{3,4,5}]
arr3 = [{7,9}]
ReDim brr(1 To 3)
For i = 1 To 3
brr(i) = CallByName(me, "arr" & i, vbGet)
Next
End Sub
'规范化<带括号>→arr(1),arr(2),arr(3)
'代码可以放置在模块中
Public arr( 1 To 3)
Sub 数组名称规范化()
arr(1) = Array(1, 6)
arr(2) = Array(3, 4, 5)
arr(3) = Array(7, 9)
ReDim brr(1 To 3)
For i = 1 To 3
brr(i) = arr(i)
Next
End Sub |
|