excel2000で、シート内に何ページかの改行プレヴューがあり月毎任

質問

excel2000で、シート内に何ページかの改行プレヴューがあり月毎任意で自動ページ選択する方法

例としてシート１に”一覧”シート２に”詳細な利用状況”として

シート２に行２ページｘ列５ページで一覧No.1=利用状況の１ページ目、No2=利用状況の２ページ目と内

容をリンクさせながら改行プレビュー設定してNo.10まであるとしたら、これまでは、毎回シート２利用状

況でページを範囲選択して、選択範囲のみ印刷をしてきたのですが、これをマクロで自動に範囲選択するに

は、どの様な方法があるか、教えてもらえないでしょうか。

月によって出すページが違い実際は、１００以上を月によって範囲選択して印刷しているものですから、マ

クロで、一覧から利用あったら、シート２の方で範囲選択するような方法があればと書き込みました

マクロ初心者です

書き込み初で、見にくいでしょうが、よろしくお願いします。

回答No.1

keithin · ベストアンサー

まず
＞１００以上を月によって範囲選択して印刷している

この状況から，一気に一度で印刷させようとすると失敗する可能性があります。１つずつ必要な範囲ごとに100回印刷を出させます。

で。一番肝心の
＞一覧から利用あったら、シート２の方で範囲選択する

「一覧で利用があったら」とは，一体全体具体的なエクセル上の姿として「どこのセルがどうなっていた」ら利用があったという事になるのか，また「それに対応するシート２の印刷範囲は具体的にそれぞれどこ番地だと，どういう具合に判るようになっているのか」の情報がありません。

こんな具合に質問を書いてください。
例：
　シート１のB2からB101に数字の１が入ったり入らなかったりします
　数字が入ったセルに対応して
　　B2が１ならシート２の　A1:H20
　　B3が１ならシート２の　A21:H40
　　：
　　B101が１ならシート２のA1981:H2000
　がそれぞれ印刷されるようにしたいです

答え：
sub macro1()
　dim i
　for i = 2 to 101
　　if worksheets("Sheet1").cells(i, "B") = 1 then
　　　worksheets("Sheet2").pagesetup.printarea = range("A1:H20").offset((i-2)*20).address
　　　worksheets("Sheet2").printout
　　end if
　next i
end sub

応用として，たとえば「改ページ」単位で印刷したいなら，エクセルの新しいマクロの記録で「シート２の全シートの印刷をする設定にしといて，更に印刷するときに何ページ目を印刷する」という記録マクロを録って，上述のサンプルマクロに倣って作成することでも良いかもしれません。
丸ごと答えのマクロを書いてもらわないと自分ではやらないかもしれませんが，チャレンジはしてみてください。

お礼

質問を打ちながら、意味がわかってもらえるだろうかと悩みながら書きましたが、質問の仕方から、教えていただきありがとうございます。
keithinさんが例として載せて下さったマクロの意味を、調べながらローカライズしていこうと思います。
ありがとうございました。