Come filtrare tutte le celle di data prima o dopo oggi in Excel?

In questo articolo, parlerò di come filtrare tutte le celle di data precedenti o successive a oggi in un foglio di lavoro di Excel.

Filtra tutte le celle di data prima o dopo oggi con la funzione Filtro

Filtra tutte le celle di data prima o dopo oggi con il codice VBA

Filtra tutte le celle di data prima o dopo oggi con la funzione Filtro

In realtà, la funzione Filtro in Excel può aiutarti a risolvere questo compito rapidamente, procedi come segue:

1. Seleziona la colonna delle date che desideri filtrare, quindi fai clic su Dati > Filtro, vedi screenshot:

2. Quindi fai clic sulla freccia a discesa e scegli Filtri di data > Prima / Dopo secondo necessità, vedi screenshot:

3. Nel Filtro automatico personalizzato finestra di dialogo, fai clic sul pulsante Selettore di data e poi fai clic sul pulsante Oggi nel calendario del selettore di data, vedi screenshot:

4. Quindi fai clic su OK per chiudere la finestra di dialogo e tutte le date prima o dopo oggi verranno filtrate come mostrato nello screenshot seguente:

Filtra tutte le celle di data prima o dopo oggi con il codice VBA

Il seguente codice VBA può anche aiutarti a filtrare tutte le date prima o dopo il giorno corrente in un foglio di lavoro. Procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fai clic su Inserisci > Modulo e incolla uno dei seguenti codici nella finestra Modulo.

Codice VBA: Filtra tutte le celle di data prima di oggi:

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

Codice VBA: Filtra tutte le celle di data dopo oggi:

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. Dopo aver copiato e incollato uno dei codici sopra, premi il tasto F5 per eseguire il codice e apparirà una finestra di avviso per ricordarti di selezionare la colonna delle date che desideri filtrare, vedi screenshot:

4. Quindi fai clic sul pulsante OK e tutte le celle di data prima o dopo oggi verranno filtrate immediatamente.