如何根據 Excel 中使用者的輸入即時隱藏欄位？

作者Xiaoyang修改日期2025-04-16

在 Excel 中隱藏欄位雖是常見操作，但您是否試過根據特定輸入值自動隱藏對應欄位？例如：當儲存格輸入「AA」時，A 欄自動隱藏；輸入「BB」時，B 欄與 C 欄隨即隱藏；輸入「CC」時，D 欄和 E 欄立即隱藏；輸入「DD」時，F 欄則自動隱藏，效果如以下示範所示。本文將提供一段實用的 VBA 程式碼，助您輕鬆實現此智慧隱藏功能！

使用 VBA 程式碼根據使用者輸入即時隱藏或顯示欄位

使用 VBA 程式碼根據使用者輸入隱藏或顯示特定欄位

使用 VBA 程式碼根據使用者輸入即時隱藏或顯示欄位

若要根據輸入值即時隱藏指定列，請套用以下 VBA 程式碼：

1. 在您要隱藏欄位的工作表中，於工作表分頁上按一下滑鼠右鍵，然後從快捷功能表中選取「檢視程式碼」，請參閱截圖。

螢幕截圖展示如何透過右鍵點擊工作表標籤，在 Excel 中開啟 Visual Basic for Applications 視窗

2. 在開啟的「Microsoft Visual Basic for Applications」視窗中，請將下列 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」時，所有欄位則會如以下示範完整呈現：

1. 在您要隱藏欄位的工作表中，於工作表分頁上按一下滑鼠右鍵，然後從快捷選單中選擇「檢視程式碼」，請參閱下方截圖：

螢幕截圖展示如何透過右鍵點擊工作表標籤，在 Excel 中開啟 Visual Basic for Applications 視窗

2. 在開啟的「Microsoft Visual Basic for Applications」視窗中，請將下列 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 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多