エクセル 規定のフォーマットに別シートのデータを繰り返し印刷

質問

エクセルにて繰り返し印刷の方法を質問します。
　環境は、ＯＳはＭＥ・エクセルは2000です。

現在、前任者からの引継ぎを行っています。
現在は200社ぐらいのデータを各シート（同じレイアウト）に分割入力しています。これでは入力・管理・印刷等も面倒なので、200社の入力データのみを1ページに入力して、表示や印刷のみは、別シートにする事を考えています。

＜考え方＞
１)ページＡ：２００件の会社情報をコードにて管理。
必要なデータをそれぞれ入力。
２)ページＢ：表示や印刷する帳票レイアウト形式のページ。会社コードを入力すると、ページＡから検索して、会社名やその他の情報を表示する。

表示は帳票形式のページに、データシートのセルを参照する形で可能です。vlookup関数を使用して、該当コードのそれぞれのデータを表示する・・・という形です。

問題は、この形式で印刷をしたいのです。
マクロ登録も考えましたが、1ページならばわかるのですが、複数会社を一回で印刷する方法がわかりません。

できれば、ページＡに印刷指示セルの列を作り、ＯＮになっている会社のみを印刷する・・・・ということが希望です。

マクロでできればよいのですが、繰り返しのまくろがわかりません。”ＶＢＡでできる”というのだけは分りますが、ＶＢＡについて、全然未経験なもので、実際の記述方法がわかりません。

過去の質問を見ましたが、該当そうなものをみつけられずに、困っています。どうぞよろしくお願いします。

回答No.2

imogasi · ベストアンサー

私も何度も回答してます。
例データ
Ｓｈｅｅｔ１はデータシート
Ａ１：Ｅ５
行番号 氏名 住所 年齢 印刷
1 大田 東京都 34 p
2 山田 横浜市 36
3 上村 千葉市 15 p
4 木村 静岡市 16 p

Ｓｈｅｅｔ２は印刷シート
そこに行って
Ａ１に「１」と入力（Ａ１はどこか目立たないところでもよい）
あるいは第１列か第１列を遊び行にしてしまう。
氏名を印刷したいセルに
=VLOOKUP($A$1,Sheet1!$A$1:$C$100,2,FALSE)
住所をセットしたいセルに
=VLOOKUP($A$1,Sheet1!$A$1:$C$100,3,FALSE)
これは判りますね。他の項目も好きなところへ、第３引数だけ変えて
式をセット。
（印刷）
ＡＬＴきを押しつつＦ１１，Ｉ，Ｍを順次押すと、標準モジュール画面になる。
そこへ下記をコピペする。
骨子ですが
Sub test01()
Range("A2:J20").PrintOut
End Sub
ーー
これでは今の１ページしか印刷しない。
ＶＢＡでＡ１を変化させる。するとＳｈｅｅｔ２の中身が変わります。
●これを第２行から最下行まで繰り返し
●Ｆ列がブランクで無い行だけを印刷する
に改良すると下記コードになる。
ーー
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'--
d = sh1.Range("a65536").End(xlUp).Row
For i = 2 To d
If sh1.Cells(i - 1, "E") <> "" Then
sh2.Cells(1, "A") = i - 1
sh2.Range("A2:H20").PrintOut
End If
Next i
End Sub
ーー
これをＦ５を押して実行する。
このほかにも、ボタンをクリックすると実行する、などの方法があるので、勉強してください。
ーーー
印刷シートのＳｈｅｅｔ２に関して、書式、行高、列幅、印刷設定についてはＶＢＡでやってません。手動でやってください。ＶＢＡ熟練者には、型破りですが、そのほうが初心者には判りやすく、すぐ応用（自分で自由にできる）が効くからです。
わざわざ関数ＶＬＯＯＫＵＰを使うことを残しているのも、そういう見地からです。
自分流にチュニングが必要ですが（sh2.Range("A2:H20").PrintOutの印刷範囲など）推測して、テストしてみてください。

お礼

早速のご回答ありがとうございます。
丁寧な説明ありがとうございます。
早速試してみます。また経過をご報告します。
まずはお礼まで・・
　ありがとうございました。m(__)m

回答No.1

OsieteG00

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1735364

Wordの差し込み印刷を使ってExcelのデータを印刷にした方が簡単のような。

お礼

早速のご回答ありがとうございます。
Wordの差し込み印刷ですか・・・考えてませんでした。
そうですね。そういうこともできますね。
今回は印刷したり、しなかったりということもあるので、これは見送りますが、また別の機会に参考にさせていただきます。
　ありがとうございました。m(__)m