Excel VBA Instrを使用して配列内の要素を検索する

以下のようなシーンで利用されます。

・配列内の特定の要素を検索し、その位置を知りたい場合に使用します。例えば、配列内の特定の値のインデックスを見つけたり、配列内の文字列パターンを検索する場合などに利用します。

Option Explicit

Sub ExampleUsage()
    Dim position As Integer
    Dim myArray(3) As String
    Dim search_string As String
    Dim i As Integer
    
    ' 配列の初期化
    myArray(0) = "apple"
    myArray(1) = "banana"
    myArray(2) = "orange"
    myArray(3) = "banana"
    
    ' 検索する文字列を設定
    search_string = "banana"
    
    ' 配列内での検索を実行
    For i = LBound(myArray) To UBound(myArray)
        position = InStr(1, myArray(i), search_string)
        If position > 0 Then
            MsgBox "文字列 '" & search_string & "' は配列の " & i & " 番目に見つかりました。"
            Exit For ' 最初に見つかったインデックスのみを表示し、ループを終了します
        End If
    Next i
    
    If position = 0 Then
        MsgBox "文字列 '" & search_string & "' は配列内で見つかりませんでした。"
    End If
End Sub