【Excel×VBA】ドロップダウンリストで表示を切り替える

てちてちエンジニアのおっとーです。

今回はドロップダウンリストから表示エリアを選択すると、
エリアとして事前に決めた行を表示するようなマクロを作っていきます。

この投稿でできるようになること

ドロップダウンリストの作成
名前の定義の設定
名前の定義の活用
シート操作があった際に、アクションを起こすマクロの作成
余計な部分を表示させない方法の習得

早速やっていきます。

ドロップダウンリスト作成

Excel を開く
B2セルを選択（←どこでも大丈夫です）
データを押下
データの入力規則を押下
表示された画面の入力値の種類(A)からリストを選択
元の値(S)に「,（カンマ）」で区切ってドロップダウンの項目を入力
OKを押下

作成が成功していればこのようにドロップダウンリストが作成されているはずです。

表示切替のエリアに色を付ける

この手順は動きの確認をしやすくするためです。

不要であればスキップして問題ありません。

ドロップダウンリストの切り替えによって、
表示したい場所が表示されていて、非表示にしたい場所が非表示になっていることを確認しやすくします。

各表示エリアに名前を定義

今回は5～8行目をAのエリアとしたいので、以下のように操作します。

見出し５－８行目を選択
数式を押下
名前の定義を押下
表示された画面から範囲をSheet設定
参照範囲が間違ってないことを確認
OKボタン押下
５－８行目を選択
画面左上にA5だった部分がAのエリアとなっていることを確認

上の手順をABCそれぞれのエリアに対して行ってください。

ABCのエリアそれぞれに名前の定義ができているかは、
数式→名前の管理から確認することができます。

以下の図のようになっていればしっかり設定できています。

ドロップダウンにアクションをつける

ドロップダウンを切り替えたときに、
選択したエリアだけが表示されるようにマクロを組みます。

完成イメージはこんな感じです。

Alt+F11でVBEを起動
プロジェクトエクスプローラー（画面左側）からSheet1をダブルクリック
編集画面左上からWorksheetを選択
編集画面右上からChangeを選択
Worksheet_SelectionChangeのほうを削除
以下のコードを記入
コンパイルを実行
VBEを閉じる

手順通りやったけどコンパイルの段階でエラーが出てしまった場合、
記述ミスをしている可能性が高いです。

記述したコードを削除して以下のコードの再貼り付けを試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
    '変更された範囲（Target）にB2のセルが含まれていない場合
    If Intersect(Target, Range("B2")) Is Nothing Then
        Exit Sub
    'それ以外の場合
    Else
        'B2の値がCaseの場合
        Select Case Range("B2").Value
            Case "Aを表示"
                'Aの非表示を解除して他を非表示
                Range("Aのエリア").EntireRow.Hidden = False
                Range("Bのエリア").EntireRow.Hidden = True
                Range("Cのエリア").EntireRow.Hidden = True
                
            Case "Bを表示"
                'Bの非表示を解除して他を非表示
                Range("Aのエリア").EntireRow.Hidden = True
                Range("Bのエリア").EntireRow.Hidden = False
                Range("Cのエリア").EntireRow.Hidden = True
                
            Case "Cを表示"
                'Cの非表示を解除して他を非表示
                Range("Aのエリア").EntireRow.Hidden = True
                Range("Bのエリア").EntireRow.Hidden = True
                Range("Cのエリア").EntireRow.Hidden = False
            
        End Select
    End If
End Sub