Como ocultar linhas com base na data de hoje em Excel?
Supondo que você tenha uma tabela de frutas em uma planilha como a imagem abaixo mostrada, e você precise ocultar todas as linhas antes ou depois da data atual (6/14/2016) na tabela. Este artigo fornece três métodos para você.
Oculte as linhas com base na data de hoje com a função Filtro
Ocultar linhas com base na data de hoje com o código VBA
Ocultar linhas com base na data de hoje com Kutools for Excel
Oculte as linhas com base na data de hoje com a função Filtro
Com a função Filtro em Excel, você pode filtrar facilmente todas as linhas necessárias e ocultar todas as linhas indesejadas com base na data de hoje.
1. Na tabela, clique no botão suspenso na coluna Data e clique em Filtros de data > Antes or Depois de. Veja a imagem:
Notas:
2. No AutoFiltro Personalizado caixa de diálogo, clique no botão Data Picker 
botão ao lado da caixa é depois e, em seguida, clique no Agora botão no calendário. E então clique no OK botão.
Então, todas as linhas antes da data de hoje são ocultadas imediatamente.
Ocultar linhas com base na data de hoje com o código VBA
Você também pode aplicar código VBA para ocultar linhas com base na data de hoje em Excel. Faça o seguinte.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o seguinte código VBA na janela.
Código VBA: ocultar linhas com base na data de hoje em Excel
Private Sub Hidebtn_Click()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Value < Now Then
xCell.EntireRow.Hidden = True
End If
Next
End Sub3. aperte o F5 chave, no popping up Kutools for Excel caixa de diálogo, selecione a coluna de intervalo de datas e clique no botão OK botão.
Agora, todas as linhas antes da data de hoje são ocultadas imediatamente.
Notas:
Código VBA: exibir todas as linhas ocultas em Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End SubOcultar linhas com base na data de hoje com Kutools for Excel
Com o Selecione células específicas utilidade de Kutools for Excel, você pode selecionar facilmente todas as linhas antes ou depois da data de hoje e, em seguida, ocultá-las manualmente.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione a lista de datas em sua tabela e clique em Kutools > Selecionar > Selecione células específicas.
2. No Selecione células específicas caixa de diálogo, selecione o Linha inteira opção no Tipo de seleção seção e selecione Menor que or Melhor que opção (aqui eu seleciono a opção Menos que) no primeiro Tipo específico lista suspensa e insira a data de hoje na próxima caixa de texto. Finalmente clique no OK botão. Veja a imagem:
3. Em seguida, uma caixa de diálogo aparecerá para lhe dizer quantas linhas foram selecionadas, clique no OK botão. E você pode ver que todas as linhas antes da data de hoje estão selecionadas conforme a imagem mostrada abaixo.
4. Clique com o botão direito na seleção e clique em Esconder no menu do botão direito para ocultar todas as linhas selecionadas antes da data de hoje.
Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Artigos relacionados:
- Como ocultar a caixa de seleção quando a linha está oculta Excel?
- Como ocultar/exibir linhas ou colunas com sinal de mais ou menos Excel?
Melhores ferramentas de produtividade de escritório
Turbine suas planilhas: Experimente eficiência como nunca antes com Kutools for Excel
Kutools for Excel possui mais de 300 recursos, garantindo que o que você precisa está a apenas um clique de distância...
Suporta Escritório/Excel 2007-2021 e mais recentes, incluindo 365 | Disponível em 44 idiomas | Desfrute de um teste gratuito de 30 dias com todos os recursos.
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Ative a edição e leitura com guias em Word, Excel, Power Point, 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!
