question

Existe um codigo para uma macro do VBA que vai deixar-me a ocultar uma linha se uma celula especifica na linha e igual a 0?

Estou tentando criar uma macro que me permitirá ocultar uma linha dentro de uma planilha do Excel 2010, se uma célula específica na linha é igual a zero. Já tentei vários exemplos encontrados na web e não consigo nada para trabalhar. Este é apenas meu segundo projeto usando VBA, por isso gostaria de contar um pouco de orientação.

Obrigado!
resposta Resposta
Você afirma que 'se uma célula específica na linha igual a 0', o que implica que você está avaliando uma coluna específica. Seria inferir, também, que você gostaria de avaliar essa coluna em todas as linhas.

Se assim for, você pode usar o manipulador de eventos tipo 'toggle'. Este exemplo assume que a coluna a contém a célula' particular'. Se sua coluna não é a coluna A, altere as "A" cinco referências no código para a letra da coluna, ou seja, "C", "M", etc.

Copie o código, pela (s) conforme necessário, para a área de transferência:



Private void Worksheet_BeforeDoubleClick(ByVal Target As Range, _

Cancel As Boolean)

Dim LastRow I

LastRow = Range ("A" & Rows. Count).End(xlUp).Linha

Para i = 1 To LastRow

Se as células (i, "A").EntireRow.Hidden = True Then

Cells.EntireRow.Hidden = False

Exit Sub

End If

Próximo

Para i = 1 To LastRow

Se as células (i, "A").Valor = 0 E não IsEmpty (células (i, "A")) Then

Células (i, "A").EntireRow.Hidden = True

End If

Próximo

End Sub

Selecione a planilha que contém os dados para avaliar e clique com o botão direito na guia da planilha.

Selecione 'Ver código'.

Cole o código do manipulador de eventos para o módulo de folha edição área à direita.

Feche o VBE e retornar à planilha.

Dê um duplo clique em qualquer célula para ocultar as linhas que contêm um '0' na coluna especificada. Dê um duplo clique em qualquer célula novamente para mostrar todas as linhas.

Nota: este código trata as células vazias como não contendo um '0'.

Comentários Comentários

Guest
Elisa na 5 Mai 2023
5
Melhor comentário

Claro, eu posso te ajudar com isso! Para criar uma macro do VBA que ocultará uma linha se uma célula específica na linha for igual a zero, você pode seguir esses passos:

1. Abra a planilha do Excel onde você quer inserir a macro.
2. Pressione "Alt + F11" para abrir o Editor do VBA.
3. No Editor do VBA, clique duas vezes na planilha onde você quer que a macro seja aplicada.
4. Cole o seguinte código na janela de código que abrir:

Sub OcultarLinhaSeIgualZero()
If Range("A1").Value = 0 Then
Rows(ActiveCell.Row).EntireRow.Hidden = True
End If
End Sub

5. Modifique "A1" para a célula específica que você quer que seja zero para ocultar a linha.

Ao executar essa macro, a linha será ocultada se a célula específica for igual a zero.

Espero que isso te ajude! Boa sorte com o seu projeto com VBA.

Compartilhar no Facebook
Guest
Ronilson Correia na 26 Jun 2018
0
Eu gostaria de usar esse mesmo critério para ocultar e reexibir com o mesmo botão mas ao invés de linhas, preciso ocultar as colunas que vão de C:AT se a primeira linha for =0. por exemplo: se D1=0 então a coluna D toda será ocultada, mas esse regra se aplica para as colunas de C1 ate AT58

O seu comentário
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2024
All rights reserved