Excelで資料を作成する場合に、内容が多いと複数ページにまたがることがあります。
何もしなければ指定行数ごとに改ページが行われてしまいますので、Excel上で見るのであればさほど問題はありませんが、紙に印刷する場合は見づらい資料になりかねません。
実際私も表が1ページにまとまっていない資料を何度も見てきましたが、見づらくて仕方がありません。
それを回避するためには改ページを挿入するとページまたがりなどが改善されます。
ところが、実際に資料を作成する場合は印刷レイアウトのことを考慮せずに作成することも少なくありませんので、あとになって改ページの設定を行うことが度々あります。
そうなってくると、改ページの挿入と解除をああでもない、こうでもないと推敲を繰り返しながら完成に近づける作業になります。
そのことから、改ページと挿入と解除はすぐに行うことが出来る方が作業効率が良くなります。
リボン化により、ページレイアウトタブから改ページの挿入と解除はかなり行いやすくはなりましたが、プルダウンから選択しなければなりません。
それがわずらわしい場合はマクロを作成してクイックアクセスツールバーに設置すると便利になります。
以下が改ページ挿入のコードです。
1 2 3 4 5 6 7 |
Sub 改ページ挿入() Dim iRow iRow = ActiveCell.Row Range("A" & iRow).PageBreak = xlManual End Sub |
こちらは改ページ解除のコードです。
1 2 3 4 5 6 7 8 9 10 11 12 |
Sub 改ページ解除() Dim iRow Dim iRowMax Dim i iRow = Selection.Row iRowMax = Selection.rows.Count For i = iRow To iRow + iRowMax - 1 Range("A" & i).PageBreak = xlNone Next End Sub |
クイックアクセスツールバーに配置するのが嫌な場合や出来ない場合は、改ページ設定用のフォームを作成して、モーダレスで表示しておいて、そこに改ページの挿入ボタンと解除ボタンを配置するいいと思います。
フォーム作成の記事を別途書くことがあれば、その際に作ってみたいと思います。
是非活用してください。