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: