Como ocultar colunas automaticamente com base na data no Excel?
Suponha que eu tenha um intervalo de dados em uma planilha e agora quero ocultar as colunas com base em uma data específica automaticamente. Por exemplo, quando insiro a data 16/05/2016 em uma célula, quero ocultar imediatamente as colunas cuja data seja menor que essa data específica, conforme mostrado na captura de tela a seguir. Este artigo apresentará alguns truques para resolver isso.
Ocultar colunas automaticamente com base em uma data específica com código VBA
Ocultar colunas com base em uma data específica com Kutools para Excel
Ocultar colunas automaticamente com base em uma data específica com código VBA
Para concluir esta tarefa, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:
1. Selecione a aba da planilha que deseja ocultar por data e clique com o botão direito para escolher Visualizar Código no menu de contexto para ir à janela Microsoft Visual Basic for Applications, e depois copie e cole o seguinte código no Módulo:
Código VBA: Ocultar colunas automaticamente com base em uma data específica:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Em seguida, salve e feche este código, volte para a planilha, e agora, quando você inserir uma data na célula K4, as colunas com datas anteriores à data especificada serão ocultadas automaticamente.
Observação: No código acima, K4 é a célula de data específica na qual você deseja ocultar as colunas, A1:I1 são as células da linha que contêm a data que você usou.
Ocultar colunas com base em uma data específica com Kutools para Excel
Se você não está familiarizado com o código, aqui está uma ferramenta prática - Kutools para Excel, com sua utilidade Selecionar Células Específicas, você pode concluir este trabalho com facilidade.
Após instalar o Kutools para Excel, faça o seguinte:
1. Selecione os cabeçalhos de data e clique em Kutools > Selecionar > Selecionar Células Específicas, veja a captura de tela:
2. Na caixa de diálogo Selecionar Células Específicas que apareceu, selecione Coluna Inteira no tipo de seleção e, em seguida, escolha os critérios, como Menor que na lista suspensa Especificar tipo, e insira a data na caixa de texto ao lado da qual deseja ocultar as colunas, veja a captura de tela:
3. E então clique no botão Ok, as colunas específicas cuja data é menor que 16/05/2016 são selecionadas imediatamente, veja a captura de tela:
4. Em seguida, clique com o botão direito em qualquer cabeçalho de coluna selecionado e selecione Ocultar para ocultar essas colunas selecionadas conforme necessário. Veja a captura de tela:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins