VBA中集合collection方法的基础知识
2015-12-18 18:17
856 查看
刚刚有新手在问 Collection是什么意思?……
于是有了下面的代码介绍:
Sub test()
' Dim s As Collection '定义s变量为集合对象
' Set s = New Collection '初始化集合对象s (否则无法使用)
Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了
'集合s中添加元素的方法
For i = 1 To 10
s.Add i '对于集合s,用Add方法可以加入集合元素
'当然事实上你可以添加任意内容来代替本例中的i
Next
'读取集合中元素的方法
For i = 1 To s.Count '可以用Count属性返回集合中元素总个数
t = s(i) '读取集合s中第i个变量存入临时变量t中
t = s.Item(i) '正规的代码写法应该是这样子(效果一样,推荐用上一句更简明)
Debug.Print s(i) '在立即窗口中观察s(i)的值
Next
'下面是集合s中元素删除的方法
For i = 1 To s.Count '遍历集合元素
s.Remove (1) '每次删去第1个……直至全部删除完毕 或直接简写为: s.Remove 1
' s.Remove (s.Count) '或者每次删除最后一个,直至全部删除完毕(推荐用上一句,不容易错)
' 或简写为 s.Remove s.Count
Debug.Print s.Count '在立即窗口中观察集合s中剩余元素个数
Next
End Sub
复制代码
于是有了下面的代码介绍:
Sub test()
' Dim s As Collection '定义s变量为集合对象
' Set s = New Collection '初始化集合对象s (否则无法使用)
Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了
'集合s中添加元素的方法
For i = 1 To 10
s.Add i '对于集合s,用Add方法可以加入集合元素
'当然事实上你可以添加任意内容来代替本例中的i
Next
'读取集合中元素的方法
For i = 1 To s.Count '可以用Count属性返回集合中元素总个数
t = s(i) '读取集合s中第i个变量存入临时变量t中
t = s.Item(i) '正规的代码写法应该是这样子(效果一样,推荐用上一句更简明)
Debug.Print s(i) '在立即窗口中观察s(i)的值
Next
'下面是集合s中元素删除的方法
For i = 1 To s.Count '遍历集合元素
s.Remove (1) '每次删去第1个……直至全部删除完毕 或直接简写为: s.Remove 1
' s.Remove (s.Count) '或者每次删除最后一个,直至全部删除完毕(推荐用上一句,不容易错)
' 或简写为 s.Remove s.Count
Debug.Print s.Count '在立即窗口中观察集合s中剩余元素个数
Next
End Sub
复制代码
相关文章推荐
- VB中ByVal与ByRef有什么区别
- vba excel 的宏
- 利用VBA把PowerDesigner的comment复制到name
- 利用VBA把PowerDesigner的name复制到comment
- 行情列表重构 TabBar&NavBar&tableView
- 解决Unable to load R3 module ...VBoxDD.dll (VBoxDD):GetLastError=1790
- 利用VBA从Excel导入数据模型到PowerDesigner
- 利用VBA把PowerDesigner导出到Excel
- VBoxManage命令详解
- 函数模块:CTVB_COMPARE_TABLES--两个表中删除/变更/粘贴分解
- VB6.0 读取Excel文件并返还数据集RecordSet
- vb学习基础之val函数与val(&HFFFF) 的理解
- Phone_DVB+OTT项目首页
- vb制作单片机 上位机 (1) 控制单个电灯开关
- [VBS] Working with DOS Command Line
- VB6.0 获取Excel文件工作表Sheet的名称
- 【VBA研究】定时关闭MsgBox及相关未公开的API
- 因为PPBC的防盗链,尝试用vba的对象来解决,顺便复习一下。。。
- vb常用函数一览表
- Excel VBA简单使用——数据缺失处理