Collection（集合）对象

Collection 成员

Sub Collection_Test()
    '声明并初始化一个Collection对象变量c
    Dim c As New Collection
    '最常规的Add方法的调用，可Add任意类型的对象
    c.Add "One"
    '有key参数的调用,这个字符串的key参数必须没有被占用
    c.Add "Two", "Second"
    '下面这句会导致运行时错误457，也即索引已经被占用
    ' c.Add "Hao", "Second"
    '下面这句传递了before参数，将"Zero"插入到原来的第二个元素之前，也即占用第二个元素的位置
    c.Add "Zero", , 2
    '下面这句传递了after参数，将"Oh yeah"插入到原来的第二个元素之后，也即现在的"Zero"之后，成为第三个元素
    c.Add "Oh yeah", , , 2
    '下面这句传递三个参数，key参数只是给集合中的这个新增元素一个除原有的数值索引外的另一个字符串索引，这个索引会更友好，更方便记忆
    c.Add "Five", "Fifth", , 4
    '下面是读取"Five"这个元素，可见字符串索引，是不区分大小写的
    Debug.Print c("fifth"), c("Fifth"), c(5), c.Item(5), c.Item("Fifth"), c.Item("fifth")
    '下面这一句会出错，错误提示：索引已经被占用
    ' c.Add "Six", "fifth"
End Sub
以上示例来自于 ：
 VBA笔记——collection方法
 
示例2： 演示 结构体不能保存到collection中
 
' 在普通模块中声明一个结构体
Public Type Person    
    name As String    
    age As Integer
End Type
Sub test()
    Dim mycollection As New Collection
    Dim p As Person    
    p.name = "john"
    p.age = 25    
    mycollection.Add p                             ' 此语句报错
    Debug.Print mycollection(1).name
End Sub
Dictionary（字典） 对象
 
字典（Dictionary）对象是微软Windows脚本语言中的一个很有用的对象（经过我的测试也是有序的）。字典对象相当于一种键值对的集合，就是由具有唯一性的关键字（Key）和它的项（Item）组成。它等效于Perl语言的关联数组。
 items保存在该关联数组中，可以保存任意类型的数据类型。每个item与唯一的key相关联。key用于获得单独的item，key通常是一个整数或字符串，其实也可以是任何类型的数据，除了数组和Tpye声明的结构体不能作为key。
 由于字典不是Vba自带的，如果想要在代码编写过程中有智能提示，需要引用它。具体是[工具]–>[引用]–>找到以下位置：
 
C:\Windows\System32\scrrun.dll  （显示为选中：Microsoft Scripting Runtime Library）
Dictionary 成员
 
1. 方法：
 
方法
说明
Add
添加一新的key/item键值对到字典对象中
Exists
返回一个布尔值，提示字典对象中是否存在指定的key
Items
返回字典对象中的所有item的一位数组
Keys
返回字典对象中的所有key的一位数组
Remove
从字典对象中删除指定的键值对
RemoveAll
从字典对象中删除所有的键值对
 
2. 属性：
 
属性
说明
CompareMode
设置或返回字典对象中在比较key值时的比较模式，区分大小：binaryCompare设置的话区分大小写，TextCompare不区分大小写
Count
返回字典对象中键值对的数量或个数
Item
设置或返回字典对象中某个item的值
Key
在字典对象中对一个已经存在的key设置新值
 
'后期绑定：方便代码在其他电脑上运行，推荐。
dim dic as object
Set dic = CreateObject("scripting.dictionary")
'前期绑定：可以直接声明字典对象，有对象属性和方法的提示，但在其他没有勾选引用的电脑上无法正常运行。
'引用勾选：VBE窗体-工具-引用-勾选‘Microsoft Scripting Runtime’
dim dic as New dictionary
'获取字典的键、值，字典计数，删除，判断键是否存在于字典
with activesheet
	'dic.count：字典计数，字典中一共有多少条记录；
	'dic.keys：字典的键，写入单元格以行写入，如需以列写入单元格，调用工作表函数transpose转置；
	.cells(1,1).resize(dic.count,1) = application.worksheetfunction.transpose(dic.keys)
	'清除工作表单元格内容
	.cells.clearcontents
	'dic.items：字典的值；
	.cells(1,1).resize(1,dic.count) = dic.items
	'判断某内容是否存在与字典的键中
	if dic.exists("内容") then debug.print "字符串‘内容’存在于字典的键中"
	'清空字典，有时候其他过程也需要使用字典，当前过程已经使用完了，但我们又不想重新创建字典对象，这时候我们可以public字典全局变量，再清空字典，供新的过程使用该字典对象。
	dic.removeall
	'清除单个字典键-值对,key是字典的某个需要删除的键
	dic.remove key
end with
 '==========================去重========================
dim dic as object
dim arr
dim st
Set dic = CreateObject("scripting.dictionary")
arr = array("可乐","雪碧","鸡翅", "可乐","汉堡包","鸡翅")
for each st in arr
	'字典的键是不能重复的，重复导入字典只会存在一个，可以利用字典这点特性去重。
	'这里不需要字典的值，设置为空字符串或其他数值都可以。
	dic(st) = ""
activesheet.range("a1").resize(dic.count,1) = application.worksheetfunction.transpose(d.keys)
' ==========================实现sumifs条件求和========================
Sub dic_sumif()
Application.ScreenUpdating = False
Dim dic As Object
Dim arr
Dim i As Byte
Set dic = CreateObject("scripting.dictionary")
With ActiveSheet
    arr = .UsedRange
    For i = 2 To UBound(arr)
    	' dic(arr(i,1))没有值是默认是0，通过下面方法对每一个水果的销量进行累加。
        dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
    '使用copy方法，将表头复制到e1，f1单元格
    .Range("a1:b1").Copy .Range("e1")
    '字典键去重纵向写入到单元格
    .Cells(2, "e").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys)
    For i = 2 To dic.Count + 1
    	'循环输入字典键对应的值到f列
        .Cells(i, "f").Value2 = dic(.Cells(i, "e").Value2)
End With
set dic = Nothing
Application.ScreenUpdating = True
End Sub
字典与集合对比
 
字典比集合速度要快，有人测试要快三倍，字典应该采用hash值，所以查找速度快。
由于字典中有 Exists(key)方法，可以先进行判断，再操作，甚至直接赋值，而集合没有直接检查key是否存在。
如果想更新某个键值对，在集合中是不能直接进行的（可以先删除，然后再add），而字典中可以直接赋值，这点要方便多了。
对于字典中还没有key值，可以直接使用，例如： dic(key) = dic(key) + 1 ，这时dic(key)默认是 0 。
字典中的keys() 和 items() 分别返回一位数组，方便操作，而集合中没有该类方法。
特意提醒一下，字典有忘记add()的方法，即“呼之即来，挥之即去”。示例如下：
 
' 一、定义字典
Set d = CreateObject("Scripting.Dictionary")
' 二、呼之即来，挥之即去
d("张三“)=1     '相当于给字典赋值，张三过来（没有就生成）拿个1站一边去
d("李四”)=2     '相当于给字典赋值，李四过来（没有就生成）拿个2站一边去
d("李四”)=3     '相当于改变值，字典中已经有李四了，李四跑过来，丢下2换个3站一边去
注：这时字典中有两个人的存在，张三＝1 和 李四＝3，相当于实现了去重复的功能
s=d("张三")    's=1   即叫了声张三，张三就告诉你他拿的是1
s=d("李四")    's=3   即叫了声李四，李四就告诉你他拿的是3
s=d("麻子")    's=""  没有找到麻子怎么办呢，字典里就自动生成一个麻子d("麻子") ＝“”，告诉你他手上是空的
注：这时字典中有三个人的存在，张三＝1 ; 李四＝3;麻子＝“”
'  上文出处：http://club.excelhome.net/thread-926188-1-1.html
以上示例出处：http://club.excelhome.net/thread-926188-1-1.html
 
结论： 如果进行编程，推荐使用字典，但是也不能不使用集合，例如sheets(1)或者sheets(“明细”)就是一个集合的使用。
                    Excel VBA 中使用字典总结collection（集合）对象VBA中有一个集合对象（collection），Collection 对象是一组可称为“单元”的有序项目的集合，可以理解为可以随意增减数量的一维数组。Collection对象提供了一种方便的方法，可以将相关的一组项目当作单个对象进行引用。集合的成员不必共享相同的数据类型。collection 成员object.count      属性：long类型，返回collection对象中元素的个数object.add(item,key
				
基于多条记录有多种存储方法，而我们在选择使用哪种方法时考虑最多的还是其执行哪种方法的执行速度比较快，本人特编写了此程序，用于对比四种最常用的方法（数组、集合、列表、数据表）的执行速度。
又因为列表与数据表两种方案又有多种查询方法，此程序又加上了列表的find与findindex方法的比较和数据表的rows.find方法与其对应的dataview的findrows方法、filter方法的执行速度比较
程序用vb2010编写，需要.net 4.0框架支持，运行前请先安装4.0框架
				
数组和集合在VBA中是常用的数据类型，这里水文具工集在VBA中实现数组Array与集合Collection的相互转换，编写了两个通用的过程ArrayToCollection与CollectionToArray，方便程序中调用，具体源代码如下：
数组转换到集合ArrayToCollection
'================================
' VBA数组转换到集合Arr
Application.ScreenUpdating = False
Name = "安智-送货单12.18"
MP = "E:\杭实\运营数据\开单电子台账\" & Name & ".xlsx" '工作簿路径
 Set Wb = Workbooks.Open(MP)
 '清空数据
last_row_clear = ThisWorkbook.Sheets("送货单").Cel
				
1 Sub test()
 2 '    Dim s As Collection '定义s变量为集合对象
 3 '    Set s = New Collection '初始化集合对象s (否则无法使用)
 5     Dim s As New Collection '推荐这句代码，直接初始化，可以不用再Set了
 7     '集合s中添加元素的方法
 8     Fo...
				
VBA集合Collection创建集合集合常用属性和方法添加集合大小读取集合特定元素内容集合删除办法
创建集合
Dim c As New Collection
集合常用属性和方法
语法：Collection.Add (item,key,before,after)
item：添加到集合的项
key：键，唯一性的，add方法如果重复报错
before：插入位置，在哪个位置前面，可以是索引（...
下面代码示范如何创建 Dictionary 对象：
Dim myd As Object
Set myd = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     ’添加键和项目。
d.Add "b", "Belgrade"
d.Add "c...
				
Excel VBA中，可以使用字典嵌套字典的数据结构。这种数据结构可以用于存储和管理复杂的数据，例如多层嵌套的JSON数据。下面是一个示例代码，演示如何创建和使用字典嵌套字典：
```vb
' 创建一个字典
Dim dict1 As Object
Set dict1 = CreateObject("Scripting.Dictionary")
' 创建一个嵌套字典
Dim dict2 As Object
Set dict2 = CreateObject("Scripting.Dictionary")
' 向嵌套字典中添加数据
dict2.Add "key1", "value1"
dict2.Add "key2", "value2"
' 将嵌套字典添加到主字典中
dict1.Add "dict2", dict2
' 访问嵌套字典中的数据
Debug.Print dict1("dict2")("key1") ' 输出"value1"
在上面的代码中，我们首先创建了一个主字典`dict1`，然后创建了一个嵌套字典`dict2`，并向其中添加了两个键值对。最后，我们将`dict2`添加到`dict1`中，并通过`dict1("dict2")("key1")`的方式访问了嵌套字典中的数据。