複数検索方法

質問

マクロ（Excel）にて検索できるものを作成しています。
例えばネットワークドライブにて割り当てたH22（Zドライブ）～H1（Gドライブ）というフォルダがあり、UserForm1にてH22～H1のチェックボックスを作成しています。ここでH22とH21のチェックボックスにチェックを入れキーワードを入力し検索すると、H22とH21のフォルダ内になるキーワードと同じファイル名をフォルダ名と同じのシートに検索結果を表示したいです。
しかし、下記のようにすると、１つずつの検索は可能なのですが、複数チェック（H22とH21）入れると
H22を検索し終わった後、もう一度キーワードを入力しないとH21を検索してくれません。
複数チェックし１回のキーワード入力で検索するにはどうすれば良いですか？
説明が下手ですが、よろしくお願いします。

Private Sub CommandButton1_Click()

If CheckBox1 = True Then
Sheets("H22").Visible = True
Sheets("H22").Select

With Application.FileSearch
.NewSearch
.LookIn = "Z:\"
buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
If buf = "" Or buf = "False" Then Exit Sub
.Filename = buf
.SearchSubFolders = True
If .Execute() > -5 Then
MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果"
For 検索結果 = 6 To .FoundFiles.Count
Cells(検索結果, 3) = .FoundFiles(検索結果)
Next 検索結果
Else
MsgBox "見つかりませんでした"
End If
End With
Set FSO = Nothing

For i = 6 To 検索結果 Step 1
Cells(i, 3).Select

With ActiveSheet
.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value

End With

Next i

ElseIf CheckBox2 = True Then
Sheets("H21").Visible = True
Sheets("H21").Select

With Application.FileSearch
.NewSearch
.LookIn = "Y:\"
buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & "ただし、複数キーワード検索はできません" & vbCrLf & "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
If buf = "" Or buf = "False" Then Exit Sub
.Filename = buf
.SearchSubFolders = True
If .Execute() > -5 Then
MsgBox .FoundFiles.Count - 5 & " 個のファイルが見つかりました", vbOKOnly, "検索結果"
For 検索結果 = 6 To .FoundFiles.Count
Cells(検索結果, 3) = .FoundFiles(検索結果)
Next 検索結果
Else
MsgBox "見つかりませんでした"
End If
End With
Set FSO = Nothing

For i = 6 To 検索結果 Step 1
Cells(i, 3).Select

With ActiveSheet
.Hyperlinks.Add Anchor:=Selection, Address:=Cells(i, 3).Value

End With

Next i

　・
　・
　・
End If

End Sub

回答No.1

jcctaira · ベストアンサー

na-chi21さん　初めまして。
大まかなコードは以下の通りです。
検索処理の詳細は追加してください。

Private Sub CommandButton1_Click()
　''' チェックしてあるかを確認
　For I = 1 To 22
　　If Me.Controls("CheckBox" & I) = True Then Exit For
　　If I = 22 Then Exit Sub
　Next I
　''' 検索ファイル名入力
　buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & _
　　　　"ただし、複数キーワード検索はできません" & vbCrLf & _
　　　　"キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
　If buf = "" Or buf = "False" Then Exit Sub
　''' 検索処理
　For I = 1 To 22
　　If Me.Controls("CheckBox" & I) = True Then
　　　シート名 = "H" & 22 - I + 1
　　　ドライブ = Chr(Asc("Z") - I + 1)
　　　Sheets(シート名).Visible = True
　　　Sheets(シート名).Select
　　　With Application.FileSearch
　　　　.NewSearch
　　　　.LookIn = ドライブ & ":\"
　　　　.Filename = buf
　　　　.SearchSubFolders = True
　　　　　　　：
　　　　　　　：
　　　　　　　：
　　　　　　　：
　　　End With
　　End If
　Next I
End Sub

お礼

お返事遅くなりすいません。
jcctairaさんが教えた通りにしたら、できました。
ありがとうございました。

回答No.2

imogasi

＞１回のキーワード入力で検索するにはどうすれば
複数キーワードがあり、連続して検索するには、複数キーワードは変数に覚えておいて、検索は検索キーワード１＝＞検索＝＞表示＝＞次への指示＝＞キーワード２＝＞検索＝＞表示＝＞次へ・・
になるのは当たり前ではないのか。
それなら繰り返せば仕舞いではないのか。配列なら0からUboundまで配列要素を変えて検索を繰り返す。
システムにもファイル検索があり、入るを指定するウインドウもあるのに、自作する必要があるのか。