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.