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

一般に、Excelでは一度にXNUMXつのワークシートに印刷領域を設定できますが、ブック内の複数のワークシートに同じ印刷領域を設定する場合、それを解決する簡単な方法はありますか？ ここで、複数のワークシートに同じ印刷領域を設定する簡単な方法について詳しく説明します。

Kutools for Excelを使用して、同じ印刷領域を複数のワークシートに設定します

VBAを使用して同じ印刷領域を複数のワークシートに設定する

---

Kutools for Excelを使用して、同じ印刷領域を複数のワークシートに設定します

Excel用Kutoolsi便利なExcelアドインとその コピーページ設定 この機能を使用すると、印刷領域を複数のワークシートにすばやく設定できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手

1.ワークシートのXNUMXつで印刷領域を選択し、[ ページレイアウト > 印刷領域 > 印刷領域を設定する。 スクリーンショットを参照してください：

2。 クリック エンタープライズ > 印刷ツール > コピーページ設定。 スクリーンショットを参照してください：

3。 の中に コピーページ設定 ダイアログで、その間に印刷領域を設定するワークシートを確認し、をクリックします シート タブ、およびチェック 印刷領域 唯一の ページ設定 セクション。 スクリーンショットを参照してください：

4。 次に、をクリックします Ok ダイアログを閉じるには、をクリックします あり 来るべき Kutools for Excel 警告ダイアログボックスが表示されたら、チェックしたワークシートに同じ印刷領域が同時に設定されます。

コピーページ設定の詳細については、ここをクリックしてください。

---

VBAを使用して同じ印刷領域を複数のワークシートに設定する

VBAに興味がある場合は、次のVBAを試すことができます。

1.ワークシートのXNUMXつで印刷領域として設定する範囲を選択し、を押します。 Altキー+ F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

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 窓。

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