📋

UnhideAllSheets

シート管理

すべての非表示シートを表示する

🎬 デモGIF準備中

📖 使い方

VBAエディタを開く（Alt + F11）
モジュールを挿入（挿入 > モジュール）
下記VBAコードをコピー&ペースト
ブック上で実行（Alt + F8 でマクロ選択）

💡 実行例：実行すると非表示になっているすべてのシートが表示されます

💻 VBAコード

' UnhideAllSheets
' -----------------
' Macro Name: UnhideAllSheets
' Description: すべての非表示シートを表示する
' Parameters: なし
' Returns: なし
' Usage: 実行すると非表示になっているすべてのシートが表示されます
' -----------------

Sub UnhideAllSheets()
    Dim ws As Worksheet
    Dim hiddenCount As Long
    Dim i As Long

    On Error GoTo ErrorHandler

    hiddenCount = 0
    For Each ws In Worksheets
        If ws.Visible = xlSheetHidden Then
            hiddenCount = hiddenCount + 1
        End If
    Next ws

    If hiddenCount = 0 Then
        MsgBox "非表示のシートはありません。", vbInformation
        Exit Sub
    End If

    For Each ws In Worksheets
        If ws.Visible = xlSheetHidden Then
            ws.Visible = xlSheetVisible
        End If
    Next ws

    MsgBox hiddenCount & "枚のシートを表示しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

🔗 同カテゴリの関連マクロ