Come filtrare tutte le celle della data prima o dopo oggi in Excel?
In questo articolo, parlerò di come filtrare tutte le celle della data prima o dopo oggi nel foglio di lavoro di Excel.
Filtra tutte le celle della data prima o dopo oggi con la funzione Filtro
Filtra tutte le celle della data prima o dopo oggi con il codice VBA
Filtra tutte le celle della data prima o dopo oggi con la funzione Filtro
In effetti, la funzione Filtro in Excel può aiutarti a risolvere questa attività il più rapidamente possibile, per favore fai come segue:
1. Selezionare la colonna della data che si desidera filtrare e quindi fare clic su Dati > Filtro, vedi screenshot:
2. Quindi fare clic sulla freccia del menu a discesa e quindi scegliere Filtri data > Prima / Dopo shavasana, sedersi in silenzio; saluti; come ti serve, vedi screenshot:
3. Nel Filtro automatico personalizzato finestra di dialogo, fare clic Date picker
pulsante, quindi fare clic Oggi pulsante nel calendario di selezione della data, vedere screesnhot:
4. Quindi fare clic OK per chiudere la finestra di dialogo e tutte le date precedenti o successive a oggi sono state filtrate come mostrato nella seguente schermata:
Filtra tutte le celle della data prima o dopo oggi con il codice VBA
I seguenti codici VBA possono anche aiutarti a filtrare tutte le date prima o dopo il giorno corrente in un foglio di lavoro. Si prega di fare con i passaggi seguenti:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla uno dei seguenti codici nel file Moduli Finestra.
Codice VBA: filtra tutte le celle della 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 della 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, quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di aver selezionato la colonna della data che desideri filtrare, vedi screenshot:
4. E poi clicca OK pulsante, tutte le celle della data che prima o dopo oggi verranno filtrate immediatamente.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
