Excelシートをスムーズにナビゲート: キーワードでシートを検索するVBAマクロの作成

Excelのワークブックに多くのシートがあるとき、特定のキーワードを含むシートをすばやく見つけることは、作業の効率を大幅に向上させることができます。今回は、キーワードでシートを検索して順にナビゲートできるVBAマクロの作成方法をご紹介します。

このマクロで実現できること
マクロの特徴
コード挿入
実行時のユーザー操作
実行後の確認事項
使用時の注意点

このマクロで実現できること

このVBAマクロを使用すると、ユーザーは特定のキーワードを含むシートを順に探すことができます。キーワードを入力すると、マクロは現在のシートの次から検索を開始し、キーワードを含む最初のシートをアクティブにします。

マクロの特徴

このマクロの主な特徴は次の通りです:

前回の検索キーワードが入力ボックスの既定値として使用されます。
現在のシートの次から検索が開始され、最後のシートまで検索されます。
最後のシートまで検索した後、最初のシートから再検索が行われます。

コード挿入

以下のVBAマクロコードをVBAエディタの標準モジュールに貼り付けます(挿入→標準モジュール)。

Dim CurrentSheetIndex As Integer
Dim Keyword As String

Sub FindSheetWithKeyword()
    Dim i As Integer
    Dim NewKeyword As String
    
    NewKeyword = InputBox("キーワードを入力してください", "キーワード検索", Keyword)
    
    If NewKeyword = "" Then
        Exit Sub
    End If
    
    Keyword = NewKeyword
    For i = CurrentSheetIndex + 1 To Sheets.Count
        If InStr(Sheets(i).Name, Keyword) > 0 Then
            Sheets(i).Activate
            CurrentSheetIndex = i
            Exit Sub
        End If
    Next i

    ' If not found till the end, start searching from the beginning
    For i = 1 To CurrentSheetIndex
        If InStr(Sheets(i).Name, Keyword) > 0 Then
            Sheets(i).Activate
            CurrentSheetIndex = i
            Exit Sub
        End If
    Next i
    
    MsgBox "キーワードが含まれるシートは見つかりませんでした。", vbInformation
End Sub

Sub FindNextSheetWithKeyword()
    Dim i As Integer
    If Keyword = "" Then
        MsgBox "まずキーワードを入力して検索を開始してください。", vbInformation
        Exit Sub
    End If
    
    For i = CurrentSheetIndex + 1 To Sheets.Count
        If InStr(Sheets(i).Name, Keyword) > 0 Then
            Sheets(i).Activate
            CurrentSheetIndex = i
            Exit Sub
        End If
    Next i
    
    MsgBox "他にキーワードが含まれるシートはありません。", vbInformation
End Sub