這節(jié)課給大家講解字典得知識(shí)，字典概念聽(tīng)起來(lái)感覺(jué)很抽象，實(shí)際和現(xiàn)實(shí)生活做作對(duì)比就好理解一些。
字典，通俗得理解就是儲(chǔ)存一定數(shù)量關(guān)鍵字和他得釋義（條目）得一個(gè)對(duì)象。
一、字典得特點(diǎn)：
①關(guān)鍵字具有唯一性
就是說(shuō)在字典對(duì)象里，不可能同時(shí)出現(xiàn)一個(gè)字符串兩次。在將一批關(guān)鍵詞寫(xiě)入字典得過(guò)程中，字典會(huì)自動(dòng)剔除重復(fù)得字符串。
②每一個(gè)關(guān)鍵字對(duì)應(yīng)一個(gè)條目。
利用字典得以上兩個(gè)特性，我們就可以很便捷得做一下應(yīng)用。去重復(fù)，分類(lèi)匯總，按列拆分成工作表,按列拆分成工作簿等等
二、引用字典得方法(字典不是Excel程序里對(duì)象,是外部對(duì)象)
1.前期綁定：方法 Alt+F11 打開(kāi)VBE感謝窗口-->工具菜單-->引用-->瀏覽-->找到scrrun.dll-->選擇它-->打開(kāi)-->確定
Sub 前期綁定()
Dim dic As New Dictionary
End Sub
2.后期綁定
sub 后期綁定()
Dim dic
Set dic= CreateObject("scripting.Dictionary")
End Sub
兩者得區(qū)別,前期綁定優(yōu)點(diǎn)會(huì)彈出列表,當(dāng)您輸入dic.之后,后面會(huì)彈出成員列,6個(gè)方法和4個(gè)屬性,方便入門(mén)得朋友學(xué)習(xí),缺點(diǎn)就是把帶有字典代碼得工作簿發(fā)給朋友,朋友不能直接用,也要手動(dòng)引用。
后期綁定得話發(fā)給別人，無(wú)需手動(dòng)重新綁定字典對(duì)象，拿到即可使用。但是輸入字典對(duì)象不會(huì)出現(xiàn)成員列表。
因此建議，初期學(xué)習(xí)字典得時(shí)候可以前期綁定，方便學(xué)習(xí)。寫(xiě)代碼得時(shí)候再后期綁定發(fā)給別人。
三、字典得6個(gè)方法、4個(gè)屬性
?6個(gè)方法：
1.Add 添加一條關(guān)鍵字與條目
2.Keys 返回所有關(guān)鍵字(形成1維數(shù)組)
3.Items 返回所有條目(形成1維數(shù)組)
4.Exists 關(guān)鍵字是否存在(TRUE/FALSE)
5.Remove 移除關(guān)鍵字與對(duì)應(yīng)得條目
6.RemoveAll 移除所有關(guān)鍵字與對(duì)應(yīng)得條目
?4個(gè)屬性：
字典對(duì)象得屬性有4個(gè)：CompareMode屬性、Count屬性、Key屬性、Item屬性。
?詳細(xì)解釋?zhuān)?/p>
1.add方法
作用：向 Dictionary 對(duì)象中添加一個(gè)關(guān)鍵字項(xiàng)目對(duì)。
object.Add (key, item)
Object
必選項(xiàng)。字典對(duì)象得名稱(chēng)
2.兩個(gè)屬性（key和item）
Key（關(guān)鍵字）
必選項(xiàng)。與被添加得 item 相關(guān)聯(lián)得 key?？梢栽?Dictionary 對(duì)象中修改一個(gè) key。
d.Key("你好") = "excel"
Item（條目）
在一個(gè) Dictionary 對(duì)象中設(shè)置或者返回所指定 key 得 item。對(duì)于集合則根據(jù)所指定得 key 返回一個(gè) item。
d.Item("你好") = "vba" ?d("你好") = "vba" ,若字典中不存在關(guān)鍵字“你好”，則會(huì)添加到字典中。
說(shuō)明
key 是唯一存在得，否則將導(dǎo)致一個(gè)錯(cuò)誤。
示例：
Sub test()
Dim d As New Dictionary
Set d = CreateObject("scripting.Dictionary")
d.Add "你好", "123"
d.Add "VBA", "456"
end sub
運(yùn)行一下，兩對(duì)兒關(guān)鍵字和條目就被寫(xiě)入到了字典中。
注意：在本地窗口中可能看不到Item對(duì)應(yīng)得實(shí)際字符串，只能看到關(guān)鍵字。
3.Keys方法（導(dǎo)出關(guān)鍵字得集合）
返回一個(gè)數(shù)組（下標(biāo)從0開(kāi)始），其中包含了一個(gè) Dictionary 對(duì)象中得全部現(xiàn)有得關(guān)鍵字。
4.Items方法（導(dǎo)出條目得集合）
返回一個(gè)數(shù)組（下標(biāo)從0開(kāi)始），其中包含了一個(gè) Dictionary 對(duì)象中得全部現(xiàn)有得條目。
示例：
Sub test()
Dim d As New Dictionary
Set d = CreateObject("scripting.Dictionary")
d.Add "你好", "123"
d.Add "VBA", "456"
d.Add "每天學(xué)點(diǎn)Excel vba", "126"
k = d.keys
l = d.items
end sub
運(yùn)行上述代碼以后，在本地窗口顯示出來(lái)k跟l為下標(biāo)從0開(kāi)始得一維數(shù)組。
5.Exists方法
如果 Dictionary 對(duì)象中存在所指定得關(guān)鍵字則返回 true，否則返回 false。
a = d.Exists("你好")
6.Remove方法
Remove 方法從一個(gè) Dictionary 對(duì)象中清除一個(gè)關(guān)鍵字，項(xiàng)目對(duì)。
d.Remove ("你好")
7.RemoveAll方法
RemoveAll 方法從一個(gè) Dictionary 對(duì)象中清除所有得關(guān)鍵字，項(xiàng)目對(duì)。
用法：d.RemoveAll
8.CompareMode屬性
'設(shè)置或者返回在 Dictionary 對(duì)象中進(jìn)行字符串關(guān)鍵字比較時(shí)所使用得比較模式。
d.CompareMode = 0 '1則不區(qū)分大小寫(xiě)，0則區(qū)分大小寫(xiě)
d.Add "B", ""
d.Add "b", ""
9.Count屬性
返回一個(gè)Dictionary 對(duì)象中得項(xiàng)目數(shù)（關(guān)鍵字和條目得對(duì)兒數(shù)）。只讀屬性
k = d.Count
