添加链接
注册
登录
link之家
链接快照平台
输入网页链接,自动生成快照
标签化管理网页链接
相关文章推荐
爱逃课的剪刀
·
中华人民共和国司法部
·
3 月前
·
道上混的上铺
·
哥布林洞窟 百度云 - 百度
·
5 月前
·
痴情的豆腐
·
A BW Reporter System ...
·
6 月前
·
失眠的可乐
·
首日签约金额突破3.35亿元!深圳市高层次人 ...
·
7 月前
·
强健的豆浆
·
清华大学公布2021年自强计划招生简章 面向 ...
·
1 年前
·
link之家
›
VBA字典 - ilovetesting
博客园
key
vba
vba字典
https://www.cnblogs.com/yaoqingzhuan/p/10197477.html
高兴的丝瓜
1 年前
'
工具 --引用 - -浏览 - -找到scrrun.dll - 确定
'
调用方式2 (后期绑定):
'
Set d = CreateObject("scripting.dictionary")
'
编写代码时,建议使用前期绑定(写代码时有提示),编写完成后改成后期绑定
'
创建一个字典对象dict
Dim
dict
As
New
Dictionary
'
前期绑定
'
Set dict = CreateObject("scripting.dictionary")
'
ADD(key, value)
dict.Add
"
k1
"
,
"
v1
"
'
往字典对象dict中添加key1=value1
dict.Add
"
k2
"
,
"
v2
"
'
dict.Add "key1", "value2" 报错,不能添加相同的key
'
keys([index])方法,返回一个数组,包含了一个字典对象的全部key
arra =
dict.Keys
'
items方法,返回一个数组,包含了一个字典对象的全部value
v =
dict.Items
'
Exists(key),判断字典中是否存在key,如果存在则返回true,否则返回false
is_d
= dict.Exists(
"
a1
"
)
'
删除字典中的数据
'
dict.Remove ("key") '删除某个key
'
dict.RemoveAll '删除所有数据
'
字典对象常用的属性,
dict.CompareMode =
0
'
设置key是否区分大小写 0区分大小写,1不区分大小写 如果dict.CompareMode =1
c = dict.Count
'
计算条目数
dict.Key(
"
k1
"
) =
"
k3
"
'
修改某个key的值(替换key,不是修改key对应的value) dict("k1") = "k3" 把key k1修改未k3
dict.Item(
"
k2
"
) =
"
ddd
"
'
修改某个key的value值 dict.Item("k1") = "v3" 把k1的value修改为v3
推荐文章
爱逃课的剪刀
·
中华人民共和国司法部
3 月前
道上混的上铺
·
哥布林洞窟 百度云 - 百度
5 月前
痴情的豆腐
·
A BW Reporter System for Studying Receptor-Ligand Interactions - JoVE
6 月前
失眠的可乐
·
首日签约金额突破3.35亿元!深圳市高层次人才产品对接会福田启动_深圳新闻网
7 月前
强健的豆浆
·
清华大学公布2021年自强计划招生简章 面向15个专业类招生--教育--人民网
1 年前