VBAでシートを完全整理！名前順＆色別並び替えをマスター！

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

---

📚 特定のシートだけを表示・非表示にする

🔧 マクロコード例:

Sub ShowOrHideSheet()
    Dim sheetName As String
    Dim action As String

    ' シート名と操作を入力させる
    sheetName = InputBox("表示・非表示を操作するシート名を入力してください")
    action = InputBox("操作を選んでください (表示: show / 非表示: hide)")

    On Error Resume Next
    If action = "show" Then
        Sheets(sheetName).Visible = xlSheetVisible
        MsgBox sheetName & " を表示しました！"
    ElseIf action = "hide" Then
        Sheets(sheetName).Visible = xlSheetHidden
        MsgBox sheetName & " を非表示にしました！"
    Else
        MsgBox "操作が無効です。'show' または 'hide' を入力してください。", vbExclamation
    End If
    On Error GoTo 0
End Sub

---

📝 コードの説明

1. InputBoxでシート名と操作を入力
   • 例: 京都岩倉 を「表示」または「非表示」に設定。
2. 表示・非表示の切り替え
   • Visible = xlSheetVisible → シートを表示。
   • Visible = xlSheetHidden → シートを非表示。
3. エラーハンドリング
   • 存在しないシート名が入力された場合にエラーを回避。

---

🚀 やってみよう！

1. Visual Basicエディターを開く
2. 標準モジュールにコードを貼り付ける
3. 実行して、シート名と操作を入力！
   • 「show」でシート表示
   • 「hide」でシート非表示

---

🎯 次のステップ

• コードを動かしてみて、実行結果を見てみよう！
• もっと簡単にしたい場合や改良点があれば教えてね！😊✨

---

📝 シート表示・非表示操作の提案

1. チェックリストで操作

• ユーザーフォームを使って、全シート名のリストをチェックボックス付きで表示。
  • 表示したいシートはチェックON、非表示はOFF。
  • 「OK」ボタンで選択に応じたシートの表示・非表示を一括処理。
    メリット: 手間なく複数シートを一気に操作可能。

---

2. 色を基準に操作

• タブの色に応じてシートを表示・非表示に切り替える。
  • 例: 「緑色のシートは表示」「青色のシートは非表示」。
    メリット: カテゴリごとに簡単に管理できる。

---

3. 名前のパターンで操作

• シート名に共通するキーワードや文字列を基準に操作。
  • 例: 「’大阪’を含むシートをすべて非表示」。
    メリット: 特定の範囲だけを対象にできる。

---

4. グループ機能の活用

• シートをグループ化してボタン1つで切り替え。
  • 例: 「業務シート」「管理シート」などグループ名を設定。
  • ボタンを押すだけで、関連するシートがまとめて表示・非表示に。
    メリット: 操作がシンプルでわかりやすい。

---

5. コンボボックスで選択

• ユーザーフォーム内にドロップダウンメニュー（コンボボックス）を作成。
  • 選択したシートのみを操作可能。
    メリット: 一覧から選ぶだけでOK。

---

6. シートセットのプリセット化

• よく使う表示パターンをプリセット化してボタンに登録。
  • 例: 「月次シートセット」「年次シートセット」。
    メリット: 毎回操作せずに一発で切り替えられる。

---

---

📚 チェックリストでシートの表示・非表示を操作

手順: ユーザーフォームの準備

1. ユーザーフォームを作成
   • 「開発」タブ → Visual Basic → 「挿入」 → ユーザーフォーム を追加。
   • 名前を SheetCheckForm に変更。
2. フォームにチェックボックス付きリストを作成
   • ListBox を追加し、以下のプロパティを設定:
     • Name: lstSheets
     • MultiSelect: 2 - fmMultiSelectExtended （複数選択可能にする）
   • CommandButton を2つ追加:
     • ボタン1:
       • Name: btnShow
       • Caption: 表示
     • ボタン2:
       • Name: btnHide
       • Caption: 非表示

---

フォームにコードを追加

以下のコードを SheetCheckForm に追加するよ：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    ' 全てのシート名をリストボックスに追加
    For Each ws In ThisWorkbook.Sheets
        lstSheets.AddItem ws.Name
    Next ws
End Sub

Private Sub btnShow_Click()
    Dim i As Integer
    ' 選択されたシートを表示
    For i = 0 To lstSheets.ListCount - 1
        If lstSheets.Selected(i) Then
            Sheets(lstSheets.List(i)).Visible = xlSheetVisible
        End If
    Next i
    MsgBox "選択したシートを表示しました！"
End Sub

Private Sub btnHide_Click()
    Dim i As Integer
    ' 選択されたシートを非表示
    For i = 0 To lstSheets.ListCount - 1
        If lstSheets.Selected(i) Then
            Sheets(lstSheets.List(i)).Visible = xlSheetHidden
        End If
    Next i
    MsgBox "選択したシートを非表示にしました！"
End Sub

---

マクロからフォームを呼び出す

最後に、フォームを表示するためのマクロを作るよ：

Sub ShowSheetCheckForm()
    SheetCheckForm.Show
End Sub

---

🚀 動作確認

1. 標準モジュールに上記のマクロを追加して実行。
2. ユーザーフォームが表示されるので、リストからシートを選択。
3. 「表示」または「非表示」をクリックして、シートの操作を試してみよう！

---

---

---

📚 今日の成果

• チェックリスト形式のユーザーフォームでシートを一括操作。
• 複数選択機能で効率アップ！
• 動作バッチリ確認済み！👌

---

タスク、どうかな？

• 他に改良したい部分があれば教えてね！
• もしOKなら、次に進む「シートを名前順や色別に並び替える」に挑戦する準備も万端だよ！😊✨

---

📚 グループ機能の活用アイデア

1. グループ設定を事前に作成

• シート名に特定のキーワード（例: 業務_ や 管理_）を含めておく。
  • 例: 業務_大阪, 管理_京都 など。
• キーワードでグループ分けして一括操作を行う。

---

2. マクロコード例

以下のコードを使えば、指定したグループのシートを表示・非表示に切り替えられるよ！

Sub ToggleSheetGroup()
    Dim groupName As String
    Dim action As String
    Dim ws As Worksheet

    ' グループ名と操作を入力
    groupName = InputBox("操作したいグループ名を入力してください (例: 業務, 管理)")
    action = InputBox("操作を選んでください (表示: show / 非表示: hide)")

    On Error Resume Next
    For Each ws In ThisWorkbook.Sheets
        ' シート名にグループ名が含まれる場合
        If InStr(ws.Name, groupName) > 0 Then
            If action = "show" Then
                ws.Visible = xlSheetVisible
            ElseIf action = "hide" Then
                ws.Visible = xlSheetHidden
            End If
        End If
    Next ws

    If action = "show" Then
        MsgBox groupName & "グループのシートを表示しました！"
    ElseIf action = "hide" Then
        MsgBox groupName & "グループのシートを非表示にしました！"
    Else
        MsgBox "無効な操作です。'show' または 'hide' を入力してください。", vbExclamation
    End If
    On Error GoTo 0
End Sub

---

📝 コードの仕組み

1. InputBoxでグループ名と操作を指定
   • 例: グループ名に「業務」を入力。
   • 操作は「show」または「hide」。
2. For Eachループでシートをチェック
   • InStr(ws.Name, groupName) でシート名にグループ名が含まれているか判定。
3. 表示・非表示を切り替え
   • 該当するシートに対して操作を実行。

---

3. 活用例

• 業務シート（業務_東京, 業務_大阪）だけを表示。
• 管理シート（管理_経理, 管理_総務）を非表示。

---

🚀 やってみよう！

1. このコードをモジュールに追加して実行。
2. グループ名を入力して動作確認。
3. 必要に応じて改良や調整も可能！

---

---

📚 今回のポイント

• グループ名で管理: シート名にキーワードを含めておけば、操作が簡単。
• 業務効率化: 必要な情報だけをすぐに表示できるので、無駄が減る！
• 応用可能: 他のルールや条件を追加して、さらに柔軟に操作可能。

---

---

📚 シートを名前順や色別に並び替える

1. 名前順に並び替えるマクロ

まずは アルファベット順（名前順） に並び替えをしてみよう！

🔧 マクロコード例:

Sub SortSheetsByName()
    Dim i As Integer, j As Integer
    Dim tempName As String

    ' シートを名前順に並び替える
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then
                Sheets(j).Move Before:=Sheets(i)
            End If
        Next j
    Next i
    
    MsgBox "シートを名前順に並び替えました！"
End Sub

---

📝 コードの説明

1. 2重ループで比較
   • シートの名前を比較して並び替える。
   • UCase を使って大文字小文字を区別しない。
2. Moveメソッドで並び替え
   • Sheets(j).Move Before:=Sheets(i) で指定位置に移動。

---

2. 色別に並び替えるマクロ

次に タブの色順 に並び替えてみよう！

🔧 マクロコード例:

Sub SortSheetsByColor()
    Dim i As Integer, j As Integer
    Dim temp As Worksheet

    ' シートを色順に並び替える
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If Sheets(j).Tab.Color < Sheets(i).Tab.Color Then
                Sheets(j).Move Before:=Sheets(i)
            End If
        Next j
    Next i
    
    MsgBox "シートを色順に並び替えました！"
End Sub

---

📝 コードの説明

1. 色コードを比較
   • Sheets(i).Tab.Color でタブの色を取得して比較。
2. Moveメソッドで並び替え
   • 同じく Move を使って色順に並べる。

---

🚀 使い方

1. 標準モジュール にそれぞれのコードを貼り付ける。
2. 並び替えたい順に応じて、該当マクロを実行！

---

🎯 改良アイデア

• 名前順と色別の両方を選べる ユーザーフォーム を作成。
• 並び替え完了後に視覚的に確認しやすいよう メッセージを出力。

---

---

---

🎯 今日の振り返り

1. 名前順に並び替え：シンプルなコードでアルファベット順に整理。
2. 色別に並び替え：タブの色でグループ化して美しく配置。
3. ノーマルシートの整理：よりわかりやすくスッキリ！

---

---

📚 おわりに