Como ocultar ou reexibir linhas ou colunas especificadas 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, estamos falando sobre ocultar ou exibir rapidamente linhas ou colunas especificadas clicando duas vezes em uma célula no Excel.
Oculta ou exibe as linhas ou colunas especificadas ao clicar duas vezes em uma célula com código VBA
Oculta ou exibe as linhas ou colunas especificadas ao clicar duas vezes em uma célula com código VBA
Os códigos VBA a seguir podem ajudá-lo a ocultar ou exibir rapidamente linhas ou colunas especificadas em uma planilha clicando duas vezes em uma determinada célula. Faça o seguinte.
1. Abra a planilha na qual deseja ocultar linhas ou colunas. Clique com o botão direito na guia da planilha e clique em Ver código no menu de contexto.
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie o seguinte código VBA para a janela de código.
VBA: oculte / mostre as linhas especificadas clicando duas vezes nas células na 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: oculte / mostre as colunas especificadas clicando duas vezes nas células na 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
Note: 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 coluna D: E será ocultada automaticamente.
3. aperte o outro + F11 chaves para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao clicar duas vezes em qualquer célula no intervalo A1: A4, a linha 10:13 ou coluna D: E será ocultada automaticamente. E clique duas vezes na célula novamente para exibir todas as linhas ou colunas ocultas imediatamente.
Artigos relacionados:
- Como clicar ou clicar duas vezes na célula para abrir um formulário de usuário especificado no Excel?
- Como adicionar marca de seleção em uma célula com duplo clique no Excel?
- Como adicionar / inserir automaticamente a data / hora atual em uma célula clicando duas vezes no Excel?
- Como clicar duas vezes em uma célula e adicionar 1 a esse valor de célula no Excel?
- Como abrir um calendário ao clicar em uma célula específica no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!