Note: The other languages of the website are Google-translated. Back to English

Jak skrýt řádky na základě dnešního data v aplikaci Excel?

Předpokládejme, že máte tabulku ovoce v listu, jak je znázorněno na následujícím snímku obrazovky, a musíte v tabulce skrýt všechny řádky před nebo po aktuálním datu (6. 14. 2016). Tento článek poskytuje tři metody.

Skrýt řádky na základě dnešního data pomocí funkce Filtr
Skrýt řádky na základě dnešního data pomocí kódu VBA
Skrýt řádky na základě dnešního data pomocí Kutools pro Excel


Skrýt řádky na základě dnešního data pomocí funkce Filtr

Pomocí funkce Filtr v aplikaci Excel můžete snadno odfiltrovat všechny potřebné řádky a skrýt všechny nežádoucí řádky na základě dnešního data.

1. V tabulce klikněte na rozevírací tlačítko ve sloupci Datum a poté klikněte na Filtry data > Před or Po. Viz snímek obrazovky:

Poznámky:

1). Pokud v horní části sloupce s datem neexistuje žádné rozevírací tlačítko, kliknutím povolte filtr Data > Filtr.
2). Chcete-li skrýt všechny řádky před dnešním datem, vyberte Po volba. Jinak zvolte Před volba. Zde musím skrýt všechny řádky před dnešním datem a ponechat všechny řádky po dnešním datu, takže vyberu možnost Po.

2. V Vlastní automatický filtr dialogové okno, klepněte na tlačítko Výběr data tlačítko vedle pole je za a poté klikněte na Dnes tlačítko v kalendáři. A poté klikněte na OK .

Pak jsou všechny řádky před dnešním datem okamžitě skryty.


Skrýt řádky na základě dnešního data pomocí kódu VBA

Můžete také použít kód VBA ke skrytí řádků na základě dnešního data v aplikaci Excel. Postupujte prosím následovně.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte následující kód VBA do okna.

Kód VBA: Skrýt řádky na základě dnešního data v aplikaci Excel

Private Sub Hidebtn_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Value < Now Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3. zmáčkni F5 klíč, ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte sloupec období a poté klikněte na OK .

Nyní jsou všechny řádky před dnešním datem okamžitě skryty.

Poznámky:

1. <Nyní znamená, že všechny řádky před dnešním datem budou po spuštění kódu skryty. Chcete-li skrýt všechny řádky po dnešním datu, změňte to <Nyní na > Nyní.
2. Pro zobrazení všech skrytých řádků použijte níže uvedený kód VBA.

Kód VBA: odkryjte všechny skryté řádky v aplikaci Excel

Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub

Skrýt řádky na základě dnešního data pomocí Kutools pro Excel

S Vyberte konkrétní buňky užitečnost Kutools pro Excel, můžete snadno vybrat všechny řádky před nebo po dnešním datu a poté je ručně skrýt.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Vyberte seznam dat v tabulce a klikněte na Kutools > vybrat > Vyberte konkrétní buňky

2. V Vyberte konkrétní buňky dialogové okno vyberte Celá řada možnost v Typ výběru a vyberte Méně než or Větší než možnost (zde vyberu možnost Méně než) v první Specifický typ rozevíracího seznamu a do dalšího textového pole zadejte dnešní datum. Nakonec klikněte na OK knoflík. Viz screenshot:

3. Poté se zobrazí dialogové okno s informacemi o tom, kolik řádků bylo vybráno. Klikněte na ikonu OK knoflík. A můžete vidět všechny řádky před výběrem dnešního data, jak je uvedeno níže.

4. Klikněte pravým tlačítkem na výběr a poté klikněte na Skrýt v nabídce pravým tlačítkem skryjete všechny vybrané řádky před dnešním datem.

  Pokud chcete mít bezplatnou zkušební verzi (30-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám 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!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL