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

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

东西/原料

电脑
操作系统：Windows7
办公软件：EXCEL2007

方式/步调

1
Add方式：object.Add (key, item)，其实就是标的目的 Dictionary 对象中添加一个关头字项目对，例如：
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
添加一关头字”a”和对应于它的项”Athens”。
2
Exists方式：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 = "指心猿意马的关头字不存在。"
   End If
3
Keys方式：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。这是数组的默认形式。
4
Items方式：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
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个关头字了。
6
RemoveAll方式：object.RemoveAll( )
RemoveAll 方式从一个 Dictionary 对象中断根所有的关头字，项目对。
实例申明
Dim d
   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "Athens"
   d.Add "b", "Belgrade"
   d.Add "c", "Cairo"
   ……
   d.RemoveAll
这里的d.RemoveAll：断根字典中所有的数据。也就是清空这字典，然后可以添加新的关头字和项，形当作一本新字典。

发表于 2019-12-03 20:33
阅读 ( 1434 )
分类：其他类型

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

东西/原料

方式/步调

你可能感兴趣的文章

相关问题

0 条评论

作家榜 »

推荐文章