Como registar os valores alterados numa célula no Excel?
Como registar todos os valores alterados de uma célula que muda frequentemente no Excel? Por exemplo, se o valor original na célula C2 for 100 e for alterado para 200, o valor anterior — 100 — será automaticamente registado na célula D2. Ao mudar de 200 para 300, o número 200 será inserido na célula D3; ao passar de 300 para 400, o valor 300 aparecerá em D4, e assim sucessivamente. O método descrito neste artigo permite-lhe obter exatamente este resultado.
Registar valores alterados numa célula com código VBA
Registar valores alterados numa célula com código VBA
O código VBA abaixo permite-lhe registar todos os valores alterados numa célula no Excel. Siga estes passos:
1. Na folha de cálculo que contém a célula onde pretende registar os valores alterados, clique com o botão direito do rato no separador da folha e, em seguida, clique em Ver Código no menu de contexto. Veja a imagem:
2. Em seguida, a janela do Microsoft Visual Basic for Applications abre-se; copie o código VBA abaixo para a janela de código.
Código VBA: registar valores alterados numa célula
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End SubNotas: No código, C2 é a célula cujas alterações pretende registar. D2 é a célula onde será introduzido o primeiro valor anterior de C2.
3. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
A partir de agora, sempre que alterar o valor na célula C2, o valor anterior será registado em D2 e nas células subsequentes abaixo desta.
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