Excel VBA解读<159：数据结构—字典对象的基本

excelperfect

本文详细讲解Dictionary对象的一些基本操作。

添加字典元素

使用Add方法，添加字典元素项。其语法为：

字典对象.AddKey, Item

Add方法有两个参数。参数Key指定字典元素项的键值，参数Item指定字典元素项的值。如下面的代码：

Sub testAddItem()

Dim dict As Object

Set dict =CreateObject("Scripting.Dictionary")

dict.Add Key:="完美Excel",Item:="excelperfect"

dict.Add "Microsoft","Excel"

dict.Add "花无缺",96

dict.Add 6, 88.98

dict.Add "2019-8-15", "考试"

End Sub

从代码中可以看出，参数Key可以指定任意数据类型的值，参数Item也可以指定任意数据类型的值，甚至可以是数组、集合或者字典。

注意，如果添加的字典元素的键已经存在，则会导致下图1所示的错误。

图1

给字典元素赋值

可以直接给指定键的字典元素赋值，其语法为：

字典对象(Key) =Item

例如，代码：

dict(“完美Excel”)= “excelperfect”

注意，如果指定键的字典元素已存在，则会修改该元素的值。如果指定键的字典元素不存在，则会添加新字典元素。

检查字典键是否存在

使用Exists方法检查指定的键是否存在，其语法为：

字典对象.Exists(Key)

例如，代码：

Sub testCheckKey()

Dim dict As Object

Set dict =CreateObject("Scripting.Dictionary")

dict.Add Key:="完美Excel",Item:="excelperfect"

dict.Add "Microsoft","Excel"

dict.Add "花无缺",96

dict.Add 6, 88.98

dict.Add "2019-8-15", "考试"

If dict.exists("完美Excel") Then