35、[VBA入门到放弃笔记] 字典:操作字典

编写VBA字典可以有以下四个动作：增，删，查，改。

• 1、增：增加字典条目,如将下列商品信息放进字典。

商品名称| 单价
---|---|---
明月刀 |10000
孔雀翎 |8888888
龙泉剑 |6666
伏魔棍 |99999
三角刺 |11111
板凳 |999999999
砖头 |99999999999

Sub a()
    Dim arr, d As Object
    Set d = CreateObject("scripting.dictionary")'创建字典
    arr = [a1].CurrentRegion'将数据放进数组
    For i = 2 To UBound(arr)'循环数组
'将商品数据新增到字典d里面,arr(i, 1)商品名称,arr(i, 2)单价
        d(arr(i, 1)) = arr(i, 2)
    Next
End Sub

• 这样一本关于商品单价的字典就创建并添加数据完毕了。
• d(key)=item,这个动作就是新增字典条目。
• 这里要注意的是2个地方，以砖头为例子：1、假如字典里没有砖头这个商品，那么d("砖头")就是新增"砖头"这个条目；2、假如字典里已经存在"砖头"这个商品，d("砖头")是什么意思？

---

• 2、查：假如，有人来买砖头，你特么一下子不记得砖头单价了，这时候，你就从字典李查砖头的单价。

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("砖头") '砖头的单价
    Range("e2") = d(Range("d2")) '砖头的单价输出到单元格
End Sub

• 运行代码，E2单元格并没有单价，啥回事？

Paste_Image.png

• 查阅字典相当简单， s = d("砖头")就相当于将砖头的单价赋值给s变量。d("砖头")读取的就是"砖头"的单价。
• 字典读取单元格信息，读取的是单元格的值，改为Range("e2") = d(Range("d2").Value),就能够得出"砖头"的单价。千万不要忘记 .Value，不然没有数据。
• 如果字典里没有砖头这个商品，s = d("砖头"),就是s=""空值。

---

• 3、改：假如又有人来买砖头，而且是大量，想要点优惠，希望单价低点。

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("砖头") '砖头的单价
    '------------修改字典-------------------------------
    d("砖头") = 88888888888#
    '再查字典
    ss = d("砖头")

修改字典

• 继续以砖头为例子，字典里不需要管砖头这个key存在不存在。
• 如果不存在砖头这个key，那么 d("砖头")=9999999999，就是新增砖头这个条目；
• 如果存在砖头这个key，那么d("砖头")=9999999999，就是修改砖头这个条目的item，不管砖头原来的单价是多少，反正一律修改为9999999999。
• d(key)=item，既是新增条目，也是修改条目。这里修改的是字典的item，也就是单价。
• 如果要修改字典的key，需要用到字典的key属性。下章再说。

---

• 4、删：商品三角刺要淘汰了，要在字典里删除。语法：
• 4.1、 单个条目删除：字典名称.remove(key)
• 4.2、全部删除：字典名称.removeall

   d.Remove ("三角刺") '删除三角刺这个条目
    k = d.keys
    d.RemoveAll'删除所有条目，相当于清空字典
    k = d.keys

Paste_Image.png

• 当运行至d.Remove ("三角刺")语句是，字典里面的key已经不存在三角刺了。k = d.keys这里是辅助代码，为了方便看到字典所有的key。

Paste_Image.png

• 运行到d.RemoveAll，字典已经被清空了。

hhhhhh.gif

---