Как подсчитать количество изменений ячейки в Excel?
Чтобы подсчитать, сколько раз указанная ячейка была изменена в Excel, могут помочь коды VBA, представленные в этой статье.
Подсчитайте, сколько раз ячейка изменяется с кодом VBA
Подсчитайте, сколько раз ячейка изменяется с кодом VBA
Следующие коды VBA могут помочь вам подсчитать, сколько раз указанная ячейка была изменена в Excel.
1. На листе, содержащем одну или несколько ячеек, для которых необходимо рассчитать общее изменение, щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню. Смотрите скриншот:
2. В дебюте Microsoft Visual Basic для приложений скопируйте и вставьте один из следующих кодов VBA в окно Code окно в соответствии с вашими потребностями.
Код VBA 1: отслеживать изменения только в одной ячейке
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
Внимание: В коде B9 - это ячейка, в которой вам нужно подсчитать изменения, а C9 - это ячейка для заполнения результата подсчета. Пожалуйста, измените их по своему усмотрению.
Код VBA 2: отслеживать изменения в нескольких ячейках в столбце
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
Внимание: В этой строке "Установить xRRg = xCell.Offset(0, 1)", число 1 представляет количество столбцов для смещения справа от начальной ссылки (здесь начальной ссылкой является столбец B, а количество, которое вы хотите вернуть, находится в столбце C который находится рядом со столбцом B). Если вам нужно вывести результаты в столбец S, изменить номер 1 в 10.
Отныне при изменении ячейки B9 или любой ячейки в диапазоне B9:B1000 общее количество изменений будет накладываться и автоматически заполняться указанной ячейкой.

Разблокируйте магию Excel с помощью Kutools AI
- Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
- VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формулы: Легкое понимание сложных формул.
- Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!