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

質問

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

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

回答No.2

nishi6

シート７のボタンの機能は、このボタンだけで

　１．パターンの入力
　　　０ならパターン無視(全パターンが印刷対象)
　　　１～５ならそのパターンを印刷
　２．開始行の入力
　　　０なら全行
　　　１以上ならそれが開始行
　３．開始行が１以上なら最終行の入力
　　　０なら最終行を自動設定
　　　１以上ならそれが最終行
の手順とすることで、全パターンまたは指定パターンについて、全頁または指定頁間が印刷可能なように考えました。

したがって、
＞パターン毎に印刷する場合
　　<<パターンの入力＝1、2、3、4または5、開始行の入力＝0>>
　　　　指定したパターンの全行が対象です。当然、指定パターンの開始、最終行
　　　　の入力もできます。

＞データの行を範囲指定して印刷する場合
　　Ｍ行目からＮ行目の場合、
　　<<パターンの入力＝0、開始行＝Ｍ、最終行＝Ｎ>>
　　　　パターンは全パターンになっているので、Ｍ行からＮ行が対象になります。
　　　　蛇足ですが、パターンの入力=0、開始行=0で全データの印刷になります。

説明不足でしたか。

補足

あいやーすみません！実は、このプログラムを別の似たような処理に使おうと思って質問したので、パターンの選択はいらなっかたのです。すみません！でも、最初のインプットボックスのコードを消してとりあえず解決しました。大丈夫ですよね？ちゃんと動いてますし！

ところで、本体の方の完成度はかなり高くなってきました。感謝感激です！といってもまだ、テストデータのテスト用の本体ですが・・・ほんとにありがとうございます。そこで疑問があるのですが、Hanteiの理屈を教えていただきたいのですが・・・というのが、実際のデータでは、テストデータより列数が多くて、しかもデータのあるセルとないセルがいろいろあるのですが、A列、B列、C列、を判定させただけでうまくいくのかが、心配です。差し支えなければ、理屈を教えてください。現在、実際のデータにあわせて作っている最中ですが、まだまだかかりそうなのでよろしくお願いします。

そろそろ、最後の質問になってくると思いますが・・・あといくつかお願いします。やればやるほど欲が出てきてしまってすみません！
いろいろ付け加えているのですが、下記の内容の処理がわかりません！

１）検索ボタン～Sheet7に配置～
ボタンを押すことで、インプットボックスが開きそこに入力された文字や数字を列Ｂから検索させて、該当データを印刷フォームを表示する。

２）終了ボタン～Sheet7に配置～
終了ボタンを押すことで、データシートを「上書き保存」してデータシートとフォームのシートを閉じる。
もし、「×」で閉じようとしたら、エラーメッセージ、終了ボタンをクリックしてから終了させてください！と表示させる。

３）前回の続きから始める～Sheet7に配置～
ゲームで言うコンティニューみたいなもので・・・前回最後に印刷させた行を表示させるボタン。
※Sheet7は、メインメニューとして使っています。

その他、こんなものを付け加えました。nishi6先生からおこられるかなぁ？一応動いてくれてます。ご指摘がありましたらよろしくお願いします。
(1)*******
Private Sub CommandButton3_Click() '先頭行の表示ボタン
Range("B5") = 1
Tensou Range("B5") - (Range("B5") = 0), 0
End Sub
(2)*******
Private Sub CommandButton4_Click() '1行前を表示
Range("B5") = Range("B6") 'Ｂ６のセルに"＝Ｂ５－２"を入れました。
Tensou Range("B5") - (Range("B5") = 0), 0
End Sub
(3)*******
Private Sub CommandButton2_Click()’任意で行を指定して表示させました。
Dim tiMsg As String 'メッセージ
Dim tiNum 'インプット帰り値
Dim StRow As Long '表示する行
tiMsg = "最初に表示させたい行を入力" & vbLf
tiNum = InputBox(tiMsg)
Range("B5") = tiNum - 1
Tensou Range("B5") - (Range("B5") = 0), 0
End Sub
(4)******
Private Sub CommandButton4_Click()
　’データシートを表示させるボタンをSheet7につけました。
Workbooks.Open "データ.xls"
Worksheets("Sheet1").Activate
　※ここで本当は、データの左上を表示させたかったのですが出来ませんでした。
End Sub
(5)******
Private Sub Workbook_Open()’ThisWorkBookにコーディング　
’本体を開くとデータシートも開くようにしました。
Workbooks.Open ("データ.xls")
Worksheets("Sheet7").Activate
MsgBox ("ようこそ")
End Sub
あとは、ヘルプ機能を付けていきたいと思っています。ヘルプと言ってもワードかメモ帳にでも項目毎にちょこっと書いて、それを見に行くようにするだけですけど・・・この辺は、がんばって出来そうです。
長くなりましたが、よろしくお願いします。