VBA 我无法使用 Dictionary 来使用 Exists 方法

VBA中无法直接使用Dictionary的Exists方法，这给我们在处理数据时带来了一些不便。然而，我们可以通过编写一些自定义的函数来实现类似的功能。下面将介绍如何通过自定义函数来判断字典中是否存在某个键。

vba
Sub TestDictionary()
    Dim dict As Collection
    Set dict = New Collection
    
    ' 添加项到字典
    dict.Add "Apple", "A"
    dict.Add "Banana", "B"
    dict.Add "Orange", "O"
    
    ' 判断字典中是否存在某个键
    If KeyExists(dict, "A") Then
        MsgBox "键存在"
    Else
        MsgBox "键不存在"
    End If
End Sub
Function KeyExists(ByVal dict As Collection, ByVal key As Variant) As Boolean
    Dim item As Variant
    On Error Resume Next
    item = dict(key)
    KeyExists = (Err.Number = 0)
    On Error GoTo 0
End Function

vba
Sub TestDictionary()
    Dim dict As Collection
    Set dict = New Collection
    
    ' 添加项到字典
    dict.Add "Apple", "A"
    dict.Add "Banana", "B"
    dict.Add "Orange", "O"
    
    ' 判断字典中是否存在某个键
    If KeyExists(dict, "A") Then
        MsgBox "键存在"
    Else
        MsgBox "键不存在"
    End If
End Sub
Function KeyExists(ByVal dict As Collection, ByVal key As Variant) As Boolean
    Dim item As Variant
    On Error Resume Next
    item = dict(key)
    KeyExists = (Err.Number = 0)
    On Error GoTo 0
End Function