Note: The other languages of the website are Google-translated. Back to English

Como usar a caixa de seleção para ocultar / mostrar linhas ou colunas no Excel?

Supondo que você precise usar uma caixa de seleção para ocultar ou exibir certas linhas ou colunas. Por exemplo, quando a caixa de seleção Active X Control é marcada, certas linhas ou colunas são exibidas, caso contrário, elas serão ocultadas. Este artigo mostra o método de como usar a caixa de seleção para ocultar / exibir linhas ou colunas no Excel com detalhes.

Use a caixa de seleção para ocultar / mostrar linhas ou colunas com o código VBA


Use a caixa de seleção para ocultar / mostrar linhas ou colunas com o código VBA

O código VBA a seguir pode ajudá-lo a ocultar / mostrar certas linhas ou colunas com a caixa de seleção.

1. Após inserir uma caixa de seleção Active X Control na planilha, clique com o botão direito na caixa de seleção e selecione Ver código no menu do botão direito. Veja a imagem:

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código VBA na janela de código.

Código VBA: use a caixa de seleção para ocultar / mostrar linhas ou colunas

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Notas:

1. No código VBA, [CD]. Coluna inteira significa que as colunas C e D serão ocultadas ou mostradas marcando ou desmarcando a caixa de seleção correspondente.

2. Para ocultar ou exibir certas linhas, como linha 6: 9, altere o [CD]. Coluna inteira para [6: 9]. WholeRow no código VBA.

3. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.

4. Agora, desligue o Modo de design sob a Desenvolvedor guia como a imagem abaixo mostrada:

A partir de agora, quando a caixa de seleção estiver marcada, as linhas ou colunas especificadas serão exibidas. Quando está desmarcado, as linhas ou colunas especificadas são ocultadas.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (26)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Existe uma maneira de usar a caixa de seleção "Usar para ocultar/exibir linhas ou colunas com código VBA" em uma planilha protegida?
Este comentário foi feito pelo moderador no site
@Wayne:

Sub CheckBox1_Click privada ()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Não CheckBox1
Senha do ActiveSheet.Proteger:="xxxx"
End Sub
Este comentário foi feito pelo moderador no site
Parece que este código só irá em uma direção, ou seja, apenas os ocultará e não os exibirá quando clicado. Há uma maneira de corrigir isto?
Este comentário foi feito pelo moderador no site
Temos o mesmo problema, mas descobri que estamos usando controles de formulário e não controles ActiveX. O código funciona perfeitamente no botão ActiveX Control Checkbox. Basta desligar o modo de design para que você possa clicar na caixa de seleção.
Este comentário foi feito pelo moderador no site
Temos o mesmo problema, mas encontramos uma maneira de fazê-lo funcionar. Use a caixa de seleção Controles ActiveX e não na caixa de seleção Controle de formulário. O código funciona perfeitamente com a caixa de seleção ActiveX.


Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub
Este comentário foi feito pelo moderador no site
Olá,

Estou tentando usar este código para ocultar/exibir em uma planilha separada da caixa de seleção. O que eu tenho que adicionar para fazer isso funcionar? Desde já, obrigado.

Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub
Este comentário foi feito pelo moderador no site
Dia bom,
Conforme mostrado no código a seguir, substitua "Sheet4" pelo nome de sua planilha separada.

Sub CheckBox1_Click privada ()
[Sheet4!C:D].EntireColumn.Hidden = Não CheckBox1
End Sub
Este comentário foi feito pelo moderador no site
Oi,

Oi, eu fiz o código, está funcionando bem, mas quando tento fazer o mesmo em mais de uma caixa de seleção na mesma planilha eles funcionam 'juntos', apenas oculta ou reexibe as linhas se todas as três caixas de seleção estiverem marcadas.
Estou tentando fazer com que essas três caixas de seleção funcionem independentes uma da outra. E deixe que os usuários marquem apenas uma caixa por vez.
Este comentário foi feito pelo moderador no site
Oi lou,
Verifique se as caixas de seleção que você criou são caixas de seleção de controles ActiveX. Essas caixas de seleção funcionam de forma independente em sua planilha.
Obrigado pelo seu comentário.
Este comentário foi feito pelo moderador no site
Olá,

Existe uma maneira de ocultar apenas uma linha. Se eu colocar 6:9 todas as linhas ficam ocultas, mas se eu colocar apenas 6, sai como erro. Gostaria de sua ajuda, obrigado!
Este comentário foi feito pelo moderador no site
Oi,
Altere a segunda linha do código para:
[6:6].EntireRow.Hidden = Não CheckBox1.
Obrigado pelo seu comentário.
Este comentário foi feito pelo moderador no site
Tentei reexibir os três primeiros papéis, mas não funcionou. Como posso fazer isso, sei que a pessoa que me enviou esse arquivo quer saber minha habilidade, posso resolver ou não.
Este comentário foi feito pelo moderador no site
Olá maio,
Desculpe não entendi seu ponto.
Este comentário foi feito pelo moderador no site
Funcionou, mas quando salvei o arquivo e reabri ele não funciona. Tentei salvá-lo como uma planilha do Excel Macro e como uma pasta de trabalho regular. O que eu fiz errado? Eu quero dar a outra pessoa para usar e não quero que eles sejam confundidos.
Este comentário foi feito pelo moderador no site
Oi angela,Depois de adicionar o código na pasta de trabalho, clique em Arquivo > Salvar como, escolha onde salvar o arquivo, na caixa de diálogo Salvar como, escolha Pasta de trabalho habilitada para macro do Excel (*.xlsm) no menu suspenso Salvar como tipo e, finalmente, clique em Salvar. Em seguida, envie esta pasta de trabalho habilitada para macro do Excel para outras pessoas.
Este comentário foi feito pelo moderador no site
Muito útil, mas como posso usá-lo para ocultar apenas uma parte da planilha? Quero dizer, por exemplo, células B2:B11, como combinar essas duas funções? Obrigado.
Este comentário foi feito pelo moderador no site
E se eu quisesse usar 3 caixas de seleção diferentes e quisesse que cada uma alternasse ocultando diferentes grupos de linhas? Eu tentei e olhei tudo. Quando tento modificar este código, as caixas de seleção parecem interferir umas nas outras.
Este comentário foi feito pelo moderador no site
E se eu quisesse usar 3 caixas de seleção diferentes e quisesse que cada uma alternasse ocultando diferentes grupos de linhas? Eu tentei e olhei tudo. Quando tento modificar este código, as caixas de seleção parecem interferir umas nas outras.
Este comentário foi feito pelo moderador no site
Esse código oculto, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Precisão de um código para ocultar e reexibir colunas indicadas.

Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub

Obrigado
Este comentário foi feito pelo moderador no site
Olá Welington Mesquita,
Este código VBA pode alcançar:
Quando a caixa de seleção1 está marcada, a coluna C:D é exibida;
Quando está desmarcada, a coluna C:D fica oculta.
O código funciona bem no meu caso. Qual versão do Excel você está usando?
Este comentário foi feito pelo moderador no site
Bom dia!
Espero que todos estejam bem!

Tenho uma situação onde é preciso ocultar/reexibir a coluna usando o Control ActiveX ao selecionar o item.

Exemplo: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Variação (R$) e Variação (%), que pode selecionar individual como colunas intercalando se necessário. Selecione somente a coluna Realizado e Variação, mesmo não permanecendo na sequência.

Desde já, agradeço
Welington
Este comentário foi feito pelo moderador no site
Oi,
Desculpe não entendi o que você quer dizer. Você se importaria de fornecer uma captura de tela de seus dados?
Pode ser necessário anexar uma captura de tela ou um arquivo de amostra para descrever o problema encontrado com mais clareza.
Este comentário foi feito pelo moderador no site
E para esconder vozes não sequências?
Exemplo: A e C

Esta situação seria aplicada de que forma para A e C ?

"Sub CheckBox1_Click privada()
[C:D].EntireColumn.Hidden = Não CheckBox1
Fim Sub"
Este comentário foi feito pelo moderador no site
Oi,
O seguinte código VBA pode lhe fazer um favor. Por favor, tente.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Este comentário foi feito pelo moderador no site
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ists es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Ajudar ....
Este comentário foi feito pelo moderador no site
Olá Rose,
O seguinte código VBA pode ajudar.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL