【VBA InStr関数ガイド】文字列検索をもっとスマートに！

Sub SampleInStr()
    Dim baseText As String
    Dim keyword As String
    Dim result As Long

    baseText = "今日の天気は晴れです"
    keyword = "天気"

    result = InStr(1, baseText, keyword, vbTextCompare)

    If result > 0 Then
        MsgBox "キーワードは" & result & "文字目にあります"
    Else
        MsgBox "キーワードは見つかりませんでした"
    End If
End Sub

Sub InStrIgnoreCase()
    Dim text As String
    Dim word As String
    Dim pos As Long

    text = "Excel VBA"
    word = "vba"

    pos = InStr(1, text, word, vbTextCompare)

    If pos > 0 Then
        MsgBox "大文字小文字を無視してヒット！位置: " & pos
    Else
        MsgBox "見つかりませんでした。"
    End If
End Sub

Sub InStrStartFrom()
    Dim sentence As String
    Dim target As String
    Dim startPos As Long
    Dim foundPos As Long

    sentence = "リンゴとリンゴジュースとリンゴケーキ"
    target = "リンゴ"
    startPos = 1

    foundPos = InStr(startPos, sentence, target)

    If foundPos > 0 Then
        MsgBox "1回目: " & foundPos
        foundPos = InStr(foundPos + 1, sentence, target)
        If foundPos > 0 Then
            MsgBox "2回目: " & foundPos
        End If
    End If
End Sub

Sub FindAllOccurrences()
    Dim text As String
    Dim word As String
    Dim currentPos As Long
    Dim foundPos As Long

    text = "abcabcabc"
    word = "abc"
    currentPos = 1

    Do
        foundPos = InStr(currentPos, text, word)
        If foundPos = 0 Then Exit Do

        Debug.Print "見つかった位置: " & foundPos
        currentPos = foundPos + 1
    Loop
End Sub