Excelで特定のXNUMX枚を除くすべてのシートを印刷するにはどうすればよいですか？

Excelの作業では、シートの印刷が一般的な日常業務になる場合があります。 ただし、特定のXNUMX枚を除くすべてのシートを印刷しようとしたことがありますか。 たとえば、ここのワークブックでは、「合計」という名前のシート以外のすべてのシートを印刷したいのですが、どうすればすばやく処理できますか？

VBAを含むXNUMX枚を除くすべてのシートを印刷する

Kutools forExcelで必要な特定のページを印刷する

VBAを含むXNUMX枚を除くすべてのシートを印刷する

これは、特定のXNUMX枚を除くすべてのシートを印刷できるVBAコードです。

1.シートを印刷するワークブックをアクティブにして、を押します Altキー+ F1開くための1つのキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュールe、以下のコードをモジュールスクリプトに貼り付けます。

VBA：XNUMXつを除くシートを印刷する

Sub printsheets()
'UpdatebyExtendoffice20161031
 Dim xWs As Worksheet
 Application.ScreenUpdating = False
 For Each xWs In ThisWorkbook.Worksheets
  If xWs.Visible = True Then
   If xWs.Name <> "Total" Then
       With xWs.PageSetup
        .PrintArea = "A1:B15" ' USE YOUR PRINTAREA
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
       End With
       xWs.PrintOut
   End If
  End If
 Next xWs
 Application.ScreenUpdating = False
 MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub

ご注意： コードでは、 トータル in If xWs.Name <> "Total" Then • MsgBox「シート合計が印刷されていません」 印刷したくないシート名であり、 A1：B15 in .PrintArea = "A1：B15" 各シートの印刷する範囲です。 必要に応じて変更できます。

3。 押す F5 キーを押してコードを実行すると、特定のシートが印刷されていないことを通知するダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック OK ダイアログを閉じます。

Kutools forExcelで必要な特定のページを印刷する

偶数ページまたは奇数ページ、あるいはシートの特定のページのみを印刷したい場合は、 Kutools for Excelさん 指定されたページを印刷する すぐにあなたに有利になることができるユーティリティ。

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1.特定のページを印刷するシートをアクティブにして、をクリックします クツールズプラス > 印刷 > 指定されたページを印刷する。 スクリーンショットを参照してください：

2.次に、 指定されたページを印刷する ダイアログで、印刷のニーズに基づいてオプションを確認します。 スクリーンショットを参照してください：

3。 クリック 印刷物 ページを印刷します。

ヒント。 指定ページの印刷機能を無料でお試しになりたい場合は、 Excel用のKutoolsを無料でダウンロードしてください まず、上記の手順に従って操作を適用します。