VBA实战(07) -字典（Dictionary）

VBA 中字典（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

其他链接

VBA实战(08) - 文件和文件夹处理
VBA实战(09) - 工作簿（WorkBook）