Como exibir uma caixa de mensagem sempre que o valor de uma célula for alterado dentro de um intervalo específico no Excel?
Por vezes, é necessário ser alertado sempre que ocorram alterações num determinado intervalo de uma folha de cálculo. Nesses casos, uma caixa de mensagem emergente mostra-se extremamente útil ao notificá-lo imediatamente sempre que o valor de uma célula nesse intervalo for modificado. Este artigo apresenta um método VBA que lhe permite implementar exatamente essa funcionalidade.
Apresentar caixa de mensagem se o valor da célula mudar dentro de um intervalo com código VBA
Apresentar caixa de mensagem se o valor da célula mudar dentro de um intervalo com código VBA
O código VBA seguinte exibe uma caixa de mensagem sempre que o valor de uma célula for alterado dentro de um intervalo específico numa determinada folha de cálculo. Siga os passos abaixo.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, faça duplo clique no nome da folha (onde se encontra o intervalo limitado) na barra à esquerda para abrir a respetiva janela Código e copie e cole o seguinte código VBA nessa janela.
Código VBA: apresentar caixa de mensagem se o valor da célula mudar dentro de um intervalo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("A1:E19"), Target) Is Nothing) Then
MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
End If
End SubNota: pode alterar o intervalo Intervalo limitado A1:E19 no código para o intervalo de que necessita.
3. Prima simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
A partir de agora, sempre que os valores das células no intervalo A1:E19 forem alterados, uma caixa de mensagem será apresentada automaticamente. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos