學習了字典後，我們知道從字典中讀取數據速度超級快，所以我們今天就學習下如何利用字典實現查詢功能。
壹個表裏存放著商品的信息，在采購單中輸入商品編號時，希望品名，規格，單價能夠自動匹配上去。
思路：
把商品信息寫入字典，壹個商品對應的有品名、規格、單價三個數據，壹個item怎麽裝三個數據呢？這就是難點所在，如果能把品名、規格、單價三個數據寫入壹個item中，在采購單中輸入商品編號時，在字典中查找key(商品編號)對應的item放入三個對應的單元格中即可。我們先看下代碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, d As Object, i%
Set d = CreateObject("scripting.dictionary")
arr = Sheets("商品信息").Range("a2", Sheets("商品信息").[d1].End(xlDown))
For i = 1 To UBound(arr)
d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4))
————————————————
版權聲明：本文為CSDN博主「舞蝶迷香徑」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：/weixin_34809240/article/details/112730015