VBA Collection用法總結

1 Sub test()
 2 '    Dim s As Collection '定義s變量爲集合對象
 3 '    Set s = New Collection '初始化集合對象s (不然沒法使用)
 4 
 5     Dim s As New Collection '推薦這句代碼，直接初始化，能夠不用再Set了
 6 
 7     '集合s中添加元素的方法
 8     For i = 1 To 10
 9         s.Add i '對於集合s，用Add方法能夠加入集合元素
10             '固然事實上你能夠添加任意內容來代替本例中的i
11     Next
12 
13 
14     '讀取集合中元素的方法    
15     For i = 1 To s.Count '能夠用Count屬性返回集合中元素總個數
16         t = s(i) '讀取集合s中第i個變量存入臨時變量t中
17         t = s.Item(i) '正規的代碼寫法應該是這樣子(效果同樣，推薦用上一句更簡明)
18         Debug.Print s(i) '在當即窗口中觀察s(i)的值
19     Next
20     
21     '下面是集合s中元素刪除的方法
22     For i = 1 To s.Count '遍歷集合元素
23         s.Remove (1) '每次刪去第1個……直至所有刪除完畢 或直接簡寫爲： s.Remove 1
24 '        s.Remove (s.Count) '或者每次刪除最後一個，直至所有刪除完畢(推薦用上一句，不容易錯)
25 '        或簡寫爲 s.Remove s.Count       
26         Debug.Print s.Count '在當即窗口中觀察集合s中剩餘元素個數
27     Next
28     
29 End Sub