office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

VBA字典dictionary的Exists方法示例

2020-04-21 08:00:00
zstmtony
原創
15640
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
分享