Como abrir uma caixa de mensagem pop-up se o valor da célula mudar dentro de um intervalo no Excel?
Às vezes, você precisa se lembrar das mudanças dentro de um intervalo em uma determinada planilha. Portanto, uma caixa de mensagem pop-up fará um favor se o valor da célula mudou em um determinado intervalo. Você pode conseguir isso com um método VBA neste artigo.
Caixa de mensagem pop-up se o valor da célula mudar dentro de um intervalo com o código VBA
Caixa de mensagem pop-up se o valor da célula mudar dentro de um intervalo com o código VBA
O código VBA a seguir exibirá uma caixa de mensagem se o valor da célula for alterado dentro de um intervalo especificado de uma determinada planilha. Faça o seguinte.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duas vezes no nome da folha (o intervalo especificado existe) na barra esquerda para abrir seu Code janela, em seguida, copie e cole o código VBA abaixo na janela.
Código VBA: caixa de mensagem pop-up 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 Sub
Note: você pode alterar o intervalo especificado A1: E19 no código para o intervalo de que precisa.
3. Pressione outro + Q chaves ao mesmo tempo para fechar o Microsoft Visual Basic para Aplicações janela.
Por enquanto, quando os valores das células no intervalo A1: E19 forem alterados, uma caixa de mensagem aparecerá automaticamente. Veja a imagem:
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!