Kako filtrirati vse datumske celice pred ali po današnjem dnevu v Excelu?

V tem članku bom govoril o tem, kako filtrirati vse datumske celice, ki so bile pred ali po današnjem dnevu v Excelovem delovnem listu.

S funkcijo filtriranja filtrirajte vse datumske celice pred ali po današnjem dnevu

Filtrirajte vse datumske celice pred ali po današnjem dnevu s kodo VBA

S funkcijo filtriranja filtrirajte vse datumske celice pred ali po današnjem dnevu

Dejansko vam lahko funkcija filtriranja v Excelu pomaga, da to nalogo rešite čim prej, naredite tako:

1. Izberite stolpec z datumi, ki ga želite filtrirati, in kliknite datum > filter, glej posnetek zaslona:

2. Nato kliknite puščico spustnega menija in nato izberite Datumski filtri > pred / po po potrebi si oglejte posnetek zaslona:

3. v Samodejni filter po meri pogovorno okno, kliknite Izbirnik datuma gumb in nato kliknite danes v koledarju izbirnika datumov, glejte screesnhot:

4. Nato kliknite OK za zapiranje pogovornega okna in vsi datumi pred ali po današnjem dnevu so bili filtrirani, kot je prikazano na sliki spodaj:

Filtrirajte vse datumske celice pred ali po današnjem dnevu s kodo VBA

Naslednje kode VBA vam lahko pomagajo tudi filtrirati vse datume pred ali po tekočem dnevu na delovnem listu. Naredite spodnje korake:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite eno od naslednjih kod v Moduli Okno.

Koda VBA: Filtriraj vse datumske celice pred današnjim dnem:

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

Koda VBA: Filtrirajte vse datumske celice po današnjem dnevu:

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. Ko kopirate in prilepite eno od zgornjih kod, pritisnite F5 tipko za zagon te kode in pojavilo se bo okno s pozivom, ki vas bo opomnilo, da ste izbrali datumski stolpec, ki ga želite filtrirati, glejte posnetek zaslona:

4. In nato kliknite OK gumb, bodo vse datumske celice pred ali po današnjem dnevu takoj izločene.