返回列表 上一主題 發帖

字典擴充用法(字典+自訂物件類別)

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-5-18 16:20 | 只看該作者

字典擴充用法(字典+自訂物件類別)

本帖最後由 n7822123 於 2020-5-18 16:23 編輯

對於資料處理來說 "字典" 是一個非常好用的物件，

可以快速查找需要的資料，VBA老手肯定不陌生

但是 字典的格式 1個 Key 只對應1個 Item，沒有 Item2,Item3,Item4........

對於VBA老手來說，這不是問題，可用的方法太多了

EX1:可以用Item 紀錄編號 ，先用字典查編號(第1步)，再利用編號去查想要資料(第2步)

EX2:或者把"分隔符號"也塞入 Item，撈出資料後(第1步)，再做解字串(第2步)，解出想要的資料

但是這些方法都需要2步來撈出需要的資料，對於VBA新手來說，可能就比較沒那麼"直覺"，看程式不易懂

所以我"提供字典+自訂物件類別"的方式，來擴充字典的 Item

請詳附件 (字典+陣列的用法只是順帶提供，VBA新手可能比較不易懂)

字典擴充用法(字典+自訂物件類別).rar (36.49 KB)
1

評分人數

收藏 分享
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2022-10-17 13:32 | 只看該作者
回復 1# n7822123

謝謝前輩分享將一維陣列放入字典item中
Sub 輸入資料到字典2()
Dim Arr As Range, Brr
Set D = CreateObject("Scripting.Dictionary")
Set Arr = Range([員工資料!F1], [員工資料!A1].End(xlDown))
For R = 2 To Arr.Rows.Count
  Key$ = Arr(R, 1)
  Brr = Arr(R, 2).Resize(, 5) 'Brr會是個2維資料陣列
  '小技巧-Brr陣列降維度  2維陣列=>1維陣列
  Brr = Application.Transpose(Application.Transpose(Brr))
  D(Key) = Brr   '把陣列裝到字典的 "Item"
Next R
End Sub

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題