表格包含商品信息。當您在采購訂單中輸入商品編號時,您希望名稱、規格和單價能夠自動匹配。
想法:
將商品信息寫入字典。壹個商品對應的數據有三個:名稱、規格、單價。壹個項目怎麽能容納三個數據呢?這就是難點。如果能將產品名稱、規格、單價這三個數據寫入壹個條目中,那麽在采購訂單中輸入產品編號時,就可以在字典中查找key對應的條目,放入三個對應的單元格中。讓我們先看看代碼:
私有子工作表_Change(ByVal目標作為範圍)
Dim arr,d作為對象,i%
set d = CreateObject(" scripting . dictionary ")
Arr = Sheets(“商品信息”)。範圍(“a2”,表(“商品信息”)。[d1]。End(xlDown))
對於i = 1到UBound(arr)
d(arr(i,1)) = Array(arr(i,2),arr(i,3),arr(i,4))
————————————————
版權聲明:本文為CSDN博主“蝶舞範翔徑”原創文章,遵循CC 4.0 BY-SA版權協議。轉載請附上原出處鏈接和本聲明。
原文鏈接:/weixin _ 34809240/文章/詳情/1127 30015。