Como ocultar colunas em tempo real com base na entrada do usuário no Excel?

Ocultar colunas no Excel pode ser uma tarefa comum, mas você já tentou ocultar colunas automaticamente com base em valores de entrada específicos? Por exemplo, quando eu insiro o texto “AA” em uma célula, a coluna A é ocultada; quando insiro “BB,” as colunas B e C são ocultadas; ao inserir “CC,” as colunas D e E são ocultadas; ao inserir “DD,” a coluna F é ocultada, conforme mostrado na demonstração abaixo. Este artigo fornecerá um código VBA para resolver isso no Excel.

Usar código VBA para ocultar ou exibir colunas em tempo real com base na entrada do usuário

Usar código VBA para ocultar ou exibir determinadas colunas com base na entrada do usuário

Usar código VBA para ocultar ou exibir colunas em tempo real com base na entrada do usuário

Para ocultar colunas específicas em tempo real com base nos valores de entrada, aplique o seguinte código VBA:

1. Na planilha onde deseja ocultar colunas, clique com o botão direito na guia da planilha e, em seguida, clique em "Visualizar Código" no menu de contexto, veja a captura de tela.

2. Na janela aberta "Microsoft Visual Basic for Applications", copie e cole o seguinte código VBA na janela "Planilha (Código)".

Código VBA: Ocultar colunas em tempo real com base na entrada do usuário

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub

3. Em seguida, feche a janela de código. Agora, ao inserir “AA” na célula K1 e pressionar a tecla "Enter", a coluna A será ocultada; ao inserir “BB” e pressionar a tecla "Enter", as colunas B e C serão ocultadas, e assim por diante. Se você inserir qualquer outro valor ou excluir o conteúdo, as colunas ocultas serão exibidas imediatamente, veja a demonstração abaixo:

Usar código VBA para ocultar ou exibir determinadas colunas com base na entrada do usuário

Neste exemplo, vou filtrar um intervalo de dados com base no nome de um produto inserido. Quando insiro “Hoodie”, apenas as informações sobre Hoodie são exibidas e as outras colunas serão ocultadas imediatamente; e quando insiro “Todos”, todas as colunas serão exibidas conforme mostrado na demonstração abaixo:

1. Na planilha onde deseja ocultar colunas, clique com o botão direito na guia da planilha e, em seguida, clique em "Visualizar Código" no menu de contexto, veja a captura de tela:

2. Na janela aberta "Microsoft Visual Basic for Applications", copie e cole o seguinte código VBA na janela "Planilha (Código)".

Código VBA: Ocultar ou exibir colunas para filtrar dados com base na entrada do usuário

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub

3. Em seguida, feche a janela de código. Agora, se você inserir o nome do produto na célula K1, apenas as colunas correspondentes serão exibidas, as outras serão ocultadas; e se você inserir o texto “Todos”, todas as colunas aparecerão conforme mostrado na demonstração abaixo: