改ページの挿入と解除

Excelで資料を作成する場合に、内容が多いと複数ページにまたがることがあります。

何もしなければ指定行数ごとに改ページが行われてしまいますので、Excel上で見るのであればさほど問題はありませんが、紙に印刷する場合は見づらい資料になりかねません。

実際私も表が１ページにまとまっていない資料を何度も見てきましたが、見づらくて仕方がありません。

それを回避するためには改ページを挿入するとページまたがりなどが改善されます。

ところが、実際に資料を作成する場合は印刷レイアウトのことを考慮せずに作成することも少なくありませんので、あとになって改ページの設定を行うことが度々あります。

そうなってくると、改ページの挿入と解除をああでもない、こうでもないと推敲を繰り返しながら完成に近づける作業になります。

そのことから、改ページと挿入と解除はすぐに行うことが出来る方が作業効率が良くなります。

リボン化により、ページレイアウトタブから改ページの挿入と解除はかなり行いやすくはなりましたが、プルダウンから選択しなければなりません。

それがわずらわしい場合はマクロを作成してクイックアクセスツールバーに設置すると便利になります。

以下が改ページ挿入のコードです。

Sub 改ページ挿入()
    Dim iRow
    
    iRow = ActiveCell.Row
    
    Range("A" & iRow).PageBreak = xlManual
End Sub

Sub 改ページ挿入()

Dim iRow

iRow = ActiveCell.Row

Range("A" & iRow).PageBreak = xlManual

End Sub

こちらは改ページ解除のコードです。

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

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

End Sub

クイックアクセスツールバーに配置するのが嫌な場合や出来ない場合は、改ページ設定用のフォームを作成して、モーダレスで表示しておいて、そこに改ページの挿入ボタンと解除ボタンを配置するいいと思います。

フォーム作成の記事を別途書くことがあれば、その際に作ってみたいと思います。

是非活用してください。

関連記事