Como contar o número de vezes que uma célula é alterada no Excel?
Para contar o número de vezes que uma célula especificada é alterada no Excel, os códigos VBA fornecidos neste artigo podem ajudar.
Contar o número de vezes que uma célula é alterada com código VBA
Contar o número de vezes que uma célula é alterada com código VBA
Os códigos VBA a seguir podem ajudá-lo a contar o número de vezes que uma célula especificada é alterada no Excel.
1. Na planilha que contém uma ou mais células para as quais você precisa calcular a alteração total, clique com o botão direito do mouse na guia da planilha e clique em Ver código no menu de contexto. Veja a imagem:
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie e cole um dos seguintes códigos VBA na Code janela de acordo com suas necessidades.
Código VBA 1: acompanhar alterações em apenas uma 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 Sub
Note: No código, B9 é a célula de que você precisa para contar suas alterações e C9 é a célula para preencher o resultado da contagem. Altere-os conforme necessário.
Código VBA 2: acompanhar alterações em várias células em 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 Sub
Note: Nesta linha "Definir xRRg = xCell.Offset(0, 1)", o número 1 representa 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 você deseja retornar está na coluna C que fica ao lado da coluna B). Se você precisar enviar os resultados na coluna S, altere o número 1 para 10.
A partir de agora, quando a célula B9 ou qualquer célula no intervalo B9:B1000 for alterada, o número total de alterações será sobreposto e preenchido automaticamente na célula especificada.
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!