Como monitorar alterações de células no Excel?
Como você poderia monitorar as células de uma planilha se os dados forem alterados no Excel? Isso pode ajudá-lo a identificar as células alteradas o mais rápido possível. Neste artigo, vou falar sobre alguns métodos interessantes para lidar com essa tarefa no Excel.
Monitore alterações de células no Excel com a função Rastrear Alterações
Monitore alterações de células no Excel com código VBA
Monitore alterações de células no Excel com a função Rastrear Alterações
O Excel possui um recurso útil chamado Rastrear Alterações, que pode ajudá-lo a marcar as células alteradas. Por favor, siga os passos abaixo:
1. Clique em Revisão > Rastrear Alterações > Destacar Alterações, veja a captura de tela:
2. Na caixa de diálogo Destacar Alterações, faça as seguintes operações:
(1.) Marque a opção Rastrear alterações enquanto edita. Isso também compartilha sua pasta de trabalho.
(2.) Na seção Destacar quais alterações, especifique os itens Quando, Quem e Onde conforme necessário.
(3.) Por fim, marque a opção Destacar alterações na tela.
3. Após concluir as configurações, clique no botão OK. Agora, quando você alterar qualquer valor de célula nas células especificadas, uma borda com um ícone triangular aparecerá ao redor das células alteradas, veja a captura de tela:
Observação: Com este método, sua pasta de trabalho se tornará uma pasta de trabalho compartilhada.
Monitore alterações de células no Excel com código VBA
O seguinte código VBA também pode ajudá-lo a monitorar os valores das células quando eles forem alterados. Por favor, siga estas instruções:
1. Clique com o botão direito na aba da planilha onde deseja monitorar as alterações de células e escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA no Módulo:
Código VBA: Monitore alterações de células na planilha do Excel:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
Dim xrng As Range
Set xrng = Range("A1:E7")
If Not Application.Intersect(xrng, Range(Target.Address)) _
Is Nothing Then
MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
End If
End Sub
Observação: No código acima, A1:E7 é o intervalo de dados que você deseja monitorar quanto a alterações de células. Você pode alterá-lo conforme necessário.
2. Em seguida, salve e feche esta janela de código. Agora, quando você alterar o valor da célula no intervalo especificado, uma caixa de mensagem será exibida para lembrá-lo, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins