Přejít k hlavnímu obsahu

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

Autor: Xiaoyang Naposledy změněno: 2024-10-31

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í.

Snímek obrazovky s daty aplikace Excel se sloupci, které se mají skrýt na základě kritérií data

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


šipka modrá pravá bublina 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

Snímek obrazovky kódu VBA

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.


šipka modrá pravá bublina 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.

Kutools for Excel nabízí více než 300 pokročilých funkcí pro zefektivnění složitých úkolů, zvýšení kreativity a efektivity. Itegarujte se schopnostmi AI, Kutools automatizuje úkoly s přesností, čímž usnadňuje správu dat. Podrobné informace o Kutools for Excel...         Zkušební verze zdarma...

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:

Snímek obrazovky zobrazující Kutools Nabídka Vybrat konkrétní buňky v Excelu

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:

Snímek obrazovky Kutools Vyberte nastavení Specifické buňky pro skrytí sloupců podle data v aplikaci Excel

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:

Snímek obrazovky sloupců aplikace Excel vybraných ke skrytí na základě kritérií data

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:

Snímek obrazovky vybraných sloupců skrytých pomocí možnosti Skrýt

Kutools for Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si trvale bezplatné funkce AI! Get It Now

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  vzývat Kutools Funkce...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více
Použijte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Vylepšete si své excelové dovednosti s Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...


Office Tab Přináší do Office rozhraní s kartami a výrazně vám usnadňuje práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!