教你學會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
閱讀 ( 1338 )
分類：其他類型

教你學會VBA字典的6個方法

東西/原料

方式/步調

你可能感興趣的文章

相關問題

0 條評論

作家榜 ?

推薦文章