Como filtrar todas as células de data antes ou depois de hoje no Excel?

Neste artigo, vou falar sobre como filtrar todas as células de data que são anteriores ou posteriores a hoje na planilha do Excel.

Filtrar todas as células de data antes ou depois de hoje com a função Filtro

Filtrar todas as células de data antes ou depois de hoje com código VBA

Filtrar todas as células de data antes ou depois de hoje com a função Filtro

Na verdade, o recurso Filtro no Excel pode ajudá-lo a resolver essa tarefa rapidamente. Por favor, siga estas instruções:

1. Selecione a coluna de datas que deseja filtrar e clique em Dados > Filtro, veja a captura de tela:

2. Em seguida, clique na seta para baixo e escolha Filtros de Data > Antes / Depois, conforme necessário, veja a captura de tela:

3. Na Filtro Automático Personalizado caixa de diálogo, clique no botão Selecionador de Data e depois clique no botão Hoje no calendário do selecionador de datas, veja a captura de tela:

4. Em seguida, clique em OK para fechar a caixa de diálogo, e todas as datas antes ou depois de hoje serão filtradas conforme mostrado na seguinte captura de tela:

Filtrar todas as células de data antes ou depois de hoje com código VBA

Os seguintes códigos VBA também podem ajudá-lo a filtrar todas as datas antes ou depois do dia atual em uma planilha. Siga os passos abaixo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole um dos seguintes códigos na Janela do Módulo.

Código VBA: Filtrar todas as células de data antes de hoje:

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

Código VBA: Filtrar todas as células de data depois de hoje:

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. Após copiar e colar um dos códigos acima, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de selecionar a coluna de datas que deseja filtrar, veja a captura de tela:

4. E então clique no botão OK, todas as células de data que são antes ou depois de hoje serão filtradas imediatamente.