アクティブなシートと、指定したシート以外を非表示にする
アクティブなシートと、特定のシート以外を非表示にします。
ChatGPTのプロンプト
下記のVBAコードを作成できますか？ ・マクロ名は「 シート非表示 」とし、コメントを日本語でいれる。 ・アクティブなシートと、「 シート名一覧 」シート以外を非表示にする。
（ポイント１）上の「プロンプトをコピーする」ボタンで、コピーできます。
（ポイント２）ChatGPTに貼り付けて、緑色の単語を、あなたの処理に合わせて修正します。内容の削除や追加もできます。
(注：プロンプトの全てを読む必要はありません。緑色の行のみ集中して読み、修正してください）
（ポイント３）会話のスタイルは、「より厳密に」を選択します。
（ポイント４）プロンプトの改行は、ShiftキーとEnterキーを同時に押します。
ChatGPTの回答
もちろんです。以下に指定の条件に基づいたVBAコードを示します：
Sub シート非表示()
' このマクロはアクティブなシートと「シート名一覧」シート以外を非表示にします
Dim ws As Worksheet
Dim activeSheetName As String
Dim sheetListName As String
' アクティブなシートの名前を取得
activeSheetName = ActiveSheet.Name
' 非表示にしないシートの名前を設定
sheetListName = "シート名一覧"
' すべてのシートをループ
For Each ws In ThisWorkbook.Worksheets
' アクティブなシートと「シート名一覧」シート以外を非表示にする
If ws.Name <> activeSheetName And ws.Name <> sheetListName Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
プロンプトを作成し、VBAコードを実行してみて！ ChatGPT凄い！！😊
VBAマクロを無料のChatGPT（Microsoft Copilot）で作成します。
Copilot(https://copilot.microsoft.com)はログイン不要。すぐVBAマクロが完成します。
