Hvordan filtreres alle dataceller før eller efter i dag i Excel?
I denne artikel vil jeg tale om, hvordan man filtrerer alle dataceller, der før eller efter i dag i Excel-regneark.
Filtrer alle dataceller før eller efter i dag med filterfunktion
Filtrer alle dataceller før eller efter i dag med VBA-kode
Filtrer alle dataceller før eller efter i dag med filterfunktion
Faktisk kan filterfunktionen i Excel hjælpe dig med at løse denne opgave så hurtigt som muligt, skal du gøre som dette:
1. Vælg den datakolonne, du vil filtrere, og klik derefter på data > filtre, se skærmbillede:
2. Klik derefter på rullemenuen, og vælg derefter Datofiltre > Før / Efter som du har brug for, se skærmbillede:
3. I Brugerdefineret autofilter dialogboksen, klik Datovælger
knappen, og klik derefter på I dag knap i datovælgerkalenderen, se screesnhot:
4. Klik derefter på OK for at lukke dialogen, og alle datoer før eller efter i dag er blevet filtreret ud som følgende skærmbillede vist:
Filtrer alle dataceller før eller efter i dag med VBA-kode
Følgende VBA-koder kan også hjælpe dig med at filtrere alle datoer før eller efter den aktuelle dag i et regneark. Benyt nedenstående trin:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt en af følgende koder i Moduler Vindue.
VBA-kode: Filtrer alle dataceller inden i dag:
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-kode: Filtrer alle datoceller efter i dag:
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. Når du har kopieret og indsat en af ovenstående koder, skal du trykke på F5 tasten for at køre denne kode, og en promptboks vil poppe ud for at minde dig om, at du valgte den datokolonne, du vil filtrere, se skærmbillede:
4. Og klik derefter på OK knappen, alle datoceller, som før eller efter i dag vil blive filtreret fra med det samme.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
