マクロ複数回出現する可能性のあるブックの中の文字列を検索する

Question

私は5枚と500行のブックがあります。私は、ブックに複数の時間を表示する可能性のある文字列を検索できるマクロが必要です。これで私を助けてください。

よろしく、 MDS

Answer 1

あなたはそれが文字列を見つけたとき、それはやって何をしたいですか？非マクロメソッドは[編集] - [検索]で、[オプション]ボタンをクリックします。ワークブックに「内」を設定し、「すべて検索」をクリックします。それはあなたに見つかったすべての文字列のリストを与えるでしょう。

本当にマクロが必要な場合は、イミディエイトウィンドウに場所を印刷します。

Sub FindAll() 

    Dim sh As Worksheet 
    Dim rFound As Range 
    Dim sFirst As String 
    Dim sWhat as String 

    sWhat = Application.InputBox("Search for:") 

    For Each sh In ThisWorkbook.Worksheets 
     Set rFound = sh.UsedRange.Find(sWhat, , xlValues, xlPart) 
     If Not rFound Is Nothing Then 
      sFirst = rFound.Address 
      Debug.Print rFound.Address(, , , True) 
      Do 
       Set rFound = sh.UsedRange.FindNext(rFound) 
       If rFound Is Nothing Then Exit Do 
       Debug.Print rFound.Address(, , , True) 
      Loop Until rFound.Address = sFirst 
     End If 
    Next sh 

End Sub