セルの値によって改ページは無理？

質問

わたしが受け持つお客さんから聞かれたコトで、
わたし自身は「それは無理なんじゃないかなぁ」と思ったのですが、
確認のため至急どなたか教えて下さい。

そのお客さんが言うには、
Excelで日付ごとのデータがたくさん入ったシートがあって、
その日付が変わる度、自動的に改ページをしてくれるようにしたいらしいのです。
つまり日付け別に１シート印刷していきたいそうです。
条件を指定した自動的に改ページする方法はあるのでしょうか？

回答No.2

imogasi · ベストアンサー

Ａ２：Ｂ１８に
2005/6/20 1
2005/6/20 2
2005/6/20 3
2005/6/20 4
2005/6/20 5
2005/6/20 6
2005/6/20 7
2005/6/21 8
2005/6/21 9
2005/6/21 10
2005/6/21 11
2005/6/22 12
2005/6/22 13
2005/6/22 14
2005/6/22 15
2005/6/22 16
2005/6/22 17
とあります
Sub test03()
ActiveWindow.View = xlPageBreakPreview
m = Cells(2, "A")
For i = 3 To 18
If m <> Cells(i, "A") Then
ActiveWindow.ActiveSheet.HPageBreaks.Add Before:=ActiveCell

m = Cells(i, "A")
End If
Next i
Range("a2:B18").PrintOut
End Sub
を実行すると
日付別にまとまって別ページに印刷されました。
実用にするには、もう少しＶＢＡの処理がいりますが
原理的には上記でよさそうです。

お礼

とても丁寧にご回答を下さってありがとうございました。
早速やってみましたところ、できました。
本当にありがとうございます！
お礼が遅くなってしまい申し訳ないです！

回答No.1

mshr1962

「データ」「集計」にて日付を集計項目にして
「グループごとに改ページする」にチェック

上記以外だとマクロを組むしかないと思います。
Access等のデータベースソフトなら可能ですが．．．

お礼

お礼が遅くなって申し訳ないです。
集計でもそんな機能があったんですね、
勉強になりました！
ありがとうございます☆