ワークブックにシートが存在するかどうかを確認するにはどうすればよいですか？

ワークブック内に数十枚、あるいは数百枚のワークシートがある場合、その中で特定のシートが存在するかどうかを見つける、または確認したいとします。一般的には、これは非常に大変な作業になるかもしれません。ここでは、VBAコードと便利なツールをご紹介し、ワークブックにシートが存在するかどうかを迅速に確認する方法をお伝えします。

VBAを使用してワークブックにシートが存在するか確認する

Kutools for Excelを使用してシートが存在するか確認し、切り替える

ワークブックにシートが存在するか確認する

以下の手順に従って、VBAコードをコピーし、現在のワークブックにシートが存在するか確認するために実行してください。

1. Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを表示します。

2. ウィンドウ内で 挿入 > モジュール をクリックして新しいモジュールウィンドウを表示し、次のVBAコードをそのモジュールウィンドウにコピーします。

VBA: ワークブックにシートが存在するか確認する

Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
    If Application.ActiveWorkbook.Sheets(i).Name = pName Then
        IsExist = True
        Exit For
    End If
Next
CheckSheet = IsExist
End Function

3. このコードを保存し、シートに戻り、空白のセルを選択してこの数式 =CheckSheet(“Shee1”) （Sheet1 は存在するか確認したいシート名を示します）を入力し、Enterキーを押します。FALSE はそのシートが存在しないことを示し、TURE はそれが現在のブックに存在することを示します。

Kutools for Excelを使用してVBAでシートが存在するか確認し、切り替える

上記の定義済み関数を使用すると、シートが存在するか確認できますが、これも少し難しいです。しかし、Kutools for Excel を使用すると、ナビゲーションペインにすべてのシート名がリストアップされ、スクロールして目的のシートを見つけたり、シート名をフィルタリングして見つけたりすることができます。必要であれば、シート名をクリックしてすぐにそのシートに切り替えることも可能です。

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

1. 確認したいシート名が存在するワークブックを有効にし、次にクリックします。 Kutools > ナビゲーションスクリーンショットをご覧ください。
:

2. 表示されるペインで、クリックします。 ワークブック & シート ボタンをクリックしてペインを展開すると、ペインにすべてのシート名がリストされているのが見えます。スクロールしてシート名を見つけることができます。

3. または、 フィルター ボタンをチェックし、確認したいシート名のキーワードを入力すると、指定されたシート名がリストされます。シート名をクリックすると、そのシートに切り替わります。