vba - 查找字典中某个项目对应的键

Question

有什么方法可以找到与 VBA 字典中给定项目对应的键吗？

http://msdn.microsoft.com/en-us/library/aa164502%28v=office.10%29.aspxMSDN 建议可以使用“Key”属性，但是当我尝试使用它时，出现错误(“编译错误:属性使用无效”)。我过去发现这里给出的“Exists”方法也不适合我，所以我假设它们是以前版本的 Office 中的命令，现在已经过时了。但是我还没有找到最新版本 Office 的等效版本。

我可以使用 for every 循环创建一个新字典，其中旧字典中的键是新字典中的项目(反之亦然)，然后使用“.Item”，但我想知道是否有一个内置命令可以让我避免这种情况。

Answer 1

but I was wondering if there was an inbuilt command that would allow me to avoid this.

不，没有这样的内置命令。您将不得不诉诸某种循环。这是一个例子。我创建了一个小函数来获取与字典中的项目相对应的键。

Dim Dict As Dictionary

Sub Sample()
    Set Dict = New Dictionary

    With Dict
      .CompareMode = vbBinaryCompare
      For i = 1 To 10
        .Add i, "Item " & i
      Next i
    End With

    Debug.Print GetKey(Dict, "Item 3")
End Sub

Function GetKey(Dic As Dictionary, strItem As String) As String
    Dim key As Variant
    For Each key In Dic.Keys
        If Dic.Item(key) = strItem Then
            GetKey = CStr(key)
            Exit Function
        End If
    Next
End Function