在VBA中声明数组
示例
声明数组与声明变量非常相似,除了需要在数组名称后立即声明数组的维数:
Dim myArray(9) As String 'Declaring an array that will contain up to 10 strings
默认情况下,VBA中的数组是从ZERO索引的,因此,括号内的数字不是指向数组的大小,而是指向最后一个元素的索引
访问元素
通过使用数组名称,后跟括号内的元素的索引来访问数组的元素:
myArray(0) = "first element" myArray(5) = "sixth element" myArray(9) = "last element"
数组索引
您可以通过将以下行放在模块顶部来更改数组索引:
Option Base 1
通过这一行,模块中声明的所有Array将从ONE索引。
具体指标
您还可以通过使用To关键字以及上下限(=索引)来声明每个具有自己索引的数组:
Dim mySecondArray(1 To 12) As String 'Array of 12 strings indexed from 1 to 12 Dim myThirdArray(13 To 24) As String 'Array of 12 strings indexed from 13 to 24
动态声明
如果在声明数组之前不知道数组的大小,可以使用动态声明和ReDim关键字:
Dim myDynamicArray() As Strings 'Creates an Array of an unknown number of strings ReDim myDynamicArray(5) 'This resets the array to 6 elements
请注意,使用ReDim关键字将清除Array的所有先前内容。为防止这种情况,您可以在Preserve之后使用关键字ReDim:
Dim myDynamicArray(5) As String myDynamicArray(0) = "Something I want to keep" ReDim Preserve myDynamicArray(8) 'Expand the size to up to 9 strings Debug.Print myDynamicArray(0) ' still prints the element
热门推荐
10 八一幼儿祝福语大全简短
11 公司乔迁食堂祝福语简短
12 婚礼结束聚餐祝福语简短
13 儿媳买车妈妈祝福语简短
14 毕业送礼老师祝福语简短
15 同事辞职正常祝福语简短
16 恭贺新婚文案祝福语简短
17 金店立秋祝福语简短英文
18 婆婆高寿祝福语大全简短