Hur filtrerar jag alla datumceller före eller efter idag i Excel?
I den här artikeln kommer jag att prata om hur man filtrerar alla datumceller som före eller efter idag i Excel-kalkylblad.
Filtrera alla datumceller före eller efter idag med filterfunktionen
Filtrera alla datumceller före eller efter idag med VBA-kod
Filtrera alla datumceller före eller efter idag med filterfunktionen
Faktum är att filterfunktionen i Excel kan hjälpa dig att lösa denna uppgift så fort du kan, gör så här:
1. Välj den datumkolumn som du vill filtrera och klicka sedan på Data > Filter, se skärmdump:
2. Klicka sedan på rullgardinspilen och välj sedan Datumfilter > Innan / Efter som du behöver, se skärmdump:
3. I Anpassat autofilter dialogrutan, klicka Datumväljare
knappen och klicka sedan på I dag knapp i datumväljarkalendern, se screesnhot:
4. Klicka sedan OK för att stänga dialogrutan och alla datum före eller efter idag har filtrerats ut enligt följande skärmdump:
Filtrera alla datumceller före eller efter idag med VBA-kod
Följande VBA-koder kan också hjälpa dig att filtrera alla datum före eller efter aktuell dag i ett kalkylblad. Gör enligt nedanstående steg:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in en av följande koder i Modulerna Fönster.
VBA-kod: Filtrera alla datumceller före idag:
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-kod: Filtrera alla datumceller efter idag:
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. Efter att ha kopierat och klistrat in en av ovanstående koder, tryck sedan på F5 för att köra den här koden, och en uppmaningsruta dyker upp för att påminna dig om att du valde datumkolumnen som du vill filtrera, se skärmdump:
4. Och klicka sedan på OK knappen, alla datumceller som före eller efter idag kommer att filtreras bort omedelbart.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
