ワークブック内の表示されているシートの数を数えるにはどうすればよいですか？

多数のシートを持つ大規模なワークブックでは、一部のシートは表示され、他のシートは非表示になっています。場合によっては、ワークブック内の表示されているシートの総数を数える必要があるかもしれません。短時間でそれらを数えるにはどうすればよいでしょうか？ ここで、いくつかの便利な方法をご紹介します。

VBAのみを使用して表示されているシートの数を数える

Kutools for Excelを使用して表示されているシート/非表示のシート/すべてのシートの数を数える

VBAのみを使用して表示されているシートの数を数える

Excelでは、表示されているシートを1つずつ数える代わりに、VBAを使用して迅速に表示されているシートの数を数えることができます。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開き、次に挿入 > モジュール をクリックして新しいモジュールを開きます。

2. 下記のVBAコードをモジュールウィンドウに貼り付けます。

VBA: ワークブック内の表示されているシートの数を数える

Sub VisibleSheetsCount()
'UpdatebyKutoolsforExcel20150909
    Dim xSht As Variant
    Dim I As Long
    For Each xSht In ActiveWorkbook.Sheets
        If xSht.Visible Then I = I + 1
    Next
    MsgBox I & " sheets are visible", , "Kutools for Excel"
End Sub

3. 実行ボタンを押します。ダイアログが表示され、表示されているシートの数が通知されます。

Kutools for Excelを使用して表示されているシート/非表示のシート/すべてのシートの数を数える

VBAに慣れていない場合は、 Kutools for Excelの ナビゲーションペインを使用して、表示されているシート、非表示のシート、およびすべてのシートの数をすばやく確認できます。

1. 表示されているシートの数を数えたいワークブックを有効にし、 Kutools > ナビゲーション をクリックします。スクリーンショットをご覧ください：

2. その後、ナビゲーションペインが現在のシートの左側に表示されます。 ワークブック & シートタブをクリックして、ワークブック & シートセクションに移動します。ペインの下部に表示されているシート、非表示のシート、およびすべてのシート（表示と非表示の両方を含む）の数を確認できます。スクリーンショットをご覧ください：

ナビゲーションペインを非表示にするには、 Kutools > ナビゲーション をクリックしてオフに切り替えます。

Kutools for Excelのナビゲーションペインは強力です。これを使用すると、シートリスト、範囲名リスト、列ヘッダーリストを表示でき、さらに範囲、画像、数式を自動テキストとして追加することもできます。また、選択したシート全体で単語を検索して置換することも可能です。 ナビゲーションペインについてさらに詳しく知るには、ここをクリックしてください。