[[20141018215320]]　『変動するデータの印刷』（和田監督）　ページの最後に飛ぶ

『変動するデータの印刷』（和田監督）

 下記のような表をプリントアウトをするマクロを教えてください。
 A1:D5間はコメントを入れることがあるので、空白を設けています。
 印刷範囲はデータを更新するたびに行が変動します。
 A1は変わることはなく固定で、D列も変わることがないのですが、行が変動します。
 ご指導お願いします。

      A   　 B  　　 C   　　D
 1
 2
 3
 4
 5
 6 名前　　番号　　点数　　評価
 7 鈴木　　　1　　　85      4
 8 田中　　　2　　　70      4
 9 森田　　　3      40      2

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 その表範囲が空白で囲まれた表範囲でしたら、Currentregionでセル範囲を取得してはいかがですか？
 Activesheet.PageSetup.PrintArea = Activesheet.range("A6").currentregion.address
（稲葉） 2014/10/18(土) 23:31

 稲葉さんありがとうございます。
 Activesheet.PageSetup.PrintArea = Activesheet.range("A6").currentregion.address
 ですと、A1～D4の間にコメントを入れたら、この部分は印刷範囲に入りません。
 良い方法はないでしょうか？

（和田監督） 2014/10/19(日) 00:19

 コメントってセルのコメント機能じゃなく、セルに何か打ち込むってことですかね？
 であれば、最後のセルを取得すればいいのかな？
 range("A1",range("A1").SpecialCells(xlCellTypeLastCell)).Address
（稲葉） 2014/10/19(日) 01:33

 稲葉、さんありがとうございました。
 /コメント/紛らわしくてすみませんでした。
 うまくいきました。
（和田監督） 2014/10/19(日) 09:50

コメント返信：

[ 一覧(最新更新順) ]

[[20141018215320]] 『変動するデータの印刷』（和田監督） ページの最後に飛ぶ

[[20141018215320]]　『変動するデータの印刷』（和田監督）　ページの最後に飛ぶ