Как отслеживать изменения в ячейках Excel?

Как можно отслеживать изменения в ячейках листа, если данные изменяются в Excel? Это может помочь вам как можно быстрее определить измененные ячейки. В этой статье я расскажу о некоторых интересных методах для выполнения этой задачи в Excel.

Отслеживание изменений в ячейках Excel с помощью функции Отслеживание изменений

Отслеживание изменений в ячейках Excel с помощью кода VBA

Отслеживание изменений в ячейках Excel с помощью функции Отслеживание изменений

В Excel есть полезная функция Отслеживание изменений, которая помогает отметить измененные ячейки. Пожалуйста, следуйте инструкциям:

1. Нажмите Рецензирование > Отслеживание изменений > Выделение изменений, см. скриншот:

2. В диалоговом окне Выделение изменений выполните следующие действия:

(1.) Установите флажок Отслеживать изменения при редактировании. Это также делает вашу книгу общей.

(2.) В разделе Выделение изменений укажите параметры Когда, Кто и Где по мере необходимости.

(3.) Наконец, установите флажок Выделять изменения на экране.

3. После завершения настроек нажмите кнопку ОК. Теперь, когда вы измените значение любой ячейки в указанных ячейках, вокруг измененных ячеек появится граница с треугольным значком, см. скриншот:

Примечание: При использовании этого метода ваша книга станет общей книгой.

Отслеживание изменений в ячейках Excel с помощью кода VBA

Следующий код VBA также может помочь вам отслеживать значения ячеек при их изменении. Пожалуйста, сделайте следующее:

1. Щелкните правой кнопкой мыши вкладку листа, за которым вы хотите отслеживать изменения в ячейках, и выберите Просмотр кода из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код VBA в Модуль:

Код VBA: Отслеживание изменений в ячейках рабочего листа Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

Примечание: В приведенном выше коде A1:E7 — это диапазон данных, который вы хотите отслеживать на предмет изменений в ячейках. Вы можете изменить его по своему усмотрению.

2. Затем сохраните и закройте это окно кода. Теперь, когда вы измените значение ячейки в указанном диапазоне, появится всплывающее окно с напоминанием, см. скриншот: