Hoe filter je alle datumcellen voor of na vandaag in Excel?
In dit artikel zal ik het hebben over het filteren van alle datumcellen die vóór of na vandaag in het Excel-werkblad zijn.
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
In feite kan de filterfunctie in Excel u helpen om deze taak zo snel mogelijk op te lossen, doe dit als volgt:
1. Selecteer de datumkolom die u wilt filteren en klik op Data > FILTER, zie screenshot:
2. Klik vervolgens op de vervolgkeuzepijl en kies vervolgens Datumfilters > Voor / Na zoals je nodig hebt, zie screenshot:
3. In de Aangepast AutoFilter dialoogvenster, klik Datumkiezer
knop en klik vervolgens op Heden knop in de kalender van de datumkiezer, zie screesnhot:
4. Dan klikken OK om het dialoogvenster te sluiten, en alle datums voor of na vandaag zijn uitgefilterd zoals in het volgende screenshot:
Filter alle datumcellen voor of na vandaag met VBA-code
De volgende VBA-codes kunnen u ook helpen om alle datums voor of na de huidige dag in een werkblad te filteren. Voer de onderstaande stappen uit:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak een van de volgende codes in het Module Venster.
VBA-code: filter alle datumcellen vóór 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 u een van de bovenstaande codes hebt gekopieerd en geplakt, drukt u op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren dat u de datumkolom heeft geselecteerd die u wilt filteren, zie screenshot:
4. En klik vervolgens op OK knop, worden alle datumcellen die vóór of na vandaag zijn, onmiddellijk uitgefilterd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
