Hogyan lehet elrejteni a sorokat a mai dátum alapján az Excelben?

Tételezzük fel, hogy egy munkalapon van egy gyümölcstábla, amint az alábbi képernyőképen látható, és el kell rejtenie az összes sort az aktuális dátum (6.) Előtt vagy után. Ez a cikk három módszert ismertet az Ön számára.

Sorok elrejtése a mai dátum alapján a Szűrő funkcióval
Sorok elrejtése a mai dátum alapján VBA kóddal
A Kutools for Excel segítségével elrejtheti a sorokat a mai dátum alapján

Sorok elrejtése a mai dátum alapján a Szűrő funkcióval

Az Excel szűrő funkciójával könnyedén kiszűrheti az összes szükséges sort, és elrejtheti az összes nem kívánt sort a mai dátum alapján.

1. A táblázatban kattintson a Dátum oszlop legördülő menüjére, majd kattintson a gombra Dátumszűrők > Előtt or Után. Lásd a képernyőképet:

Megjegyzések:

2. Ban,-ben Egyéni automatikus szűrő párbeszédpanelen kattintson a Dátumválasztó gombot az utána következő mező mellett, majd kattintson a gombra Ma gombra a naptárban. Ezután kattintson a gombra OK gombot.

Ezután a mai dátum előtti összes sort azonnal elrejti.

Sorok elrejtése a mai dátum alapján VBA kóddal

Alkalmazhat VBA-kódot a sorok elrejtésére a mai dátum alapján az Excel-ben. Kérjük, tegye a következőket.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be a következő VBA kódot az ablakba.

VBA-kód: Sorok elrejtése a mai dátum alapján az Excelben

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. megnyomni a F5 gombot, a felbukkanó ablakban Kutools az Excel számára párbeszédpanelen válassza ki a dátumtartomány oszlopot, majd kattintson a gombra OK gombot.

Most a mai dátum előtti összes sort azonnal elrejti.

Megjegyzések:

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

A Kutools for Excel segítségével elrejtheti a sorokat a mai dátum alapján

Aktivitáskövető Válassza a Specifikus cellák lehetőséget hasznossága Kutools az Excel számára, könnyedén kiválaszthatja az összes sort a mai dátum előtt vagy után, majd manuálisan elrejtheti őket.

1. Válassza ki a dátumlistát a táblázatból, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. 

2. Ban,-ben Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza a ikont Teljes sor lehetőség a Kiválasztás típusa és válassza a lehetőséget Kevesebb mint or Nagyobb, mint opciót (itt a Kevesebb mint opciót választom) az elsőben Konkrét típus legördülő listából, majd írja be a mai dátumot a következő szövegmezőbe. Végül kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Ezután megjelenik egy párbeszédpanel, amely megmondja, hány sort választott ki, kattintson a gombra OK gomb. És láthatja az összes sort a mai dátum kiválasztása előtt, az alábbi képernyőképen.

4. Kattintson jobb gombbal a kijelölésre, majd kattintson a gombra elrejt a jobb egérgombbal kattintva elrejtheti az összes kijelölt sort a mai dátum előtt.

Kapcsolódó cikkek:

• Hogyan lehet elrejteni a jelölőnégyzetet, ha a sor el van rejtve az Excelben?
• Hogyan lehet elrejteni / elrejteni a sorokat vagy oszlopokat plusz vagy mínusz előjellel az Excelben?