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

数百のワークシートを持つ大規模なワークブックがあり、その一部が非表示になっている場合、特定のニーズに対応するために、ワークブック内の非表示のワークシートの数を知りたいとします。一つずつ数える以外に、どのようにすればよいでしょうか？ここでは、一度に非表示のワークシートを迅速にカウントできる2つの方法をご紹介します。

VBAで非表示のシートをカウントする

Kutools for Excelを使用して非表示/表示のシートをカウントする

Kutools for Excelを使用して非表示のシートを削除またはすべての非表示シートを再表示する

VBAで非表示のシートをカウントする

ここでは、ワークブック内の非表示のワークシートの数を教えてくれるダイアログをポップアップさせるVBAコードを紹介します。

1. Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを有効にします。

2. 「挿入」>「モジュール」をクリックし、以下のコードを新しいモジュールウィンドウに貼り付けます。

VBA: 非表示のシートをカウントする

Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
    If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
    "Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub

3. F5キーを押してコードを実行すると、非表示のワークシートの数と表示されているワークシートの数を教えてくれるダイアログがポップアップします。

Kutools for Excelを使用して非表示/表示のシートをカウントする

VBAに慣れていない場合、Kutools for Excelを無料でインストールして、シート、非表示のシート、および表示されているシートの数を一目でカウントすることができます。

Kutools for Excelを無料でインストール した後、以下のように操作してください：

1. Kutools > ナビゲーションをクリックしてペインを表示します。スクリーンショットをご覧ください：

2. 次に、「ワークブック & シート」ボタンをクリックしてブックとワークシートをリストし、ペインの下部まで移動すると、合計シート数、非表示のシート数、および表示されているシート数を見つけることができます。

ヒント: ナビゲーションペインが必要なくなった場合は、もう一度Kutools > ナビゲーションをクリックして隠します。

Kutools for Excelを使用して非表示のシートを削除またはすべての非表示シートを再表示する

Kutools for Excelを使用すると、すべての非表示のシートをワンクリックで削除することもできます。

1. すべての非表示のシートを再表示したい場合は、 Kutools > 表示/非表示 > すべての非表示のシートを再表示 をクリックするだけです。

2. すべての非表示のシートを削除したい場合は、Kutools Plus > ワークシート > 非表示のシートをすべて削除 をクリックします。スクリーンショットをご覧ください：