Como ocultar ou exibir linhas ou colunas específicas ao clicar duas vezes em uma célula no Excel?

Normalmente, as linhas e colunas podem ser ocultadas ou exibidas clicando com o botão direito e selecionando a opção Ocultar ou Reexibir no menu de contexto. Neste artigo, vamos falar sobre como ocultar ou exibir rapidamente linhas ou colunas específicas ao clicar duas vezes em uma célula no Excel.

Ocultar ou exibir linhas ou colunas específicas ao clicar duas vezes em uma célula com código VBA

Ocultar ou exibir linhas ou colunas específicas ao clicar duas vezes em uma célula com código VBA

Os seguintes códigos VBA podem ajudá-lo a ocultar ou reexibir rapidamente linhas ou colunas específicas em uma planilha ao clicar duas vezes em uma determinada célula. Por favor, siga os passos abaixo.

1. Abra a planilha onde deseja ocultar linhas ou colunas. Clique com o botão direito na aba da planilha e depois clique em Visualizar Código no menu de contexto.

2. Na janela aberta do Microsoft Visual Basic for Applications, copie um dos seguintes códigos VBA que você precisa para a janela de Código.

VBA: Ocultar/reexibir linhas especificadas ao clicar duas vezes nas células da planilha:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: Ocultar/reexibir colunas especificadas ao clicar duas vezes nas células da planilha:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

Observação: No código, A1:A4, 10:13 e D:E indicam que, ao clicar duas vezes em qualquer célula do intervalo A1:A4, a linha 10:13 ou a coluna D:E será automaticamente ocultada.

3. Pressione as teclas Alt + F11 para fechar a janela do Microsoft Visual Basic for Applications.

A partir de agora, ao clicar duas vezes em qualquer célula no intervalo A1:A4, a linha 10:13 ou a coluna D:E será automaticamente ocultada. E ao clicar novamente na célula, todas as linhas ou colunas ocultas serão exibidas imediatamente.

Artigos Relacionados:

• Como clicar ou clicar duas vezes em uma célula para abrir um formulário de usuário específico no Excel?
• Como adicionar uma marca de seleção em uma célula com um duplo clique no Excel?
• Como adicionar/entrar automaticamente a data/hora atual em uma célula com um duplo clique no Excel?
• Como clicar duas vezes em uma célula e adicionar 1 ao valor dessa célula no Excel?
• Como fazer aparecer um calendário ao clicar em uma célula específica no Excel?