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:

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:

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.

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.

Související články:

• Jak skrýt zaškrtávací políčko, když je řádek skrytý v aplikaci Excel?
• Jak skrýt / odkrýt řádky nebo sloupce se znaménkem plus nebo minus v aplikaci Excel?