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

在 Excel 中隱藏列可能是一項常見的任務，但您是否嘗試過根據特定的輸入值自動隱藏列呢？例如，當我在某個單元格中輸入文字“AA”時，A 列會被隱藏；當我輸入“BB”時，B 和 C 列會被隱藏；輸入“CC”時，D 和 E 列會被隱藏；輸入“DD”時，F 列會被隱藏，如下方示範所示。本文將提供一個 VBA 程式碼來解決這個問題。

使用 VBA 程式碼根據使用者輸入即時隱藏或取消隱藏列

使用 VBA 程式碼根據使用者輸入隱藏或取消隱藏某些列

使用 VBA 程式碼根據使用者輸入即時隱藏或取消隱藏列

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

1. 在您想要隱藏列的工作表中，右鍵點擊工作表標籤，然後從快捷選單中點擊「檢視程式碼」，如下圖所示。

2. 在打開的「Microsoft Visual Basic for Applications」窗口中，將以下 VBA 程式碼複製並粘貼到「Sheet (Code)」窗口中。

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

3. 然後，關閉程式碼窗口。現在，當在 K1 單元格中輸入“AA”並按下“Enter”鍵時，A 列將被隱藏；當輸入“BB”並按下“Enter”鍵時，B 和 C 列將被隱藏，以此類推。如果您輸入任何其他值或刪除內容，隱藏的列將立即顯示，如下方示範所示：

使用 VBA 程式碼根據使用者輸入隱藏或取消隱藏某些列

在此範例中，我將根據輸入的產品名稱篩選資料區域。當我輸入“Hoodie”時，只會顯示 Hoodie 的資訊，其他列將立即被隱藏；而當我輸入“All”時，所有列都會顯示，如下方示範所示：

1. 在您想要隱藏列的工作表中，右鍵點擊工作表標籤，然後從快捷選單中點擊「檢視程式碼」，如下圖所示：

2. 在打開的「Microsoft Visual Basic for Applications」窗口中，將以下 VBA 程式碼複製並粘貼到「Sheet (Code)」窗口中。

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

3. 然後，關閉程式碼窗口。現在，如果您將產品名稱輸入到 K1 單元格中，只有對應的列會顯示，其他的將被隱藏；如果您輸入“All”，所有列都會出現，如下方示範所示：