分かりやすく、使いやすく。

Dictionary に指定したキーが存在するかを確認する方法

スポンサーリンク

Dictionary にキーが存在するかを判定するには Exists メソッドを使用します。 Exists メソッドはキーが存在する場合は True を、存在しない場合は False を返します。

サンプルコードは次の通りです。

VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub test()
    'Dictionary の初期化
    Dim dicColors As Object
    Set dicColors = CreateObject("Scripting.Dictionary")
    
    'キーと値を追加。
    dicColors.Add "red", "赤"
    dicColors.Add "blue", "青"
    dicColors.Add "pink", "桃"
    
    'キーに blue が存在するかを確認
    If dicColors.Exists("blue") Then
        Debug.Print "キーに blue は存在します。"
    Else
        Debug.Print "キーに blue は存在しません。"
    End If
     
    'キーに green が存在するかを確認
    If dicColors.Exists("green") Then
        Debug.Print "キーに green は存在します。"
    Else
        Debug.Print "キーに green は存在しません。"
    End If
End Sub 

上記の実行結果は次の通りです。

実行結果
1
2
キーに blue は存在します。
キーに green は存在しません。 
スポンサーリンク
スポンサーリンク