Excelのシート数をイミディエイトウィンドウで簡単に取得する

Excelファイルのシート数を数えてくれと言われて開いたときに、大量にシートがありすぎてなんだこりゃ～となったことはありませんか？

そんなときにサクっと数えるテクニックです。

状態

Excel資料のシート数教えてと言われて、渡されたExcelファイルが鬼のようなシート数だったときはありませんか。

左のシートから1,2,3,4・・・と数えていたら終わりが見えない作業になってしまいますし、数えている途中でExcelが固まったら・・。

「シートの選択」画面から数えるというテクニックもあるのですが、それでも正確に数えられるのは20シートぐらいでしょう。

また、枚数が多くなればなるほど、手作業はミスが多くなりがちです。

実はExcelシートはメモリが許す限り何枚でも作成可能なので、100シートを超えるExcelファイルも普通にありえます。

明らかにシートの数が多いと思ったら、手で数えるのはやめましょう。

前置きが長くなりましたが、ここからが手順です。

見なければならないExcelファイルが数ファイルで、そのExcelファイルに大量のシートがあるという状況であれば、下記の方法が使えるかもしれません。

（ファイルが大量なら、きちんとスクリプトを組んだほうがいいです）

まずはExcelファイルを開いた後に、VBE画面を表示します。

もし画面操作でVBE画面を開けない場合は、Excelファイル上でショートカットキー「Alt + F11」により、開くことができます。

それからイミディエイトウィンドウへ、下記のようにコード入力します。(ここはコピペでよいです)

ちなみに、もしイミディエイトウィンドウがVBE上に出てない場合は、「Ctrl + G」で、画面上に表示させることができます。

コード

Debug.Print Sheets.Count

コードの内容はSheetの数をデバッグプリントで、イミディエイトウィンドウへ出力する内容です。

入力例

入力ができたら、エンターを押下してコードを実行します。

すると下記のように、シート数が出力されます。

下記のキャプチャの例だと19枚で済んだようですね。

※ただしこのテクニックは、非表示シートもカウントします。

非表示シートも数に加えてよいか、依頼者とよく確認してから実施してください。

下記の環境で作成・実行しております。

No.	環境	バージョン
1	OS	Windows10
2	Excel	Excel2016

以上です。