Ugrás a tartalomra

Hogyan szűrhető az összes dátumcella a mai előtt vagy után az Excelben?

Ebben a cikkben arról fogok beszélni, hogy miként szűrhetők le az összes dátumcellák, amelyek a mai nap előtt vagy után az Excel munkalapon találhatók.

A Szűrés funkcióval szűrje ki az összes dátum cellát a mai előtt vagy után

Szűrje az összes dátum cellát a mai előtt vagy után VBA kóddal


A Szűrés funkcióval szűrje ki az összes dátum cellát a mai előtt vagy után

Valójában az Excel szűrő funkciója segít a feladat mielőbbi megoldásában, kérjük, tegye a következőket:

1. Válassza ki a szűrni kívánt dátum oszlopot, majd kattintson a gombra dátum > Szűrő, lásd a képernyőképet:

doc szűrő defore ma 1

2. Ezután kattintson a legördülő nyílra, majd válassza a lehetőséget Dátumszűrők > Előtt / Után amire szüksége van, lásd a képernyőképet:

doc szűrő defore ma 2

3. Az Egyéni automatikus szűrő párbeszédpanelen kattintson a gombra Dátumválasztódoc szűrő defore ma 3 majd kattintson a gombra Ma gombra a dátumválasztó naptárban, lásd a képernyőképet:

doc szűrő defore ma 4

4. Ezután kattintson OK a párbeszédpanel bezárásához, és a mai nap előtti vagy utáni dátumokat kiszűrjük a következő képernyőkép szerint:

doc szűrő defore ma 5


Szűrje az összes dátum cellát a mai előtt vagy után VBA kóddal

A következő VBA-kódok szintén segíthetnek az összes dátum kiszűrésében az aktuális nap előtt vagy után. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódok egyikét a Modulok Ablak.

VBA kód: A mai dátum összes cellájának szűrése:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

VBA-kód: Az összes dátumcella szűrése a mai nap után:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3. A fenti kódok egyikének másolása és beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely emlékezteti Önt a dátum oszlop kiválasztására, amelyet szűrni szeretne, lásd a képernyőképet:

doc szűrő defore ma 6

4. Kattintson a gombra OK gomb, az összes dátumcella, amely a mai előtt vagy után azonnal kiszűrésre kerül.

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

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

kte lap 201905


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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I HAVE DATA in a following format
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10



and I want to filter it for TODAY - LAST 7 Days Excluding Today , That is if today is 12 Dec I want filter for 12 Dec and December[ 11,10,9,8,7,6,5] .
How to create custom filter for this in MS Excel
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations