Hoe alle datumcellen voor of na vandaag in Excel filteren?

In dit artikel zal ik bespreken hoe je alle datumcellen kunt filteren die voor of na vandaag zijn in een Excel-werkblad.

Filter alle datumcellen voor of na vandaag met de Filterfunctie

Filter alle datumcellen voor of na vandaag met VBA-code

Filter alle datumcellen voor of na vandaag met de Filterfunctie

Eigenlijk kan de Filterfunctie in Excel je helpen om deze taak zo snel mogelijk op te lossen, doe het als volgt:

1. Selecteer de datumkolom die je wilt filteren en klik vervolgens op Gegevens > Filter, zie screenshot:

2. Klik vervolgens op de vervolgkeuzepijl en kies Datumfilters > Voor / Na, afhankelijk van wat je nodig hebt, zie screenshot:

3. In de Aangepast AutoFilter dialoogvenster, klik op Datumkiezer knop, en klik vervolgens op de Vandaag knop in de datumkiezercalender, zie screenshot:

4. Klik vervolgens op OK om het dialoogvenster te sluiten, en alle datums voor of na vandaag zijn gefilterd zoals in de volgende screenshot te zien is:

Filter alle datumcellen voor of na vandaag met VBA-code

De volgende VBA-codes kunnen je ook helpen om alle datums voor of na de huidige dag in een werkblad te filteren. Volg onderstaande stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak een van de volgende codes in het Modulevenster.

VBA-code: Filter alle datumcellen voor vandaag:

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-code: Filter alle datumcellen na vandaag:

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. Nadat je een van de bovenstaande codes hebt gekopieerd en geplakt, druk dan op de F5-toets om deze code uit te voeren, en er verschijnt een promptvenster om je eraan te herinneren de datumkolom te selecteren die je wilt filteren, zie screenshot:

4. Klik vervolgens op de knop OK, alle datumcellen voor of na vandaag worden onmiddellijk gefilterd.