VBAでシート操作を超便利に！

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

📌 今日のテーマ: 「VBAでシート操作を効率化！｣

🛠️ 今日の目標

1. シート一覧を作成して、選択したシートにジャンプ
2. 特定のシートだけを表示・非表示にする
3. シートを名前順や色別に並び替える

---

🔧 まずはシンプルなマクロから始めよう！

例えば、「指定したシートにジャンプするマクロ」を作ってみよう。

📄 VBAコード例:

Sub GoToSheet()
    Dim sheetName As String
    sheetName = InputBox("移動したいシート名を入力してください")
    
    On Error Resume Next
    Sheets(sheetName).Activate
    If Err.Number <> 0 Then
        MsgBox "指定したシートは存在しません！", vbExclamation
    End If
    On Error GoTo 0
End Sub

📝 コードの説明

1. InputBox: シート名を入力する小窓を表示。
2. Sheets(sheetName).Activate: 入力したシートに移動。
3. エラーハンドリング: 存在しないシート名が入力されたらエラーメッセージを表示。

---

🚀 やってみよう！

1. Excelの「開発」タブ → 「Visual Basic」 を開く。
2. 挿入 → 標準モジュール を選ぶ。
3. 上のコードを貼り付ける。
4. 実行ボタンを押して動かしてみよう！

---

---

---

📚 2. シート一覧から選んでジャンプするマクロ

🔧 コード例

Sub JumpToSheetFromList()
    Dim sheetName As String
    Dim sheetList As String
    Dim ws As Worksheet
    
    ' シート一覧を取得
    For Each ws In ThisWorkbook.Sheets
        sheetList = sheetList & ws.Name & vbCrLf
    Next ws
    
    ' ユーザーにシート名を選ばせる
    sheetName = InputBox("以下のシートから選んで入力してください:" & vbCrLf & sheetList, "シート選択")
    
    ' シートにジャンプ
    On Error Resume Next
    Sheets(sheetName).Activate
    If Err.Number <> 0 Then
        MsgBox "指定したシートは存在しません！", vbExclamation
    End If
    On Error GoTo 0
End Sub

---

📝 コードの説明

1. シート一覧の取得
   • For Each ws In ThisWorkbook.Sheets で全てのシートをリスト化。
   • sheetList に改行を挟んでシート名を追加。
2. ユーザーにシートを選択させる
   • InputBox でシート名の一覧を表示し、選択を促す。
3. 選択されたシートにジャンプ
   • 入力されたシート名に基づいて Sheets(sheetName).Activate でジャンプ。
   • 存在しない場合はエラーメッセージを表示。

---

🚀 やってみよう！

1. 標準モジュール に上記コードを貼り付ける。
2. 緑の再生ボタン を押して実行。
3. シート名の一覧が表示されるので、目的のシート名をコピーして貼り付け。

---

---

📚 3. リストボックスでシートを選択してジャンプ

🔧 コード例

Sub SheetSelector()
    Dim sheetName As String
    Dim sheetList As String
    Dim ws As Worksheet
    Dim i As Integer
    
    ' ユーザーフォームを作成
    Dim frm As Object
    Set frm = VBA.UserForms.Add("SheetSelectorForm")
    
    ' リストボックスにシート名を追加
    For Each ws In ThisWorkbook.Sheets
        frm.ListBox1.AddItem ws.Name
    Next ws
    
    ' フォームを表示
    frm.Show
    
    ' 選択されたシートにジャンプ
    If frm.ListBox1.ListIndex >= 0 Then
        sheetName = frm.ListBox1.Value
        Sheets(sheetName).Activate
    End If
    
    Unload frm
End Sub

---

🛠️ ユーザーフォームの準備

1. 「開発」タブ → Visual Basic → 挿入 → ユーザーフォーム を追加。
2. フォームの名前を SheetSelectorForm に変更。
3. 「ツールボックス」から以下を追加:
   • リストボックス（ListBox1）
   • コマンドボタン（CommandButton1）
4. コマンドボタンのプロパティ
   • Name: cmdOK
   • Caption: OK
5. ユーザーフォームに以下のコードを追加:

Private Sub cmdOK_Click()
    Me.Hide
End Sub

---

📝 コードの説明

1. フォーム作成:
   • ユーザーフォーム (SheetSelectorForm) を表示。
2. シート名リスト:
   • ListBox1 に全シート名をリストアップ。
3. 選択操作:
   • シート名をクリックで選択。
4. OKボタン:
   • 選んだシートにジャンプ。

---

🚀 やってみよう！

1. ユーザーフォーム を準備。
2. 上の SheetSelector マクロ を貼り付け。
3. 緑の再生ボタン で実行！
4. リストから 目的のシートをクリック してOKボタンを押す。

---

🎯 ポイント

• リストから選ぶだけで 手入力不要！
• 見た目もスッキリ して使いやすい！

---

📚 4. Excel上にボタンを作成していつでも呼び出せるようにしよう！

🔧 手順：Excel上にボタンを配置

1. Excelシートに戻る
2. 「開発」タブ → 挿入 → フォームコントロール → ボタン を選択
3. シート上にボタンを配置
4. マクロの登録ダイアログ が表示されるので、「SheetSelector」 を選択
5. ボタンに名前を付ける（例：「シート選択ボタン」）

---

🚀 ボタンを押して動作確認

1. 配置したボタンを押す
2. ユーザーフォーム が開く
3. リストボックスから目的のシートを選択して「OK」

---

🎯 さらに便利にするポイント

• ボタンを目立つ位置に配置：作業しやすい位置に置くと便利！
• シートごとにボタンを配置：特定のシート専用のボタンを作るのもあり。
• ショートカットキーを設定：頻繁に使うならショートカットを割り当ててもいいね！

---

---

📚 今日の振り返り:

• シート名を手入力で移動するVBAマクロ
• シート一覧から選択してジャンプするマクロ
• リストボックス付きのユーザーフォームでクリック移動
• Excelシート上にボタンを配置して、いつでも呼び出せるように設定

初めてのVBA挑戦だったけど、完璧に成功させたね！🎯✨

---

📢 ジッピーから締めの一言

---