VBA学習ツール無料配布！#8 テーマ:instrで文字列を含むか判定

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim targetStr As String
    Dim searchStr As String
    Dim judgeResult As Boolean
    ' ワークシートの設定
    Set ws = ThisWorkbook.Worksheets("読み込みシート")
    ' シート「読み込みシート」をアクティブ化
    ws.Activate
    ' 対象文字列を取得
    targetStr = ws.Cells(6, 2).Value
    ' 検索文字列を取得
    searchStr = ws.Cells(6, 4).Value
    ' 検索文字列が空欄の場合は終了
    If searchStr = "" Then
        MsgBox "検索文字列が空欄です。"
        Exit Sub
    End If
    ' 対象文字列が検索文字列を含むか判定
    If InStr(1, targetStr, searchStr, vbTextCompare) > 0 Then
        judgeResult = True
    Else
        judgeResult = False
    End If
    ' 判定結果を表示
    If judgeResult Then
        MsgBox "「" & targetStr & "」は「" & searchStr & "」 を含みます。"
    Else
        MsgBox "「" & targetStr & "」は「" & searchStr & "」 を含みません。"
    End If
End Sub