エクセルVBAで、テキストボックスに値を入れる（３）

質問

質問がバラバラになってしまってすみません！
エクセルVBAで、テキストボックスに値を入れる（１）の 回答13で、
データシートの何行目～何行目までを印刷させる方法（Sheet7にボタン）
をさせるには、どうしたら良いでしょうか？宜しくお願いします。

前回のURL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173
　　　　 　http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389

回答No.5

nishi6

>１）検索ボタン～Sheet7に配置～

標準モジュールの最初(Publicがある場所、Public Sub・・・ の前)に貼り付け
Public strAdr, endAdr As String '検索開始、最終アドレス
Public mySearch As String '検索文字

標準モジュールに貼り付け
'*** 検索 ***
Public Sub Kensaku()
Dim wbAcv As String 'メニューブック名
Dim wsDat As Worksheet 'データシート名
Dim foundCell As Range '検索結果
Const topAdr = "$B$1" '検索開始位置

wbAcv = ActiveWorkbook.Name
Set wsDat = Workbooks(wbNM).Worksheets(wsNM)
If Len(strAdr) = 0 Then strAdr = topAdr
endAdr = Left(topAdr, 2) & "$" & wsDat.UsedRange.Rows.Count
If Len(mySearch) <> 0 Then
If MsgBox("継続しますか？(新規はキャンセル)", vbOKCancel, "継続") = vbCancel Then
mySearch = InputBox("検索文字を入力して下さい。"): If Len(mySearch) = 0 Then Exit Sub
strAdr = topAdr
End If
Else
mySearch = InputBox("検索文字を入力して下さい。"): If Len(mySearch) = 0 Then Exit Sub
strAdr = topAdr
End If
Application.ScreenUpdating = False
wsDat.Activate: wsDat.Range(strAdr & ":" & endAdr).Select '検索範囲
Set foundCell = Selection.Find(mySearch) '検索実行
Workbooks(wbAcv).Worksheets("Sheet7").Activate
If foundCell Is Nothing Then '検索文字無し
strAdr = topAdr: MsgBox "検索文字：" & mySearch & "は見つかりません。"
ElseIf foundCell.Address = strAdr Then '全検索終了
strAdr = topAdr: MsgBox "検索は終了しました。"
Else '検索文字発見
MsgBox "検索文字：" & mySearch & "は " & StrConv((foundCell.Row - 1), vbWide) & "行目 です。"
strAdr = foundCell.Address
Tensou foundCell.Row - 1, 0 '対象シートを表示
End If
Application.ScreenUpdating = True
End Sub

シート7のシートモジュールに貼り付け。検索ボタンのオブジェクト名=cmdKensaku
Private Sub cmdKensaku_Click()
Kensaku
End Sub

連続して検索できるはずです。

補足

お返事が遅れてすみません！
これも完璧です！検索の処理（連続検索）に感動しました。かなり実用的です。
予想以上のもので、本当にありがとうございます。

それと・・・またもや新たな問題ですが、

テキストボックス（図形）の枠の線の処理で、各シート毎で線を表示するとしないのボタンを作りたいのですが、お願いします。
条件は、線が表示されていても、印刷はしないようにしたいです（テキストボックスの中の文字は印刷する）
印刷ボタンは、各シートに1枚の印刷ボタンとSheet7に一括印刷ボタンが出来ています。

すみません！よろしくお願いします。