Ugrás a tartalomra

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:

1). Ha a dátum oszlop tetején nem található legördülő gomb, akkor kattintson a gombra a szűrő engedélyezéséhez dátum > Szűrő.
2). Ha a mai dátum előtt el szeretné rejteni az összes sort, kérjük, válassza a ikont Után választási lehetőség. Ellenkező esetben válassza a Előtt választási lehetőség. Itt el kell rejtenem az összes sort a mai dátum előtt, és az összes sort meg kell tartanom a mai dátum után, ezért választom az Után opciót.

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:

1. <Most azt jelenti, hogy a mai dátum előtti összes sor el lesz rejtve a kód futtatása után. Ha a mai dátum után el szeretné rejteni az összes sort, kérjük, változtasson <Most nak nek > Most.
2. Az összes rejtett sor megjelenítéséhez kérjük, alkalmazza az alábbi VBA kódot.

VBA-kód: az összes rejtett sor elrejtése az Excelben

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.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

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.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations