「VBA」Exists()で指定のキーが存在するか判定するサンプル
書式
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