VBA中集合collection方法的基础知识

bluexuemei

感觉没有多大作用。。。

chen8497046

bluexuemei 发表于 2013-7-4 12:21
感觉没有多大作用。。。

处理一维数组的时候比普通的数组方便。
比如将2组关键词依照一定的条件（例如不重复）合并为一组关键词。
写起来就比数组更加直观而且简单

felixyau

和字典差不多，但是字典是按照关键字来获取的，不能像集合一样访问指定的位置，比如s（2），字典就不得行
只能讲字典的关键字或者项，赋值给一个数组，然后再访问
各有各的优点和确定

香川群子

如果在Add集合元素时加入了唯一的key值，就可以了。
和普通数组相比较，集合的特点：
1. 通常只在末尾添加元素 （添加时不用考虑定义数组的大小，即集合中数组大小是自适应的）
    （也可以像插入工作表那样，在某个指定位置之前或之后插入，但意义似乎不大）
2. 不能改变已添加元素的内容
3. 可以任意删除指定位置（指定顺序位置/或指定key值）的元素
4. 不管如何添加和删除，集合中元素始终保持添加时的先后顺序不变

呵呵。

另外，和字典方法比较：
1. 集合中可以反复添加相同内容的信息（按顺序作为新元素添加）
   而字典的关键词是不可以重复的。（也可以说，是相当于以序号为关键词建立了字典）
2. 集合中元素可以Write in ， 但不可以Rewrite
   （字典中key不可以改动，但Item可以任意改哦）


呵呵

香川群子

至于集合方法的使用，很遗憾，其实一般VBA应用都不是很需要。

但很意外，所有程序中无一例外地大量使用集合方法来对各种对象进行后台处理。

所以，几乎可以认为，集合虽然很不错，但面向终端用户的用处不大。

香川群子

一个牵强的例子是：

不重复取值

1. Sub test4()
   
2.     Dim s As New Collection '定义集合s并初始化
   
3.    
   
4.     For i = 1 To 20
   
5.         s.Add i '集合s中添加元素=i
   
6.     Next
   
7.    
   
8.     For i = 1 To 10
   
9.         r = Int(Rnd * s.Count + 1) '按当前集合s中元素总数.count范围随机取位置r
   
10.         Debug.Print s(r) '输出本次抽取到的不重复值s(r)
    
11.         s.Remove (r) '集合s中删去位置r的已抽取值s(r)
    
12.         '可以简写为 s.Remove r  但注意不要写成s.Remove s(r)
    
13.         '     →将会照成引用错误。即s(r)对应的位置可能已经不存在！  
    
14.     Next
    
15.    
    
16. End Sub

复制代码

呵呵，仅作参考。

实际提取不重复值时，一般说毫无疑问应该使用【经典数组洗牌法】
因此本例仅为集合使用的体验，不能作为实际用例。

香川群子

felixyau 发表于 2013-7-4 12:25
和字典差不多，但是字典是按照关键字来获取的，不能像集合一样访问指定的位置，比如s（2），字典就不得行
...

1. Sub test()
   
2.     Shell ("Regsvr32 C:\Windows\System32\Scrrun.dll") 'Dos 下运行注册DLL
   
3.     'Toos -> References -> Microsoft Scripting Runtime 'VBE中工具、引用
   
4.     Dim dic As New Dictionary '前期绑定后就可以直接定义字典类型变量并初始化
   
5.     For i = 1 To 10
   
6.         dic(i) = i * 10
   
7.     Next
   
8.     t1 = dic.keys(2) '然后就可以直接读取第3个字典元素的关键词（注意字典数组是0开始）
   
9.     t2 = dic.Items(2) '同样可以直接读取第3个字典元素的项目内容（注意字典数组是0开始）
   
10. End Sub

复制代码

liucqa

evenstormy

集合不可以是2维或多维的吗？

香川群子

前面讲了常识性的东西。

下面继续，稍微有点变化了。

集合添加时增加检索用关键词的方法，
以及集合添加时改变顺序的方法：
Sub test5()
    Dim s As New Collection
   
    s.Add 1, CStr(1)
    For i = 2 To 20 Step 2
        s.Add i, CStr(i), Int(Rnd * (i - 1) + 1)
        s.Add i + 1, CStr(i + 1), , Int(Rnd * i + 1)
    Next
    For i = 1 To 20
        t1 = s.Item(i) '按现在的顺序返回集合元素
        t2 = s.Item(CStr(i)) '按关键词key返回集合元素
    Next
End Sub

呵呵，这个有点复杂了，

实际上一般用不到。因为需要这些功能时，人们就会直接去用字典方法了。