ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 在判断字典关键字是否存在时,如何避免自动增加关键字?

在判断字典关键字是否存在时,如何避免自动增加关键字?

作者:绿色风 分类: 时间:2022-08-17 浏览:83
楼主
amulee
Q:如何避免字典对象自动增加关键字?
A:在进行判断字典对象关键字是否存在时,如果简单采用下列语句,则字典对象会增加关键字。
  1. d.Key("D") = ""


要避免上述情况发生,应该采用Exists方法进行判断。
  1. d.Exists("E")

参考以下代码:
  1. Sub 修改字典关键字()
  2.     Dim d As Object
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     '创建三个关键字
  5.     d("A") = 1
  6.     d("B") = 2
  7.     d("C") = 3
  8.     If d("D") = "" Then  '此时,系统为字典自动增加了关键字“D”
  9.         MsgBox d.Count
  10.     End If
  11.     If Not d.Exists("E") Then   '此时,字典不会增加关键字“E”
  12.         MsgBox d.Count
  13.     End If
  14. End Sub



字典的关键字.rar
2楼
wnianzhong
学习一下VBA!
3楼
开心萝卜
学习字典,谢谢分享!
4楼
bluexuemei
学习!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap