在VBA中字典的應用方法
大家好,我們今日繼續講解VBA數組與字典解決方案第37講內容:在VBA中字典的應用。對於字典,也許許多的朋友對此比較陌生,在有的語言裏字典也稱之爲MAP,應用也是比較廣泛的。
字典,其實就是一些"鍵-值"對。使用起來非常方便,有類似於微型數據庫的作用,可用於臨時保存一些數據信息。
一VBA中創建字典:用的是WSH引用。
Dim myd As Object
Set myd = CreateObject("Scripting.Dictionary")
二字典的方法,有Add、Exists、Keys、Items、Remove、RemoveAll,六個方法。
①Add 用於添加內容到字典中。如myd.Add key, item 第一個參數爲鍵,第二個參數爲鍵對應的值
②Exists用於判斷指定的關鍵詞是否存在於字典(的鍵)中。如myd.Exists(key)。如果存在,返回True,否則返回False。通常會在向字典中添加條目的時候使用,即先判斷字典中是否已存在這個記錄,如果不存在則新增,否則進行其它的操作。
③Keys獲取字典所有的鍵,返回類型是數組。如myd.Keys()
④Items獲取字典所有的值,返回類型是數組。如myd.Items()
⑤Remove從字典中移除一個條目,是通過鍵來指定的。myd.Remove(key)如果指定的鍵不存在,會發生錯誤。
⑥RemoveAll 清空字典。
三字典的屬性有Count、Key、Item、ConpareMode四種屬性
①Count用於統計字典中鍵-值對的數量。也可以簡單理解爲統計字典中鍵的個數;
②Key用於更改字典中已有的鍵。如:myd.Key("oapp") = "Orange" 如果指定的鍵不存在,則會產生錯誤。
③Item用於寫入或讀取字典中指定鍵的值,如果指定的鍵不存在,則會新增。如.Item("oapp") = 10
下面以一個實例來說明字典的應用:在下圖的A列有不同的鍵,要在對應的鍵中寫入鍵值,然後把C列對應的鍵去掉,並任意增加一個鍵,最後在E,F列寫出最後的鍵和鍵值,代碼如下:
Sub MyNZsz_37() '第37講 字典的應用
Dim dic As Object
Sheets("37").Select
Set dic = CreateObject("Scripting.Dictionary") '引用字典
Dim arr(1 To 21), i As Long '建立一個數組用來給鍵賦值
For i = 1 To 21
arr(i) = i + 99
Next i
For i = 1 To 20
dic(Cells(i, "a").Value) = arr(i) '寫入鍵和鍵值,要注意寫入的方法
Next i
i = 1
Do While Cells(i, 3) <> ""
dic.Remove (Cells(i, "c").Value) '移除C列的鍵值
i = i + 1
Loop
dic.Add "WW21", "234" '增加一個鍵,鍵值是234
[e1].Resize(dic.Count, 1) = Application.Transpose(dic.Keys) '轉置顯示鍵
[f1].Resize(dic.Count, 1) = Application.Transpose(dic.items) '轉置顯示鍵值
End Sub
代碼截圖:
代碼講解:
1. 上述代碼首先創建一個字典對象,然後,把工作表A列的值放到數組,作爲鍵;第三步是給字典的鍵賦值,第四步移除C列的鍵對,第五步,增加一個鍵,第六步顯示
2 Set dic = CreateObject("Scripting.Dictionary") '引用字典
字典的加載有兩種辦法,一個是CreateObject("Scripting.Dictionary"),另外一個是引用,就是在VBE窗口,打開引用,找到Dictionary的引用即可,本書中大多以SET形式來引用字典
3 For i = 1 To 21
arr(i) = i + 99
Next i
賦值一維數組,作爲鍵值
4 For i = 1 To 20
dic(Cells(i, "a").Value) = arr(i) '寫入鍵和鍵值,要注意寫入的方法
Next i
寫入鍵和鍵值。要特別注意是我實例中的寫法
5 dic.Remove (Cells(i, "c").Value) '移除C列的鍵值
上述代碼移除鍵和鍵值.
6 dic.Add "WW21", "234" '增加一個鍵,鍵值是234
上述代碼增加鍵和鍵值.
6 [e1].Resize(dic.Count, 1) = Application.Transpose(dic.Keys) '轉置顯示鍵
[f1].Resize(dic.Count, 1) = Application.Transpose(dic.items) '轉置顯示鍵值
顯示鍵和鍵值
運行後的截圖:
今日內容迴向:
1 什麼是字典?
2 字典有哪些屬性?
3 如何給字典賦值?
4 利用字典如何進行排重?