教你学会VBA字典的6个方法 _电脑

我们利用VBA的字典功能时，需要用到以下6个方式：Add方式、Keys方式、Items方式、Exists方式、Remove方式、RemoveAll方式。

文章插图

需要这些哦
电脑
操作系统：Windows7
办公软件：EXCEL2007
方式/
1Add方式：object.Add (key, item)，其实就是标的目的 Dictionary 对象中添加一个关头字项目对，例如：
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
添加一关头字”a”和对应于它的项”Athens” 。

文章插图

2Exists方式：object.Exists(key)
若是 Dictionary 对象中存在所指定的关头字则返回 true，不然返回 false 。例子如下：
Dim d, msg$
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.Exists("c") Then
msg = "指定的关头字已经存在。 "
Else
msg = "指定的关头字不存在。 "
If

文章插图

3Keys方式：object.Keys( )
返回一个数组，此中包含了一个 Dictionary 对象中的全数现有的关头字。实例申明：
Dim d, k
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
k=d.Keys
[B1].Resize(d.Count,1)=Application.Transpose(k)
k=d.Keys：把字典中存在的所有的关头字赋给变量k 。获得的是一个一维数组，下限为0，上限为d.Count-1 。这是数组的默认形式。

文章插图

4Items方式：object.Items( )
返回一个数组，此中包含了一个 Dictionary 对象中的所有项目。实例运用：
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
t=d.Items
[C1].Resize(d.Count,1)=Application.Transpose(t)
t=d.Items ：把字典中所有的关头字对应的项赋给变量t 。获得的也是一个一维数组，下限为0，上限为d.Count-1 。这是数组的默认形式。

文章插图

5【教你学会VBA字典的6个方法】Remove方式：object.Remove(key )
Remove 方式从一个 Dictionary 对象中断根一个关头字，项目对。实例申明：
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Remove(“b”)
d.Remove(“b”)：断根字典中”b”关头字和与它对应的项。断根之后,此刻字典里只有2个关头字了。