指定した文字が配列内存在しているかどうか判定する【パーツ化】

指定した文字が配列内存在しているかどうか判定したい

配列データと指定文字が一致する場合のみ処理するなど、配列内の中身のチェックをしたい場合があります。
パーツ化することで、今後の開発の時短に繋がります。

指定した文字が配列内存在しているかどうか判定するサンプルコード

'■配列内に指定文字strが存在していればTrue/存在しなければFalse
Public Function Call_arrCheck(str As String, arr As Variant) As Boolean
    Dim i As Long
    For i = LBound(arr) To UBound(arr)
        If str = arr(i) Then Call_arrCheck= True: Exit Function
    Next
    Call_arrCheck= False
End Function

実際の使い方

Public Sub sample()
    Dim arr(5) As Variant
    arr(0) = "あ"
    arr(1) = "い"
    arr(2) = "う"
    arr(3) = "え"
    arr(4) = "お"
    
    Debug.Print Call_arrCheck("あ", arr) 'True
    Debug.Print Call_arrCheck("xxx", arr) 'False
End Sub

注意点

• 部分一致(あいまい検索)したい場合はこちら。

関連記事

• 配列内の文字を全角→半角変換する(一次元/二次元)
• 一次元配列を二次元配列に変換する
• 一次元配列/二次元配列のまとめ(逆引き目次)