office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA字典dictionary的Items方法示例

2020-04-28 08:00:00
zstmtony
原創
176

Items方法:

字典對象.Items( )

返迴一箇數組,其中包含瞭一箇 Dictionary 對象中的所有項目。實例運用:

Dim d

Dim itms  

   Set d = CreateObject("Scripting.Dictionary")

   d.Add "a", "www.excel-cn.om"  

   d.Add "b", "www.office-cn.net"

   d.Add "c", "www.access-cn.com"

   itms=d.Items

   [D1].Resize(d.Count,1)=Application.Transpose(itms)


    itms=d.Items :把字典中所有的關鍵字對應的項賦給變量itms

     得到一箇一維數組,下限爲0,上限爲d.Count-1。這是數組的默認形式。

分享