Jak filtrovat všechny datové buňky před nebo po dnešku v aplikaci Excel?
V tomto článku budu hovořit o tom, jak filtrovat všechny datové buňky, které před nebo po dnešku v listu aplikace Excel.
Filtrujte všechny datové buňky před nebo po dnešku pomocí funkce Filtr
Filtrujte všechny datové buňky před nebo po dnešku pomocí kódu VBA
Filtrujte všechny datové buňky před nebo po dnešku pomocí funkce Filtr
Funkce Filtr v aplikaci Excel vám může pomoci vyřešit tento úkol co nejrychleji, udělejte to takto:
1. Vyberte sloupec data, který chcete filtrovat, a klikněte na Data > Filtr, viz screenshot:
2. Poté klikněte na rozevírací šipku a poté vyberte Filtry data > Před / Po jak potřebujete, viz screenshot:
3. V Vlastní automatický filtr , klepněte na tlačítko OK Výběr data
a klepněte na tlačítko Dnes tlačítko v kalendáři pro výběr data, viz screesnhot:
4. Pak klikněte na tlačítko OK zavřete dialogové okno a všechna data před nebo po dnešku byla odfiltrována, jak ukazuje následující snímek obrazovky:
Filtrujte všechny datové buňky před nebo po dnešku pomocí kódu VBA
Následující kódy VBA vám také pomohou filtrovat všechna data před nebo po aktuálním dni v listu. Postupujte podle následujících kroků:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte jeden z následujících kódů do Modul Okno.
Kód VBA: Filtrování všech datových buněk před dneškem:
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
Kód VBA: Filtrujte všechny buňky data po dnešku:
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 zkopírování a vložení jednoho z výše uvedených kódů stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene vybraný sloupec data, který chcete filtrovat, viz snímek obrazovky:
4. A pak klikněte na tlačítko OK tlačítko, všechny buňky data, které před nebo po dnešku budou okamžitě odfiltrovány.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
