「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
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
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