确定对象是否是VBA中集合的成员

在 VBA 中，可以使用 IsMemberOf 函数来确定对象是否是集合的成员。以下是一个示例代码：

Sub IsMemberOfExample()
    Dim myCollection As Collection
    Dim myObject As Object
    Dim result As Boolean

    ' 创建集合
    Set myCollection = New Collection

    ' 添加元素到集合
    myCollection.Add "Apple"
    myCollection.Add "Banana"
    myCollection.Add "Orange"

    ' 创建对象
    Set myObject = CreateObject("Scripting.Dictionary")

    ' 检查对象是否是集合的成员
    result = IsMemberOf(myCollection, myObject)

    ' 输出结果
    If result Then
        MsgBox "对象是集合的成员"
    Else
        MsgBox "对象不是集合的成员"
    End If
End Sub

Function IsMemberOf(col As Collection, obj As Object) As Boolean
    Dim item As Variant

    For Each item In col
        If obj Is item Then
            IsMemberOf = True
            Exit Function
        End If
    Next

    IsMemberOf = False
End Function

在上面的代码中，我们首先创建了一个集合 myCollection，并向其中添加了三个元素。然后，我们创建了一个对象 myObject。最后，我们使用 IsMemberOf 函数来检查对象是否是集合的成员。如果对象是集合的成员，则函数返回 True，否则返回 False。