Jak filtrować wszystkie komórki daty przed lub po dniu dzisiejszym w programie Excel?
W tym artykule omówię, jak filtrować wszystkie komórki dat, które przed lub po dniu dzisiejszym w arkuszu programu Excel.
Filtruj wszystkie komórki dat przed lub po dniu dzisiejszym za pomocą funkcji Filtruj
Filtruj wszystkie komórki daty przed lub po dniu dzisiejszym za pomocą kodu VBA
Filtruj wszystkie komórki dat przed lub po dniu dzisiejszym za pomocą funkcji Filtruj
W rzeczywistości funkcja Filtruj w programie Excel może pomóc w rozwiązaniu tego zadania tak szybko, jak to możliwe, wykonaj następujące czynności:
1. Wybierz kolumnę daty, którą chcesz filtrować, a następnie kliknij Dane > FILTRYzobacz zrzut ekranu:
2. Następnie kliknij strzałkę w dół i wybierz Filtry dat > Przed / Po jak potrzebujesz, zobacz zrzut ekranu:
3, w Niestandardowy Autofiltr okno dialogowe, kliknij Selektor dat przycisk, a następnie kliknij Dziś przycisk w kalendarzu selektora dat, zobacz zrzut ekranu:
4. Następnie kliknij OK aby zamknąć okno dialogowe, a wszystkie daty przed lub po dniu dzisiejszym zostały odfiltrowane, jak pokazano na poniższym zrzucie ekranu:
Filtruj wszystkie komórki daty przed lub po dniu dzisiejszym za pomocą kodu VBA
Poniższe kody VBA mogą również pomóc w filtrowaniu wszystkich dat przed lub po bieżącym dniu w arkuszu. Wykonaj poniższe czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej jeden z poniższych kodów w Moduł Okno.
Kod VBA: filtruj wszystkie komórki daty przed dzisiejszym dniem:
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
Kod VBA: Filtruj wszystkie komórki daty po dniu dzisiejszym:
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. Po skopiowaniu i wklejeniu jednego z powyższych kodów należy nacisnąć F5 klawisz, aby uruchomić ten kod, a pojawi się okno z przypomnieniem o wybraniu kolumny daty, którą chcesz filtrować, zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk, wszystkie komórki daty przed lub po dniu dzisiejszym zostaną natychmiast odfiltrowane.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!