VBA字典用法集锦及代码详解文档格式.doc
- 文档编号:13162592
- 上传时间:2022-10-07
- 格式:DOC
- 页数:54
- 大小:1.95MB
VBA字典用法集锦及代码详解文档格式.doc
《VBA字典用法集锦及代码详解文档格式.doc》由会员分享,可在线阅读,更多相关《VBA字典用法集锦及代码详解文档格式.doc(54页珍藏版)》请在冰豆网上搜索。
就好像一本字典书一样,是由很多生字和对它们对应的注解所组成。
比如字典的“典”字的解释是这样的:
“典”字就是具有唯一性的关键字,后面的解释就是它的项,和“典”字联合组成一对数据。
常用关键字英汉对照:
Dictionary 字典
Key 关键字
Item 项,或者译为条目
字典对象的方法有6个:
Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。
Add方法
向Dictionary对象中添加一个关键字项目对。
object.Add(key,item)
参数
object
必选项。
总是一个Dictionary对象的名称。
key
与被添加的item相关联的key。
item
与被添加的key相关联的item。
说明
如果key已经存在,那么将导致一个错误。
常用语句:
Dimd
Setd=CreateObject("
Scripting.Dictionary"
)
d.Add"
a"
"
Athens"
b"
Belgrade"
c"
Cairo"
代码详解
1、Dimd:
创建变量,也称为声明变量。
变量d声明为可变型数据类型(Variant),d后面没有写数据类型,默认就是可变型数据类型(Variant)。
也有写成DimdAsObject的,声明为对象。
2、Setd=CreateObject("
):
创建字典对象,并把字典对象赋给变量d。
这是最常用的一句代码。
所谓的“后期绑定”。
用了这句代码就不用先引用c:
\windows\system32\scrrun.dll了。
3、d.Add"
:
添加一关键字”a”和对应于它的项”Athens”。
4、d.Add"
“Belgrade”:
添加一关键字”b”和对应于它的项”Belgrade”。
5、d.Add"
“Cairo”:
添加一关键字”c”和对应于它的项”Cairo”。
Exists方法
如果Dictionary对象中存在所指定的关键字则返回true,否则返回false。
object.Exists(key)
需要在Dictionary对象中搜索的key值。
Dimd,msg$
Setd=CreateObject("
d.Add"
Ifd.Exists("
)Then
msg="
指定的关键字已经存在。
"
Else
指定的关键字不存在。
EndIf
1、Dimd,msg$:
声明变量,d见前例;
msg$声明为字符串数据类型(String),一般写法为DimmsgAsString。
String的类型声明字符为美元号($)。
2、Ifd.Exists("
)Then:
如果字典中存在关键字”c”,那么执行下面的语句。
3、msg="
:
把"
字符串赋给变量msg。
4、Else:
否则执行下面的语句。
5、msg="
6、EndIf:
结束If…Else…Endif判断。
Keys方法
返回一个数组,其中包含了一个Dictionary对象中的全部现有的关键字。
object.Keys()
其中object总是一个Dictionary对象的名称。
Dimd,k
k=d.Keys
[B1].Resize(d.Count,1)=Application.Transpose(k)
1、Dimd,k:
k默认是可变型数据类型(Variant)。
2、k=d.Keys:
把字典中存在的所有的关键字赋给变量k。
得到的是一个一维数组,下限为0,上限为d.Count-1。
这是数组的默认形式。
3、[B1].Resize(d.Count,1)=Application.Transpose(k):
这句代码是很常用很经典的代码,所以这里要多说一些。
Resize是Range对象的一个属性,用于调整指定区域的大小,它有两个参数,第一个是行数,本例是d.Count,指的是字典中关键字的数量,整本字典中有多少个关键字,本例d.Count=3,因为有3个关键字。
呵呵,是不是说多了。
第二个是列数,本例是1。
这样=左边的意思就是:
把一个单元格B1调整为以B1开始的一列单元格区域,行数等于字典中关键字的数量d.Count,就是把单元格B1调整为单元格区域B1:
B3了。
=右边的k是个一维数组,是水平排列的,我们知道Excel工作表函数里面有个转置函数Transpose,用它可以把水平排列的置换成竖向排列。
但是在VBA中不能直接使用该工作表函数,需要通过Application对象的WorksheetFunction属性来使用它。
所以完整的写法是Application.WorksheetFunction.Transpose(k),中间的WorksheetFunction可省略。
现在可以解释这句代码了:
把字典中所有的关键字赋给以B1单元格开始的单元格区域中。
Items方法
返回一个数组,其中包含了一个Dictionary对象中的所有项目。
object.Items()
Dimd,t
t=d.Items
[C1].Resize(d.Count,1)=Application.Transpose(t)
1、Dimd,t:
t默认是可变型数据类型(Variant)。
2、t=d.Items:
把字典中所有的关键字对应的项赋给变量t。
得到的也是一个一维数组,下限为0,上限为d.Count-1。
3、[C1].Resize(d.Count,1)=Application.Transpose(t):
有了上面Keys方法的解释这句代码就不用多说了,就是把字典中所有的关键字对应的项赋给以C1单元格开始的单元格区域中。
Remove方法
Remove方法从一个Dictionary对象中清除一个关键字,项目对。
object.Remove(key)
key与要从Dictionary对象中删除的关键字,项目对相关联。
如果所指定的关键字,项目对不存在,那么将导致一个错误。
Dimd
……
d.Remove(“b”)
1、d.Remove(“b”):
清除字典中”b”关键字和与它对应的项。
清除之后,现在字典里只有2个关键字了。
RemoveAll方法
RemoveAll方法从一个Dictionary对象中清除所有的关键字,项目对。
object.RemoveAll()
d.RemoveAll
1、d.RemoveAll:
清除字典中所有的数据。
也就是清空这字典,然后可以添加新的关键字和项,形成一本新字典。
字典对象的属性有4个:
Count属性、Key属性、Item属性、CompareMode属性。
Count属性
返回一个Dictionary对象中的项目数。
只读属性。
object.Count
其中object一个字典对象的名称。
Dimd,n%
n=d.Count
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA 字典 用法 集锦 代码 详解
![提示](https://static.bdocx.com/images/bang_tan.gif)