エクセルマクロで検索ボックスを作成する

質問

エクセル2010のマクロで検索ボックスを作成したいと考えています。
質問No.4072490を参照して作成しました。
//////////////////////////////////////////////////////////
質問
エクセルのシートにテキストボックスとコマンドボタンを配置してシート上のデータを検索することは可能でしょうか？今現在はB列に、複数の文字データが入力してあるので、オートフィルタのオプションから「を含む」で検索してます。
イメージとしては、オートフィルタのオプションから「を含む」を選んでから検索しなくても予めシートに用意してあるテキストボックスに検索したい文字を入れてボタンを押すと、オートフィルタで検索したときと同じような結果が得られるようにしたいと思ってます。
例）
　A　　　　B　　　　C　　　　
－－－－－－－－－－－－－－
1　　　　 血液型　　　　　
2　　　　　 A
3 　　　　　B
4 　　　　　O
5 　　　　　AB
上のような表があったとして、テキストボックスにAと入力してボタンを押すとB2とB5が表示されるようにしたと思ってます。いい方法があればご教示願います。
回答
シートにテキストボックス１個、コマンドボタン２個を配置します。
これは出来ますね。
コマンドボタン１個目は検索ボタン、２個目は解除ボタンです。
ツール→マクロ→Visual Basic Editorを選択して
シートに以下のコードを貼り付ける。
------------------ ここから下 ----------------------
Option Explicit

Private Sub CommandButton1_Click()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd
End Sub

Private Sub CommandButton2_Click()
Selection.AutoFilter
End Sub
---------------- ここまで ------------------
エクセル２０００です。
機能は「を含む」です。つまり文字列のどこにでもテキストボックスに入力した文字が含む行を表示します。
//////////////////////////////////////////////////////////
上記を参照して検索ボックスを作成したところ、一回目の検索とフィルタ戻しは問題なくできましたが、２回目から検索ができません。
どこか変更した方が良いでしょうか。
追加でもう一つ質問です。
検索範囲がB列に限定されてしまいます。
シート状のすべてで検索することはできるでしょうか。

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

> ２回目から検索ができません。

> 検索範囲がB列に限定されてしまいます。
> シート状のすべてで検索することはできるでしょうか。

フィルターの扱いですから、検索ではなくて抽出ですね。

　シート左上からの連続領域全体（タイトル行除く）で、
　テキストボックスに入力されいている値に合致するセルが、
　　見つかれば、その行を表示
　　ひとつも見つからなければ、その行は非表示
といった内容のマクロを書きました。
繰り返し使用できます。
但し、
普通のフィルター（リンク先で言うオートフィルタ）では
出来ませんので、
[フィルター]の[詳細設定]（VBAではAdvancedFilter）を
使うことになります。
その為、フィルター使用時のように
１行めにドロップダウンが表示されることはありません。
（必要なら後から付け加えることもできますが、、、？）
その他は元々の使い方と大体変わりません。
また、シートの保護が設定されている等、
説明されていない特殊な状況がある場合には、
それぞれ手当てを加えて使うことになります。
とりあえず、今ある記述に差し替えて験してみて下さい。

' ' ///
Option Explicit

Private Sub CommandButton1_Click()
Dim Target As Range, rCrit As Range, sCrit As String
Dim nR As Long, cnC As Long, i As Long
　　Application.ScreenUpdating = False
　　On Error Resume Next
　　ActiveSheet.ShowAllData
　　On Error GoTo 0
　　sCrit = "=""*" & TextBox1.Value & "*"""
　　Set Target = Cells.CurrentRegion
　　nR = Target.Rows.Count + 2
　　cnC = Target.Columns.Count
　　Set rCrit = Cells(nR, 1).Resize(cnC + 1, cnC)
　　For i = 1 To cnC
　　　　rCrit(i) = Cells(i)
　　　　rCrit(i + 1, i) = sCrit
　　Next i
　　Target.AdvancedFilter _
　　　　Action:=xlFilterInPlace, _
　　　　CriteriaRange:=rCrit, _
　　　　Unique:=False
　　rCrit.ClearContents
　　Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
　　On Error Resume Next
　　ActiveSheet.ShowAllData
　　On Error GoTo 0
End Sub

' ' ///

お礼

早速の回答ありがとうございます。
2回目以降も検索できるようになりました。
ですが、別の問題が出てきてしまいました。
画像を見ていただきたいので、別の質問を出しています。

どうぞよろしくお願い致します。