Excelで複数のワークシートに一度に印刷範囲を設定するにはどうすればよいですか？

通常、Excelでは一度に1つのワークシートにしか印刷範囲を設定できません。しかし、ワークブック内の複数のワークシートに同じ印刷範囲を設定したい場合、それを迅速に解決する方法はありますか？ここでは、複数のワークシートに同じ印刷範囲を設定するための簡単な方法について詳しく説明します。

Kutools for Excelを使用して複数のワークシートに同じ印刷範囲を設定

VBAを使用して複数のワークシートに同じ印刷範囲を設定

Kutools for Excelを使用して複数のワークシートに同じ印刷範囲を設定

Kutools for Excelは便利なExcelアドインであり、そのページ設定のコピー機能を使用すると、複数のワークシートに迅速に印刷範囲を設定できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手

1. ワークシートの一つで印刷範囲を選択し、次にページレイアウト > 印刷範囲 > 印刷範囲の設定をクリックします。スクリーンショットをご覧ください：

2. Kutools Plus > 印刷 > ページ設定のコピーをクリックします。

3. 「ページ設定のコピー」ダイアログで、印刷範囲を設定したいワークシートにチェックを入れ、シートタブをクリックし、ページ設定セクションで「印刷範囲のみ」にチェックを入れます。スクリーンショットをご覧ください：

4. ダイアログを閉じるには「OK」をクリックし、表示されるKutools for Excelの警告ダイアログボックスで「はい」をクリックすると、選択したワークシートに同じ印刷範囲が一括で設定されます。

ページ設定のコピーに関する詳細はこちらをクリックしてください。

VBAを使用して複数のワークシートに同じ印刷範囲を設定

VBAに興味がある場合は、以下のVBAを試してみてください。

1. いずれかのワークシートで印刷範囲として設定したい範囲を選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. モジュール > 挿入をクリックしてモジュールウィンドウを挿入し、以下のVBAをそのウィンドウにコピーします。

VBA: ワークブック全体に印刷範囲を設定

Sub SetGlobalPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub

3. 実行ボタンをクリックしてVBAを実行すると、ワークブック内のすべてのワークシートに同じ印刷範囲が設定されます。

ヒント：

選択したワークシートに印刷範囲を設定したい場合は、次の手順を実行できます：

1. 印刷範囲として設定したい範囲を選択し、Ctrlキーを押しながら必要なワークシートを選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. モジュール > 挿入をクリックしてモジュールウィンドウを挿入し、以下のVBAをそのウィンドウにコピーします。

VBA: 選択したワークシートに印刷範囲を設定

Sub SetSelectWsPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWindow.SelectedSheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub