編寫(xiě)VBA字典可以有以下四個(gè)動(dòng)作：增，刪，查，改。
- 1、增：增加字典條目,如將下列商品信息放進(jìn)字典。
商品名稱| 單價(jià)
---|---|---
明月刀 |10000
孔雀翎 |8888888
龍泉?jiǎng)?|6666
伏魔棍 |99999
三角刺 |11111
板凳 |999999999
磚頭 |99999999999
Sub a()
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")'創(chuàng)建字典
arr = [a1].CurrentRegion'將數(shù)據(jù)放進(jìn)數(shù)組
For i = 2 To UBound(arr)'循環(huán)數(shù)組
'將商品數(shù)據(jù)新增到字典d里面,arr(i, 1)商品名稱,arr(i, 2)單價(jià)
d(arr(i, 1)) = arr(i, 2)
Next
End Sub
- 這樣一本關(guān)于商品單價(jià)的字典就創(chuàng)建并添加數(shù)據(jù)完畢了。
- d(key)=item,這個(gè)動(dòng)作就是新增字典條目。
- 這里要注意的是2個(gè)地方，以磚頭為例子：1、假如字典里沒(méi)有磚頭這個(gè)商品，那么d("磚頭")就是新增"磚頭"這個(gè)條目；2、假如字典里已經(jīng)存在"磚頭"這個(gè)商品，d("磚頭")是什么意思？
- 2、查：假如，有人來(lái)買(mǎi)磚頭，你特么一下子不記得磚頭單價(jià)了，這時(shí)候，你就從字典李查磚頭的單價(jià)。
Sub a()
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
'----------新增字典d的條目-----------------------
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
'-----------查閱字典--------------------------------
s = d("磚頭") '磚頭的單價(jià)
Range("e2") = d(Range("d2")) '磚頭的單價(jià)輸出到單元格
End Sub
- 運(yùn)行代碼，E2單元格并沒(méi)有單價(jià)，啥回事？
Paste_Image.png
- 查閱字典相當(dāng)簡(jiǎn)單， s = d("磚頭")就相當(dāng)于將磚頭的單價(jià)賦值給s變量。d("磚頭")讀取的就是"磚頭"的單價(jià)。
- 字典讀取單元格信息，讀取的是單元格的值，改為Range("e2") = d(Range("d2").Value),就能夠得出"磚頭"的單價(jià)。千萬(wàn)不要忘記 .Value，不然沒(méi)有數(shù)據(jù)。
- 如果字典里沒(méi)有磚頭這個(gè)商品，s = d("磚頭"),就是s=""空值。
- 3、改：假如又有人來(lái)買(mǎi)磚頭，而且是大量，想要點(diǎn)優(yōu)惠，希望單價(jià)低點(diǎn)。
Dim arr, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
'----------新增字典d的條目-----------------------
For i = 2 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next
'-----------查閱字典--------------------------------
s = d("磚頭") '磚頭的單價(jià)
'------------修改字典-------------------------------
d("磚頭") = 88888888888#
'再查字典
ss = d("磚頭")
修改字典
- 繼續(xù)以磚頭為例子，字典里不需要管磚頭這個(gè)key存在不存在。
- 如果不存在磚頭這個(gè)key，那么 d("磚頭")=9999999999，就是新增磚頭這個(gè)條目；
- 如果存在磚頭這個(gè)key，那么d("磚頭")=9999999999，就是修改磚頭這個(gè)條目的item，不管磚頭原來(lái)的單價(jià)是多少，反正一律修改為9999999999。
- d(key)=item，既是新增條目，也是修改條目。這里修改的是字典的item，也就是單價(jià)。
- 如果要修改字典的key，需要用到字典的key屬性。下章再說(shuō)。
- 4、刪：商品三角刺要淘汰了，要在字典里刪除。語(yǔ)法：
- 4.1、 單個(gè)條目刪除：字典名稱.remove(key)
- 4.2、全部刪除：字典名稱.removeall
d.Remove ("三角刺") '刪除三角刺這個(gè)條目
k = d.keys
d.RemoveAll'刪除所有條目，相當(dāng)于清空字典
k = d.keys
Paste_Image.png
- 當(dāng)運(yùn)行至d.Remove ("三角刺")語(yǔ)句是，字典里面的key已經(jīng)不存在三角刺了。k = d.keys這里是輔助代碼，為了方便看到字典所有的key。
Paste_Image.png
- 運(yùn)行到d.RemoveAll，字典已經(jīng)被清空了。
hhhhhh.gif
