office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA字典dictionary的Exists方法示例

2020-04-21 08:00:00
zstmtony
原创
1161
Exists方法:object.Exists(key)

如果 Dictionary 对象中存在所指定的关键字则返回 true,否则返回 false。


示例 如下:


Dim d
Dim strMsg As String  

   Set d = CreateObject("Scripting.Dictionary")

   d.Add "a", "www.access-cn.com"  

   d.Add "b", "www.office-cn.net"

   d.Add "c", "www.excel-cn.com"

   If d.Exists("c") Then

      strMsg = "指定的关键字已经存在。"

   Else

      strMsg = "指定的关键字不存在。"

   End If
分享