「VBA」Exists()で指定のキーが存在するか判定するサンプル

2014年4月11日2021年5月4日

書式
Dictionary名.Exists(キー)
使用例

Sub funcA()

    Dim usr As Object
    Set usr = CreateObject("Scripting.Dictionary")

    usr.Add "kyA", "111"
    usr.Add "kyB", "222"
    usr.Add "kyC", "333"

    If usr.Exists("kyB") = True Then
        Debug.Print "data exist"
    End If

End Sub