いつもお世話になります。

質問

いつもお世話になります。
WINDOWS XP EXCELL2003です。

例えばエクセルで　　シート名「管理表」　を○印で抽出した
A B C D G
ID番号 〒番号 住所 氏名 要印刷
001 〒***-****　品川区東品川*** （株）＊＊＊ ○
002 〒***-****　品川区南品川*** （株）＊＊＊ ○
008 〒***-****　港区南渋谷*** 　（有）＊＊＊ ○
099 ********** ************* ********** ○

別のシート名「印刷」でハガキの頁設定しています。

この○印で１５０件中４５件を抽出したとき
抽出した○印(４５件)を連続して４５件を印刷する何かいい方法はないでしょうか。

現在はハガキ印刷は１枚ずつ設定しながら印刷しています。

回答No.1

keithin · ベストアンサー

もっとも手間が要らず，また印刷も確実に出来る方法は
方法１）
　ワードに葉書を作成し，差込印刷で要印刷列に○のデータを絞り込んで連続印刷
します。

エクセルで印刷するとしばしば画面と実印刷がずれるなどで失敗しますが，失敗してもいいからエクセルだけでやりたいなら

方法２）
＞現在はハガキ印刷は１枚ずつ設定しながら印刷しています。

今の元のリストを
　Ａ列　　Ｂ列　Ｃ列　…　Ｈ列
印刷番号　IDその他データ　要印刷
　１　001　住所宛先諸々…　○
　□　002　住所宛先諸々…
　２　003　住所宛先諸々…　○
　３　003　住所宛先諸々…　○

A2:
=IF(H2="","",COUNTIF($H$2:H2,"○"))
のように印刷対象行だけに１，２，３…の連番を計算させておきます。

葉書シートでは
Ａ１：印刷したい番号
１
を入力

各セル：
=VLOOUP(A1,リスト!A:G,3,FALSE)&""
のような格好で，印刷対象番号１，２，３をA1に順繰り入れてやると，その行のデータがさくっと入って葉書になります。

方法３）
方法２で利用した葉書シートのセル範囲を「行ごと選んで行コピー」し，少し下のセルに貼り付けます。たとえばＡ２０セルに。

A20セルの式を
=A1+1
としてやると，貼り付けた葉書範囲がそのまま番号２番の葉書になります。
A20から始まる２枚目の葉書の範囲をまた行コピー，今度はA40に貼り付けると３枚目の葉書が自動で表示されます。
以下同文でずらずらっとコピーを下向けに並べると，簡単に100枚分ぐらいの葉書が用意できますので一気に印刷します。

方法４）
マクロを使ってさくさくっと作成もできます。
自分で苦労より，人に作ってもらったのを利用した方が手っ取り早いです。
http://search.vector.co.jp/search?query=excel+%8D%B7%8D%9E

お礼

ご丁寧なご回答誠に有難うございます。
方法１)で今まではしてきました。
１枚１枚の印刷は分かるのでしたが、連続印刷が分からず質問させていただきました。
いろいろの方法をご指導いただきましたので試してみました。
あなたがおっしゃる　方法１)を今回再度原点にかえり勉強して結果、連続印刷の方法が解けました。

ということでご指導感謝しています。
今後ともご指導宜しく御願いします。
お節介ですがご健康には充分留意されご活躍をお祈りいたします。