Cum se filtrează toate celulele de dată înainte sau după astăzi în Excel?
În acest articol, voi vorbi despre cum să filtrați toate celulele de date care înainte sau după astăzi în foaia de lucru Excel.
Filtrați toate celulele de dată înainte sau după astăzi cu funcția Filtru
Filtrați toate celulele de dată înainte sau după astăzi cu cod VBA
Filtrați toate celulele de dată înainte sau după astăzi cu funcția Filtru
De fapt, funcția Filtrare din Excel vă poate ajuta să rezolvați această sarcină cât de repede puteți, vă rugăm să faceți acest lucru:
1. Selectați coloana de date pe care doriți să o filtrați, apoi faceți clic pe Date > Filtru, vezi captura de ecran:
2. Apoi faceți clic pe săgeata verticală, apoi alegeți Filtre de date > Inainte de / După după cum aveți nevoie, vedeți captura de ecran:
3. În Filtru automat personalizat casetă de dialog, faceți clic pe Data Picker
, apoi faceți clic pe Astăzi butonul din calendarul selectorului de date, vezi screesnhot:
4. Apoi apasa OK pentru a închide caseta de dialog și toate datele înainte sau după astăzi au fost filtrate după cum se arată în următoarea captură de ecran:
Filtrați toate celulele de dată înainte sau după astăzi cu cod VBA
Următoarele coduri VBA vă pot ajuta, de asemenea, să filtrați toate datele înainte sau după ziua curentă într-o foaie de lucru. Vă rugăm să faceți pașii de mai jos:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Module, și lipiți unul dintre următoarele coduri în Module Fereastră.
Cod VBA: filtrați toate celulele date înainte de astăzi:
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
Cod VBA: filtrați toate celulele de dată după astăzi:
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. După ce ați copiat și lipit unul dintre codurile de mai sus, apoi apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de solicitare pentru a vă reaminti că ați selectat coloana de date pe care doriți să o filtrați, vedeți captura de ecran:
4. Apoi faceți clic pe OK buton, toate celulele de dată care înainte sau după astăzi vor fi filtrate imediat.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
