如何根據 Excel 中的用戶輸入實時隱藏列？

對於我們大多數人來說，隱藏 Excel 中的列可能是一項常見任務，但是，您是否嘗試過根據某些特定輸入值自動隱藏列？ 例如，當我在單元格中輸入文本“AA”時，A 列被隱藏； 當我輸入“BB”時，B列和C列被隱藏； 輸入“CC”時，D列和E列被隱藏； 輸入“DD”時，F 列被隱藏，如下圖所示。 本文將創建一個 VBA 代碼以在 Excel 中解決它。

根據使用 VBA 代碼的用戶輸入實時隱藏或取消隱藏列

隱藏或取消隱藏列以使用 VBA 代碼根據用戶輸入過濾數據

---

根據使用 VBA 代碼的用戶輸入實時隱藏或取消隱藏列

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

1. 在要隱藏列的工作表中，右鍵單擊工作表選項卡，然後單擊 查看代碼 從上下文菜單中，查看屏幕截圖

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

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

---

隱藏或取消隱藏列以使用 VBA 代碼根據用戶輸入過濾數據

在此示例中，我將根據輸入的產品名稱過濾數據范圍。 當我輸入“Hoodie”時，只顯示Hoodie信息，其他欄目會立即隱藏； 當我輸入“All”時，所有列將顯示如下演示所示：

1. 在要隱藏列的工作表中，右鍵單擊工作表選項卡，然後單擊 查看代碼 從上下文菜單中，查看屏幕截圖：

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

3. 然後，關閉代碼窗口。 現在，如果您在單元格K1中輸入產品名稱，則只會顯示相應的列，其他列將被隱藏； 如果您輸入文本“All”，所有列將顯示如下演示所示：