Como ocultar linhas com base na data de hoje no 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
Oculte linhas com base na data de hoje com o Kutools para Excel
Oculte as linhas com base na data de hoje com a função Filtro
Com a função Filtro do 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 o código VBA para ocultar linhas com base na data de hoje no 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 no 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 Sub
3. 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: reexibir todas as linhas ocultas no Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub
Oculte linhas com base na data de hoje com o Kutools para 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 um teste gratuito (30 dias) 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 no Excel?
- Como ocultar / mostrar linhas ou colunas com sinal de mais ou menos no Excel?
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!