Como contar o número de vezes que uma célula é alterada no Excel?
Para contar quantas vezes uma célula específica é alterada no Excel, os códigos VBA apresentados neste artigo são a solução ideal.
Conte o número de vezes que uma célula é alterada com código VBA
Conte o número de vezes que uma célula é alterada com código VBA
Os seguintes códigos VBA permitem-lhe contar quantas vezes uma célula específica é alterada no Excel.
1. Na folha de cálculo que contém uma ou mais células cujas alterações totais pretende calcular, 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. Na janela Microsoft Visual Basic for Applications que se abre, copie e cole um dos seguintes códigos VBA na janela Código, de acordo com as suas necessidades.
Código VBA 1: Acompanhar alterações numa única célula
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End SubNota: No código, B9 é a célula cujas alterações pretende contar e C9 é a célula onde será apresentado o resultado da contagem. Ajuste-as conforme necessário.
Código VBA 2: Acompanhar alterações em várias células de uma coluna
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End SubNota: Na linha "Set xRRg = xCell.Offset(0, 1)", o número 1representa o número de colunas a deslocar para a direita da referência inicial (aqui, a referência inicial é a coluna)B, e a contagem que pretende obter está na coluna C, localizada imediatamente à direita da coluna B). Se precisar de apresentar os resultados na coluna S, altere o número 1 para 10.
A partir de agora, sempre que a célula B9 ou qualquer célula no intervalo B9:B1000 for alterada, o número total de alterações será automaticamente acumulado e preenchido na célula especificada.
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