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

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