vba: isIn関数

switch文を書いたり、　or で繋いだりすんの面倒だから、 含まれているかどうかを判定する関数を考えてみたけど、これで良いのかな？

Public Function isIn(val1 As Variant, ParamArray Args() As Variant) As Boolean
    Dim val
    
    For Each val In Args
        If val1 = val Then
            isIn = True
            Exit Function
        End If
    Next

End Function

▼使い方 (フィールド名が特定の値の場合は無視する例）

If  (isIn(fieldName, "id", "ts", "created_at", "updated_at")) Then

含まれていなかったら、直ぐにexitするパターンもあるね。 isNotIn関数だね、、