Excelで非表示のワークシートを迅速に印刷するにはどうすればよいですか？

多数のワークシートが含まれているワークブックがあり、そのうちのいくつかは表示されていて、他のものは非表示になっている場合、非表示のワークシートのみを印刷したいとします。Excelではデフォルトで非表示のシートを印刷することはできないため、簡単なVBAコードを使用してこの操作を行う方法をご紹介します。

1. 「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」＞「モジュール」をクリックしてください。その後、以下のVBAコードをコードウィンドウにコピーします。

VBAコード： Excelで非表示のワークシートを印刷する

Sub PrintHiddenSheets()
'Updated by Extendoffice 2024/07/15
Dim wSheet As Worksheet
Dim CurStat As Variant
For Each wSheet In ActiveWorkbook.Worksheets
If Not wSheet.Visible Then
CurStat = wSheet.Visible
wSheet.Visible = xlSheetVisible
wSheet.PrintOut
wSheet.Visible = CurStat
End If
Next
End Sub

2. そして ボタンまたはF5キーをクリックしてコードを実行します。これにより、ワークブック内のすべての非表示のワークシートが印刷されます。