VBA实战 -字典（Dictionary）

一、定义 Dictionary

Dim dict
' 创建Dictionary
Set dict = CreateObject("Scripting.Dictionary")

二、新增元素

' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500

三、删除元素

dict.Remove ("A")

' 删除所有项目
dict.Removeall

四、获取字典元素的个数

dict.Count

五、获取字典的值

Value = dict.Item("B")

六、修改

' 修改关键字对应的值,如不存在则创建新的项目
dict.Item("B") = 1000
dict.Item("D") = 800

七、判断字典中是否包含关键字

dict.exists ("B")

八、遍历字典

• for 循环

' 对字典进行循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
    key = k(i)
    Value = v(i)
    MsgBox key & Value
Next

• for each 循环

For Each v_key in dict
    Msgbox("key:" & v_key & ";value:" & dict(v_key))
Next