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 antes ou depois de hoje na planilha do Excel.
Filtre todas as células de data antes ou depois de hoje com a função Filtro
Filtre todas as células de data antes ou depois de hoje com o código VBA
Filtre todas as células de data antes ou depois de hoje com a função Filtro
Na verdade, o recurso Filtro do Excel pode ajudá-lo a resolver essa tarefa o mais rápido possível, faça o seguinte:
1. Selecione a coluna de data que deseja filtrar e clique em Data > filtros, veja a captura de tela:
2. Em seguida, clique na seta suspensa e escolha Filtros de data > Antes / Depois de conforme necessário, veja a captura de tela:
3. No AutoFiltro Personalizado caixa de diálogo, clique em Data Picker botão e, em seguida, clique em Agora botão no calendário do selecionador de data, veja screesnhot:
4. Então clique OK para fechar a caixa de diálogo, e todas as datas antes ou depois de hoje foram filtradas como mostrado a seguir:
Filtre todas as células de data antes ou depois de hoje com o código VBA
Os códigos VBA a seguir também podem ajudá-lo a filtrar todas as datas antes ou depois do dia atual em uma planilha. Siga as etapas abaixo:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole um dos seguintes códigos no Módulo Janela.
Código VBA: filtre 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: filtre 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. Depois de copiar e colar um dos códigos acima, pressione F5 para executar este código, e uma caixa de prompt aparecerá para lembrar que você selecionou a coluna de data que deseja filtrar, veja a captura de tela:
4. E, em seguida, clique em OK , todas as células de datas anteriores ou posteriores a hoje serão filtradas imediatamente.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!