EXCEL VBA学习笔记:Collection 集合

Collection 集合的意思,是一个对象。指用户将一组数据信息,存放于一个“一维数组”中,以便用户随时访问、增添、删除;这样的一个集合体。

集合对象对存放在其中的数据类型,没有限制;可以是各种类型的数值、或文本,或单元格区域,或图片。刚才的一维数组打了引号,因为只是类似于一维数组。与数组相比,集合不需要先声明其长度,改变长度时也不需要用语句;删除其中某个数据后,其后数据会自动往前排,不会留下个空值。

如自定义个可变长数组,添加元素语句

Sub test() Dim arr() For i = 1 To 10 ReDim Preserve arr(1 To i) '每次在需要向一维数组中添加新元素时,需要先扩大数组 arr(i) = i '然后再添加新元素 NextEnd Sub

1、而用集合,则是这样(.add 添加的方法)

Dim NCN As New Collection '创建一个集合    For i = 1 To 10        NCN.Add i '对于集合,用Add方法可以加入元素    Next

新加入的元素会自动加到队列尾部。

2、读取集合中元素的方法(.count 集合的属性)

For i = 1 To NCN.Count 'Count属性返回集合中元素总个数 t = NCN(i) '读取集合中第i个变量存入临时变量t中 t = NCN.Item(i) '正规的代码写法(效果一样) Debug.Print NCN(i) '在立即窗口中显示集合(i)的值Next

集合中元素的起始序号默认为“1”,不是“0”。集合里虽然也叫item但是没有字典中Items,不能直接全部读出。

3、集合中元素删除的方法

For i = NCN.Count to 1 step -1 '遍历集合元素        NCN.Remove (i) '每次删去第后面的1个        Debug.Print NCN.Count '在立即窗口中显示集合中剩余元素的个数    Next

Remove后,集合中余下的元素是自动向前排。比如Remove(10),原先11位的数据就变成第10位了。

4、清空 remove(NCN.count) ;或是 Set NCN = Nothing (没有Clear 清空这个方法,2016版Excel)

使用For Each遍历Collection对象时,接收的变量要定义为Variant类型。例:For Each i in NCN 循环, i 这个变量,要么不声明,要么Dim i As Variant,不能声明成别的类型;NCN集合里就算存的是数字,i 若声明成数值型,这里也会报错。

集合与一维数组相比,在存储数据(不知数据的多少时)方便些,新增与减少时比数组要灵活,但弊端也很明显:不能修改已存入的元素;已存入的只能读取,删除。比较适用于不知数据多少的存储类事项。

(0)

相关推荐