[VBA] コレクションに、ある値が存在するかチェックする方法

2008/03/28

コレクションに、ある値（メンバー）が既に存在するかをチェックする関数
重複チェックなどに便利です。

Function isMemberOfCollection(col As Collection, query) As Boolean
    Dim item
    
    For Each item In col
        If item = query Then
            isMemberOfCollection = True
            Exit Function
        End If
    Next
    
    isMemberOfCollection = False
    
End Function

使うときは、

If isMemberOfCollection(myCollection, myValue) Then
    MsgBox "エラー：" & vbLf & vbLf _
     & "値が重複しています。" &  myValue
    End
End If

のような形で呼び出します。
エラー処理などに使えます。

カテゴリ: VBA