Suponha que eu tenha um intervalo de dados em uma planilha, agora, quero ocultar as colunas com base em uma data específica automaticamente. Por exemplo, quando insiro a data 5/16/2016 em uma célula, desejo ocultar as colunas cuja data é inferior a esta data específica imediatamente, conforme mostrado a seguir na captura de tela. Este artigo apresentará alguns truques para resolvê-lo.
Oculte colunas automaticamente com base em uma data específica com o código VBA
Oculte colunas com base em uma data específica com o Kutools para Excel
Oculte colunas automaticamente com base em uma data específica com o código VBAPara concluir esta tarefa, o seguinte código VBA pode ajudá-lo, faça o seguinte:
1. Selecione a guia da planilha que deseja ocultar por data e clique com o botão direito para escolher Ver código do menu de contexto para ir para o Microsoft Visual Basic para Aplicações janela e, em seguida, 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 a data na célula K4, as colunas cuja data for inferior a esta data específica serão ocultadas automaticamente.
Importante: No código acima, K4 é a célula da data específica na qual você deseja ocultar as colunas, A1: I1 é que as células da linha contêm a data que você usou.
Oculte colunas com base em uma data específica com o Kutools para ExcelSe você não está familiarizado com o código, aqui está uma ferramenta útil -Kutools for Excel, Com o seu Selecione células específicas utilitário, você pode terminar este trabalho com facilidade.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Selecione os cabeçalhos de data e clique em Kutools > Selecionar > Selecione células específicas, veja a captura de tela:
2. No estalou para fora Selecione células específicas caixa de diálogo, selecione Coluna inteira de Tipo de seleçãoe escolha os critérios, como Menor que de Tipo específico lista suspensa e insira a data na próxima caixa de texto na qual deseja ocultar as colunas, veja a captura de tela:
3. E, em seguida, clique em Ok botão, as colunas específicas cuja data é inferior a 5/16/2016 são selecionadas de uma vez, consulte a captura de tela:
4. Em seguida, clique com o botão direito em qualquer cabeçalho de coluna selecionado e selecione Esconder para ocultar essas colunas selecionadas conforme necessário. Veja a imagem:
Clique em Baixar grátis Kutools para Excel agora!
