VBA 印刷範囲 設定 EXCEL

列を参照して、その列にデータが入っている最後のセルを含む印刷範囲を自動で設定できるマクロを作りたいと思っています。質問で検索していましたが、これといったものが見つからず、誰か教えてください。

No.3 ベストアンサー 回答者： merlionXX 回答日時： 2011/05/27 09:22

> 列はD列目までです。

可能でしょうか？

ということは、行は１行目からA列の最終入力行まで、列はA列からD列までの固定ということですね？

Sub test02()
　　ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Cells(Rows.Count, "A").End(xlUp).Row
End Sub

で、いかがでしょう？

この回答へのお礼

できました？

ありがとうございます

お礼日時：2011/05/27 10:16

No.2 回答者： merlionXX 回答日時： 2011/05/20 22:27

> たとえば、A列を見て３行目までを印刷範囲にするといったかんじです。

わかりません。
印刷範囲は行だけでなく、列も必要です。
行はA列の最終行までとして、列はどこの最終列を指定すればいいのですか？

この回答への補足

列はD列目までです。可能でしょうか？

補足日時：2011/05/26 10:02

No.1 回答者： merlionXX 回答日時： 2011/05/19 11:43

質問を誤解しているかもしれませんが、仮に参照する列がE列だとすると、

Sub test01()
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(Rows.Count, "E").End(xlUp).Address
End Sub

でいけると思います。

この回答へのお礼

すみません表現がおかしかったみたいです。
　ＡＢＣＤ
１○×　□
２○×△
３○　△□
４
５
たとえば、A列を見て３行目までを印刷範囲にするといったかんじです。
わかりにくくてすみません

お礼日時：2011/05/20 13:23