VBA中的LSP成员等效？

Fatty · 发表于 2007-10-23 12:24:03

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Fatty · 发表于 2007-10-23 12:36:35

您可以根据特定用途/需要，使用集合或字典复制功能。

Fatty · 发表于 2007-10-23 12:45:17

试试这个

Option Explicit
Function IsMember(source As Variant, itm As Variant) As Boolean
    Dim idx As Variant
        On Error GoTo Err_Control
        For Each idx In source
            If (idx  itm) Then
                IsMember = False
                Else
                IsMember = True
                Exit For
            End If
        Next
        Exit Function
Err_Control:
IsMember = False
End Function