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:
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:
3. Az Egyéni automatikus szűrő párbeszédpanelen kattintson a gombra Dátumválasztó
majd kattintson a gombra Ma gombra a dátumválasztó naptárban, lásd a képernyőképet:
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:
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:
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
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...
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!
