Step6　ファイル内に含まれる指定文字列を検索する

文字列の検索はInStr関数を使います。InStr関数の構文は、InStr(検索開始位置 , 検索対象の文字列 , 検索する文字列 , 比較モード)になります。Do～Loopステートメントを使い、見つからなくなるまでファイル内を検索します。

以前のコードのバグ修正

ファイル一覧を表示するセル位置が、一つ下の行でないといけないので、検索開始ボタンのクリックイベントを下記のVBAコードに変更してください。

    If Range("B5") = "" Then
        Beep
        MsgBox "検索フォルダを指定してください。"
        Range("B5").Activate
    Else
        ExFolderSearch Range("B5"), 3, 8
        MySearchStart 3, 8
    End If

はじめに一つ目の文字だけを検索します

下記のコードを、前回作成したMyFileSerachプロシージャの宣言文に追加します。

    Dim lpos As Long
    Dim smoji As String
    Dim n As Long
    Dim lcoun As Long

下記のコードを、MyFileSerachプロシージャのコードの後ろに追加します。

    smoji = Cells(2, 10)
    lcoun = 0
    lpos = 1
    Do
        n = InStr(lpos, buf, smoji)
        If n > 0 Then
            lcoun = lcoun + 1
            lpos = n + 1
        Else
            Exit Do
        End If
    Loop

流れは下記になります。
1）smojiに一つ目の文字を代入します。
2）InStr関数で、lpos文字目から検索します。
3）見つかればカウントし。lposを見つかった文字位置＋1にします。 見つからなければループを抜けます。

見つかった個数をセルに表示します

下記のＶＢＡコードを上のコードの下に追加してください。

    Cells(lr, 10) = lcoun

これで検索対象ファイルと検索文字の交わるセルに、見つかった個数が表示されます。