【初心者向け】VBAのInStr関数を完全解説！基本から応用まで

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

Sub InstrExampleIgnoreCase()
    Dim text As String
    Dim position As Long
    
    text = "Excel VBA InStr関数を学ぼう！"
    position = Instr(1, 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 InStr関数を学ぼう！"
    
    '// InStr関数で"Python"を検索（見つからない場合を想定）
    position = Instr(1, text, "Python")
    
    '// 結果を条件分岐
    If position = 0 Then
        MsgBox "文字列『Python』は見つかりませんでした。"
    Else
        MsgBox "文字列『Python』は位置 " & position & " にあります。"
    End If
End Sub

Dim position As Long
position = Instr(1, "Excel VBA", "vba", vbTextCompare) '// 位置7を返す

Sub CheckPartialAndFullMatch()
    Dim text As String
    Dim positionPartial As Long
    Dim positionFull As Long

    '// 検索対象の文字列
    text = "Excel VBA"

    '// 部分一致の検索（例：「VB」）
    positionPartial = Instr(1, text, "VB")
    If positionPartial > 0 Then
        Debug.Print "部分一致：文字列『VB』は位置 " & positionPartial & " にあります。"
    Else
        Debug.Print "部分一致：文字列『VB』は見つかりませんでした。"
    End If


    '// 完全一致の検索（例：「VBA」）
    positionFull = Instr(1, text, "VBA")
    If positionFull > 0 Then
        Debug.Print "完全一致：文字列『VBA』は位置 " & positionFull & " にあります。"
    Else
        Debug.Print "完全一致：文字列『VBA』は見つかりませんでした。"
    End If

End Sub

Sub WildcardSearchExample()
    Dim text As String
    Dim isMatch As Boolean
    
    text = "Excel VBA InStr関数を学ぼう！"
    
    '// Like演算子でワイルドカード検索（例：「Excel」から始まるか）
    isMatch = text Like "Excel*"
    
    If isMatch Then
        MsgBox "文字列『" & text & "』は条件に一致しました！"
    Else
        MsgBox "文字列『" & text & "』は条件に一致しませんでした。"
    End If
End Sub

Sub RegexSearchExample()
    Dim regex As Object
    Dim text As String
    Dim isMatch As Boolean
    
    text = "example@gmail.com"
    
    '// 正規表現オブジェクトの作成
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$"
    regex.IgnoreCase = True
    
    '// 正規表現で一致するか確認
    isMatch = regex.Test(text)
    
    If isMatch Then
        MsgBox "文字列『" & text & "』は有効なメールアドレス形式です。"
    Else
        MsgBox "文字列『" & text & "』は無効なメールアドレス形式です。"
    End If
End Sub

Sub SearchDomain()
    Dim emailList As Variant
    Dim domain As String
    Dim i As Long

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

    '// 検索するドメイン
    domain = "@gmail.com"

    '// 配列内のメールアドレスを検索
    For i = LBound(emailList) To UBound(emailList)
        If InStr(emailList(i), domain) > 0 Then
            Debug.Print emailList(i)
        End If
    Next i
End Sub

Sub HighlightCellsByKeyword()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim keyword As String

    '// 検索するキーワードを設定
    keyword = "エラー"

    '// 対象のシートを設定
    Set ws = ThisWorkbook.Sheets(1) ' シート1を対象

    '// 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    '// キーワードを含むセルを検索して背景色を変更
    For i = 1 To lastRow
        If InStr(ws.Cells(i, 1).Value, keyword) > 0 Then
            ws.Cells(i, 1).Interior.Color = RGB(255, 255, 0) '// 背景色を黄色に変更
        End If
    Next i
End Sub