如何在Excel中根據(jù)日期自動(dòng)隱藏列？

如何在Excel中根據(jù)日期自動(dòng)隱藏列？

假設(shè)我在工作表中有一系列數(shù)據(jù)，現(xiàn)在，我想根據(jù)特定日期自動(dòng)隱藏列。 例如，當(dāng)我在單元格中輸入日期5/16/2016時(shí)，我想立即隱藏日期小于此特定日期的列，如下面的屏幕快照所示。 本文將介紹一些解決問(wèn)題的技巧。

使用VBA代碼根據(jù)特定日期自動(dòng)隱藏列

隱藏基于特定日期的列 Kutools for Excel

使用VBA代碼根據(jù)特定日期自動(dòng)隱藏列

要完成此任務(wù)，以下VBA代碼可能會(huì)對(duì)您有所幫助，請(qǐng)執(zhí)行以下操作：

1。 選擇要按日期隱藏的工作表標(biāo)簽，然后右鍵單擊以選擇 查看代碼 從上下文菜單轉(zhuǎn)到 Microsoft Visual Basic應(yīng)用程序 窗口，然后將以下代碼復(fù)制并粘貼到模塊中：

VBA代碼：根據(jù)特定日期自動(dòng)隱藏列：

Private Sub Worksheet_Change(ByVal Target As Range) Updateby Extendoffice Dim xCell As Range If Target.Address <> Range("K4").Address Then Exit Sub Application.ScreenUpdating = False For Each xCell In Range("A1:I1") xCell.EntireColumn.Hidden = (xCell.Value < Target.Value) Next Application.ScreenUpdating = True End Sub

2。 然后保存并關(guān)閉此代碼，返回工作表，現(xiàn)在將日期輸入到單元格中 K4，則小于該特定日期的日期的列將被自動(dòng)隱藏。

備注：在上面的代碼中， K4 是您要基于其隱藏列的特定日期單元格， A1：I1 行單元格包含您使用的日期。

隱藏基于特定日期的列 Kutools for Excel

如果您不熟悉該代碼，則可以使用以下便捷工具-Kutools for Excel，其 選擇特定的單元格 實(shí)用程序，您可以輕松完成此工作。

Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在30天內(nèi)免費(fèi)試用. 

安裝后 Kutools for Excel，請(qǐng)執(zhí)行以下操作：

1。 選擇日期標(biāo)題，然后單擊 Kutools > 選擇 > 選擇特定的單元格，請(qǐng)參見(jiàn)屏幕截圖：

2。 在彈出 選擇特定的單元格 對(duì)話框中選擇 整列 來(lái)自 選擇類型，然后選擇條件，例如 小于 來(lái)自 特定類型 下拉列表，然后在要基于其隱藏列的文本框中輸入日期，請(qǐng)??參見(jiàn)屏幕截圖：

3。 然后點(diǎn)擊 Ok 按鈕，會(huì)立即選擇日期小于5/16/2016的特定列，請(qǐng)參見(jiàn)屏幕截圖：

4。 然后右鍵單擊任何一個(gè)選定的列標(biāo)題，然后選擇 隱藏 根據(jù)需要隱藏這些選定的列。 看截圖：

點(diǎn)擊免費(fèi)下載 Kutools for Excel 現(xiàn)在！