| |
▼アキ さん：
>毎日更新するシートがあります。
>シート１のＡ１からＨ５００まで、数式が入っています。
>シート２からセル参照してあり、日によってゼロの日はありませんが５から４００前後（５から４００行）の入力になります。
>今現在は印刷をかけると入力された数量にかかわらず当然全ページ（１４ページ）印刷されます。
>ここで質問なんですが、その日の登録された数量によって印刷のページ数を操作できるでしょうか？
>例えば１ページ５０行として、入力が１００行だったら２ページ、入力が２３５行だったら５ページとなるようにです。
データは「シート２」というシートのＢ列に入力され、１行目はタイトル行だとして判定する場合
Sub TEST()
Dim Rmax As Long, Pcount As Integer
'データの行数を判定
Rmax = Worksheets("シート２").Range("B500").End(xlUp).Row - 1
If Rmax <= 0 Then
MsgBox Rmax, vbExclamation, "行数不正"
Else
'印刷するページ数の計算、１ページは50行
Pcount = (Rmax - 1) \ 50 + 1
'必要なページだけ印刷
Worksheets("シート１").PrintOut from:=1, to:=Pcount
End If
End Sub
こんな感じです。
|
|
- 04/2/14(土) 10:48 -
