excel - VBA在集合中按值获取键

Question

这个问题已经有答案了:

已关闭 10 年前。

Possible Duplicate:
VBA collection: list of keys

也许这是一个非常简单的问题，但我是 VBA 新手。我有一些数据想用作集合(键，值)。如何通过值获取键？

Answer 1

我认为您无法使用 Collection 对象执行此操作。

但是，您可以使用替代的字典，您需要从 VBA 编辑器将其包含在 Excel 项目中:单击“工具”菜单，选择“引用”并找到“Microsoft 脚本” Runtime”，之后您应该能够执行如下操作:

Public Sub Test()

Dim dict As New dictionary
    dict.Add "a", 1     ' "Add" parameters are reversed compared to Collection
    dict.Add "b", 2
    dict.Add "c", 3

    If KeyFromvalue(dict, 2) = "b" Then
        Debug.Print "Success!"
    Else
        Debug.Print "fail..."
    End If

End Sub

Public Function KeyFromvalue(dict As dictionary, ByVal target)

Dim idx As Long

    For idx = 0 To dict.Count - 1
        If dict.Items(idx) = target Then
            KeyFromvalue = dict.Keys(idx)
            Exit Function
        End If
    Next

End Function