エクセルのＶＬＯＯＫＵＰで作成した表をまとめて印刷する方法を教えてください！！

質問

エクセルのＶＬＯＯＫＵＰで、番号を入力するとで個人名およびその個人のデータが表示されるＡ４の表があります。1人のデーター表を印刷するのには１人目の番号を入力して印刷をして、２人目の番号を入力して印刷をして・・・という順でしていましたが、1人ごとの印刷ではなく、180人分の表をまとめて印刷したいのですが、その方法をどなたか詳しく教えてください！！印刷される表はＶＬＯＯＫＵＰで作成された表のまま印刷したいと考えています。よろしくお願いします。

回答No.1

KURUMITO · ベストアンサー

本来であるならばワードの差し込み印刷の手法を用いて、ワードで印刷する1ページの画面を作成してそこにエクセルのデータを貼り付けてゆくことで、番号を変えた人の連続印刷ができます。
しかし、それではなくエクセルのシートで連続印刷となりますと、マクロを使うことになりますね。
例えばシート1に印刷の画面があるとして、シート2に番号や氏名、その他のデータがあるとして、シート1ではVLOOKUP関数でシート2のデータを用いて印刷の画面を作っているとします。
そこでシート見出しでSheet1を右クリックをして「コードの表示」を選択します。表示される画面の右側の窓には次のようなコードを入力します。
Sub 連続印刷()
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
Dim m As Integer
Dim RowPos As Integer
m = WS2.Range("A65536").End(xlUp).Row
For RowPos = 2 To m
WS1.Range("B1") = WS2.Cells(RowPos, 1).Value
WS1.Range("A1:H40").PrintOut
Next
End Sub
ここでシート1のB1セルに番号が入力されるとして、それらのデータはシート2のＡ2セル以降のデータが読み込まれるとしています。また、Ａ1セルからＨ40の範囲を印刷するとしていますが適当に変えてください。
印刷を実行するためには「開発」タブから「マクロ」をクリックして「Sheet1.連続印刷」を選択してから右側の「実行」をクリックすればよいでしょう。

お礼

早々の回答ありがとうございます。やはりマクロしかありませんね。早速ご提示いただきました論理式を代用させていただきましたところ、印刷可能な状況です。自分で論理式がスムーズに組むことが今後の目標にしたいです。論理式が組めるようになる方法を簡潔にまとめられたサイト・資料（書籍等）がございましたら教えてください。このたびは大変役に立ちました。ありがとうございました。

回答No.2

imogasi

質問者がしたいことが質問文では伝わらない。
実例でも挙げて説明しないと。
＞180人分の表をまとめて
（１）表には一名１ページの表と
（２）１名１行で数十名が縦に並んでいる表と
ある。印刷したいのはどちらか、質問文からあいまい。
（２）の場合普通に印刷すると、何処が質問者の意向と違うことになるのか。
（３）あるいは（２）形式のデータで（１）形式の表を作り
１８０ページを自動で印刷したいということか。
ーー
（３）なら再度説明するのも大変なので、Googleで「imogasi請求書」で照会すれば、実例が出ます。
印刷は自動でやるのは関数では出来ないので、最低限数行のVBAを使ってますが、後は関数を使ってデータを整える方式で、VBAに詳しくない人のために考えた、妥協策です。
ーー
下記の私の回答。一覧表形式データから関数で１枚ものの表形式に
する方法を書いています。
http://oshiete.filesend.to/qa5356280.html
http://okwave.jp/qa2798008.html
http://oshiete.home4u.jp/qa5101923.html
など。