Como limpar o conteúdo da célula especificada se o valor de outra célula for alterado no Excel?
Suponha que você queira limpar um intervalo de conteúdo de célula especificado se o valor de outra célula for alterado, como você pode fazer? Esta postagem vai mostrar um método para resolver esse problema.
Limpe o conteúdo da célula especificada se o valor de outra célula mudar com o código VBA
Limpe o conteúdo da célula especificada se o valor de outra célula mudar com o código VBA
Como mostrado na captura de tela abaixo, quando o valor na célula A2 é alterado, o conteúdo na célula C1: C3 será apagado automaticamente. Faça o seguinte.
1. Na planilha, você limpará o conteúdo da célula com base nas alterações de outra célula, clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto. Veja a imagem:
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie e cole abaixo do código VBA na janela de código.
Código VBA: Limpe o conteúdo da célula especificada se o valor de outra célula mudar
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("C1:C3").ClearContents
End If
End Sub
Note: No código, B2 é a célula na qual você limpará o conteúdo da célula e C1: C3 é o intervalo do qual você limpará o conteúdo. Altere-os conforme necessário.
3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
Então você pode ver o conteúdo no intervalo C1: C3 é apagado automaticamente quando o valor na célula A2 muda conforme a captura de tela abaixo mostrada.
Artigos relacionados:
- Como limpar o conteúdo da caixa de combinação com o código VBA no Excel?
- Como limpar conteúdo e formatação ao mesmo tempo em células no Excel?
- Como limpar o conteúdo do intervalo nomeado no Excel?
- Como limpar valores restritos em células no Excel?
- Como limpar o conteúdo da célula especificada ao abrir e sair da pasta de trabalho do 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!