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: