Jak automaticky skrýt sloupce podle data v aplikaci Excel?

Předpokládejme, že mám v listu řadu dat, teď chci automaticky skrýt sloupce na základě konkrétního data. Například když zadám datum 5/16/2016 do buňky, chci okamžitě skrýt sloupce, jejichž datum je menší než toto konkrétní datum, jak ukazuje následující snímek obrazovky. Tento článek představí některé triky pro jeho řešení.

Automaticky skryjte sloupce na základě konkrétního data pomocí kódu VBA

Skrýt sloupce na základě konkrétního data pomocí Kutools for Excel

Automaticky skryjte sloupce na základě konkrétního data pomocí kódu VBA

K dokončení tohoto úkolu vám může pomoci následující kód VBA, postupujte takto:

1. Vyberte kartu listu, kterou chcete skrýt podle data, a klikněte pravým tlačítkem a vyberte ji Zobrazit kód z kontextového menu přejděte do Microsoft Visual Basic pro aplikace okno a poté zkopírujte a vložte následující kód do modulu:

Kód VBA: Automaticky skrýt sloupce na základě konkrétního data:

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. Poté uložte a zavřete tento kód, vraťte se zpět do listu a nyní, když zadáte datum do buňky K4, sloupce s daty dřívějšími než zadané datum budou automaticky skryty.

Hodnocení: Ve výše uvedeném kódu, K4 je konkrétní buňka data, na které chcete skrýt sloupce, A1: I1 je řádek buňky obsahují datum, které jste použili.

Skrýt sloupce na základě konkrétního data pomocí Kutools for Excel

Pokud nejste obeznámeni s kódem, zde je praktický nástroj -Kutools for Excel, S jeho Vyberte konkrétní buňky nástroj, můžete tuto práci snadno dokončit.

Po instalaci Kutools for Excel, postupujte následovně:

1. Vyberte záhlaví data a klikněte na Kutools > vybrat > Vyberte konkrétní buňky, viz screenshot:

2. Ve vyskočené Vyberte konkrétní buňky dialogové okno vyberte Celý sloupec z Typ výběrua poté vyberte kritéria, například Méně než z Specifický typ rozevírací seznam a zadejte datum do dalšího textového pole, na kterém chcete skrýt sloupce, viz screenshot:

3. A pak klikněte na tlačítko Ok tlačítko, najednou jsou vybrány konkrétní sloupce, jejichž datum je menší než 5/16/2016, viz screenshot:

4. Poté klikněte pravým tlačítkem na libovolné vybrané záhlaví sloupce a vyberte Skrýt skrýt tyto vybrané sloupce podle potřeby. Viz snímek obrazovky: