Excel でユーザーの入力に応じて列をリアルタイムで非表示にするには、どうすればよいですか？

著者Xiaoyang変更日2025-04-16

Excel で列を非表示にするのはよくある操作ですが、特定の入力値に基づいて自動的に列を非表示にしたことはありますか？たとえば、セルに「AA」と入力すれば列 A が、「BB」と入力すれば列 B と C が、「CC」と入力すれば列 D と E が、「DD」と入力すれば列 F が自動で非表示になるようにしたいとします（下記デモ参照）。本記事では、この課題を解決するためのExcel 向け VBA コードをご紹介します。

ユーザー入力に基づき列をリアルタイムで非表示または再表示する VBA コードの使用

ユーザー入力に基づき特定の列を非表示または再表示する VBA コードの使用

ユーザー入力に基づき列をリアルタイムで非表示または再表示する VBA コードの使用

列を指定を入力値に基づきリアルタイムで非表示にするには、以下の VBA コードを適用してください：

1。列を非表示にしたいワークシートで、シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択してください（スクリーンショット参照）。

シートタブを右クリックしてExcelでVisual Basic for Applicationsウィンドウを開く方法を示すスクリーンショット

2。「Microsoft Visual Basic for Applications」ウィンドウが開いたら、「Sheet (Code)」ウィンドウに次の VBA コードをコピー＆ペーストしてください。

VBA コード：ユーザー入力に基づき列をリアルタイムで非表示にする

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub

注：上記コードにおいて、「K1」は特定のテキストを入力するセルです。テキストや列名は実際の用途に合わせて調整してください。また、以下のスクリプトを追加することで、新しい条件を簡単に追加できます：

ケース「AA」：Columns(「A」)。EntireColumn.Hidden = False
Columns(「A」).EntireColumn.Hidden = True

ユーザー入力に基づいて列を非表示にするコードが貼り付けられた、ExcelのVBAコードウィンドウのスクリーンショット

3。その後、コードウィンドウを閉じてください。これで、セル K1 に「AA」と入力して「Enter」キーを押すと列 A が非表示に、「BB」と入力して「Enter」キーを押すと列 B と C が非表示になります。他の値を入力したり、内容を削除したりすると、非表示になっていた列がすべて即座に再表示されます（下記デモ参照）。

ユーザー入力に基づき特定の列を非表示または再表示する VBA コードの使用

この例では、入力した製品名に基づいてデータ範囲をフィルターします。「Hoodie」と入力すると、「Hoodie」に関する情報のみが表示され、他の列は即座に非表示になります。「All」と入力すると、下記デモのようにすべての列が表示されます。

シートタブを右クリックしてExcelでVisual Basic for Applicationsウィンドウを開く方法を示すスクリーンショット

2。「Microsoft Visual Basic for Applications」ウィンドウが開いたら、「Sheet (Code)」ウィンドウに次の VBA コードをコピー＆ペーストしてください。

VBA コード：ユーザー入力に基づきデータをフィルターするために列を非表示または再表示する

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub

注：上記コードにおいて、「K1」は特定のテキストを入力するセルであり、「B1:H1」はフィルター対象の製品名を含む行見出しがある範囲です。

3。その後、コードウィンドウを閉じてください。これで、セル K1 に製品名を入力すると該当する列のみが表示され、他の列は非表示になります。「All」と入力すれば、下記デモのようにすべての列が表示されます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。