エクセル：マクロ構成を教えて頂けないでしょうか？

質問

エクセルで以下の様な表を作成しております。

担当コード　　営業所　　客数　
　１　　　　　　　　A　　　　１０
　１　　　　　　　　B　　　　５
　１　　　　　　　　C　　　　２１
　２　　　　　　　　D　　　　６
　２　　　　　　　　E　　　　１２
　３　　　　　　　　F　　　　１８
　３　　　　　　　　G　　　　９
　３　　　　　　　　H　　　　２５
　３　　　　　　　　I　　　　４

上記表を、担当コード毎に印刷をしたいので、
(1)担当コードが変わる時に改ページを入れるマクロを設定
(2)ページ設定で項目名を行のタイトルに指定
このまま印刷すれば、担当コード１、２、３に関して３枚出力されます。

実際は、該当ページだけを印刷したいので、
(1)印刷をしたい担当コードを２に絞って印刷をした
のですが、「担当コードの２のページ１枚」と「項目名のみの１、３のページ２枚」の計３枚が出力されてしまいます。

実際の表では、担当者コードが３００名分あるシートなので、フィルターで指定しても、該当ページと２９９枚の項目名のみの紙が印刷されてしまいます。

どのようにすれば、フィルターで絞った該当のページのみを印刷できるのでしょうか？

回答No.2

tsubuyuki

> エクセル：マクロ構成を教えて頂けないでしょうか？

という事なので、とりあえず構成。と言うか、考え方ですね。

やりたいこと。
・担当コードごと改ページ
・必要な担当コード分だけ印刷。

これだけなら普通にフィルタ→印刷で事足りるような気もします。

これでマクロを考えるのであれば、流れとしては、
・データがある範囲の列全てを印刷範囲に指定（A:C)
　　（これだけで「データがある行だけ」印刷出来ますので
　　　空白ページは印刷されないように出来ます。）
・（必要なら）タイトル行を指定
　　↑この上の二つはマクロに加えなくても大丈夫かもしれません
・インプットボックスなどで「担当者コード」を指定する
・指定された「担当者コード」でフィルタをかける
・印刷する

多分、これだけです。

インプットボックスを使わず、繰り返しを使えば、
全員分を「フィルタ→印刷」で回すことも可能です。

強制改ページは「フィルタをかけても残ってしまいます」から、
フィルタをかけて印刷したいなら、使わない方が良いですよ。

多分、それだけの問題だと思います。

回答No.1

FEX2053

別のシートに「印刷用のシート」を作って、フィルタオプション
で抽出すればいいだけの話なんじゃ？
http://allabout.co.jp/gm/gc/297791/
http://www.aoten.jp/snack/excel/m7_22.html

当然、これをマクロで組むことも可能です。