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
Anote os: 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
Anote os: 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.
As melhores ferramentas de produtividade para escritório
Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Office Tab Traz a 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!
























