Отслеживание изменений на листе

[tae1980]

Нужно отследить были ли изменения на листе. При этом:
1. Нужно иметь возможность сбросить "счетчик" в ручную.
2. Нужен сам факт изменения, что изменили не важно и сколько их было.
3. За изменения принимает прямое изменение содержимого ячеек оператором. Изменениями не считаются: сдвиг по листу; пересчет формул; прочее.
4. В книге много листов - нужно контролировать только 6, но каждый отдельно.

Нечто вроде:
If ИзмененияНаЛисте(ЛистИмя) then ......

Как это можно сделать?

[Казанский]

Процедура события изменения листа в модуле книги

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

В нее передается Sh - ссылка на лист, который был изменен.
Проверяйте, является ли Sh одним из тех листов, которые надо контролировать, и увеличивайте на 1 соотв. счетчик.
Имеет смысл в качестве счетчиков использовать ячейки на отдельном скрытом листе.
Тогда информация об изменениях будет сохраняться вместе с книгой.

[tae1980]

Сообщение от Казанский

Процедура события изменения листа в модуле книги

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

В нее передается Sh - ссылка на лист, который был изменен.
Проверяйте, является ли Sh одним из тех листов, которые надо контролировать, и увеличивайте на 1 соотв. счетчик.

Интересно. А не будет ли этот способ реагировать на каждый чих? Скажем на изменения в результате пересчета формулы.

Сообщение от Казанский

Имеет смысл в качестве счетчиков использовать ячейки на отдельном скрытом листе.
Тогда информация об изменениях будет сохраняться вместе с книгой.

Этого не требуется по условию задачи. Но может быть полезно.

[Казанский]

> А не будет ли этот способ реагировать на каждый чих? Скажем на изменения в результате пересчета формулы

А Вы попрбуйте Сравните с поведением

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

[EducatedFool]

А не будет ли этот способ реагировать на каждый чих?

Будет. Если под "чихом" подразумевается изменение хоть одной ячейки листа.

Скажем на изменения в результате пересчета формулы.

Нет? пересчёт формул не сгенерирует это событие.
для пересчёта формул в Excel предусмотрено отдельное событие - Calculate

[IgorGO]

по событию
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)видно на что изменилось значения в Target, но какими они были до изменения отследить надо отдельно и самостоятельно.
необходимо хранить массивы значений всех используемых ячеек контролируемых листов.
сделаете, покажете что получилось. ок?

[kuklp]

Неважно, сколько листов. На листе1 в первой строке покажет все изменявшиеся.

[tae1980]

Сообщение от kuklp

Неважно, сколько листов. На листе1 в первой строке покажет все изменявшиеся.

Зачем нужна работа с Application.EnableEvents?

    Application.EnableEvents = 0
    Sheets(1).[1:1].Clear
    Application.EnableEvents = -1

[kuklp]

Закомментируйте их и в пошаговом режиме посмотрите, зачем.

[miruff]

Ребят в Вашем примере отслеживается лист на котором были проведены какие либо изменения. А можно что то аналогичное проделать, но только не с листом а с ячейкой? Мне нужно знать не были ли изменены определенные ячейки. Спасибо за советы заранее!