Как подсчитать, сколько раз изменялась ячейка в Excel?
Чтобы узнать, сколько раз была изменена указанная ячейка в Excel, воспользуйтесь приведёнными в этой статье кодами VBA.
Подсчёт количества изменений ячейки с помощью кода VBA
Подсчёт количества изменений ячейки с помощью кода VBA
Приведённые ниже коды VBA позволят вам отслеживать и подсчитывать количество изменений указанной ячейки в Excel.
1. На листе, содержащем одну или несколько ячеек, для которых нужно рассчитать общее число изменений, щелкните правой кнопкой мыши по ярлыку листа и в контекстном меню выберите пункт Просмотреть код. См. снимок экрана:
2. В открывшемся окне Microsoft Visual Basic для приложений скопируйте и вставьте один из приведённых ниже кодов VBA в окно Код в соответствии со своими задачами.
Код 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Примечание: в строке «Set xRRg = xCell.Offset(0, 1)» число 1указывает количество столбцов для смещения вправо от начальной ссылки (в данном случае начальная ссылка — столбец)B, а результат подсчёта выводится в столбец C, расположенный рядом со столбцом B). Если вы хотите выводить результаты в столбец S, замените число 1 на 10.
Теперь при каждом изменении ячейки B9 или любой ячейки в диапазоне B9:B1000 общее количество изменений будет автоматически накапливаться и заполняться в указанную ячейку.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек