VBAのInStrRev関数で文字列検索を極めよう！初心者向け完全ガイド

Sub InstrRevExample()
    Dim text As String
    Dim position As Long
    
    text = "Excel VBA InStrRev関数を学ぼう！VBAで効率化！"
    position = InStrRev(text, "VBA")
    
    If position > 0 Then
        MsgBox "最後の文字列『VBA』は位置 " & position & " にあります。"
    Else
        MsgBox "文字列『VBA』は見つかりませんでした。"
    End If
End Sub

Sub InstrRevExampleIgnoreCase()
    Dim text As String
    Dim position As Long
    
    text = "Excel VBA InStrRev関数を学ぼう！vbaで効率化！"
    position = InStrRev(text, "vba", , vbTextCompare)
    
    If position > 0 Then
        MsgBox "最後の文字列『vba』（大文字小文字を区別しない）は位置 " & position & " にあります。"
    Else
        MsgBox "文字列『vba』は見つかりませんでした。"
    End If
End Sub

Sub CheckStringNotFound()
    Dim text As String
    Dim position As Long

    text = "Excel VBA InStrRev関数を学ぼう！"
    position = InStrRev(text, "Python") '// 見つからないケース

    If position = 0 Then
        MsgBox "文字列『Python』は見つかりませんでした。"
    Else
        MsgBox "文字列『Python』は位置 " & position & " にあります。"
    End If
End Sub

Sub CaseInsensitiveSearch()
    Dim text As String
    Dim position As Long

    text = "Excel VBA InStrRev関数を学ぼう！"
    position = InStrRev(text, "vba", , vbTextCompare) '//大文字小文字を区別しない

    If position > 0 Then
        MsgBox "大文字小文字を区別しない検索で『vba』が見つかりました！位置: " & position
    Else
        MsgBox "『vba』は見つかりませんでした。"
    End If
End Sub

Sub SearchWithStartPosition()
    Dim text As String
    Dim position As Long

    text = "Excel VBA InStrRev関数を学ぼう！VBAで効率化！"
    position = InStrRev(text, "VBA", 15) '//15文字目から後ろを検索

    If position > 0 Then
        MsgBox "15文字目から検索して『VBA』が見つかりました！位置: " & position
    Else
        MsgBox "15文字目以降に『VBA』は見つかりませんでした。"
    End If
End Sub

Sub WildcardSearchExample()
    Dim text As String
    Dim isMatch As Boolean
    
    text = "example_file.txt"
    
    '// Like演算子でワイルドカード検索（例：「.txt」で終わるか）
    isMatch = text Like "*.txt"
    
    If isMatch Then
        MsgBox "文字列『" & text & "』は条件に一致しました！（.txtで終わります）"
    Else
        MsgBox "文字列『" & text & "』は条件に一致しませんでした。"
    End If
End Sub

Sub RegexSearchExample()
    Dim regex As Object
    Dim text As String
    Dim isMatch As Boolean
    
    text = "example_file.txt"
    
    '// 正規表現オブジェクトの作成
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "\.txt$" ' パターン：「.txt」で終わる
    regex.IgnoreCase = True
    
    '// 正規表現で一致するか確認
    isMatch = regex.Test(text)
    
    If isMatch Then
        MsgBox "文字列『" & text & "』は有効な形式です。（.txtで終わります）"
    Else
        MsgBox "文字列『" & text & "』は条件に一致しませんでした。"
    End If
End Sub

Sub ExtractUsername()
    Dim emailList As Variant
    Dim username As String
    Dim position As Long
    Dim i As Long

    '// 検索対象のメールアドレス配列
    emailList = Array("tanaka@gmail.com", "yamada@yahoo.co.jp", "sato@gmail.com", "nakamura@hotmail.com")

    '// 配列内の各メールアドレスからユーザー名部分を抽出
    For i = LBound(emailList) To UBound(emailList)
        position = InStrRev(emailList(i), "@") '//「@」の位置を後ろから検索
        If position > 0 Then
            username = Left(emailList(i), position - 1) '//「@」の前の部分を取得
            Debug.Print username '結果をデバッグウィンドウに表示
        Else
            Debug.Print "『" & emailList(i) & "』は有効なメールアドレスではありません。"
        End If
    Next i
End Sub