Поймать автофильтр

[GES]

Привет коллеги.
Вопрос наверное сложный...
Как перехватить событие изменения автофильтра на листе?
Например, процедура Change объекта Worksheet перехватывает событие изменения ячейки на листе, а мне нужно перехватить событие изменения автофильтра...

[EducatedFool]

Вопрос наверное сложный...

Да, действительно.
Штатными средствами Excel этого сделать не получится - событие изменения автофильтра не отлавливается.

Навскидку могу предложить только один вариант - после открытия книги каждую секунду (по таймеру) запускать макрос, который будет считывать параметры автофильтра.

Вот что у меня получилось:

Стандартный модуль:

Public nextTime As Date
Public LastCriteria As String, IsOn As Boolean

Sub CheckAutofilter()
    Dim af As AutoFilter: Set af = ActiveSheet.AutoFilter
    If Not af Is Nothing Then
        If af.Filters(2).On Then
            If Not IsOn Then MsgBox "Фильтрация включена", vbInformation
            IsOn = True
            If af.Filters(2).Criteria1 <> LastCriteria Then
                LastCriteria = af.Filters(2).Criteria1
                MsgBox "Параметры автофильтра изменены!", vbInformation
            End If
        Else
            If IsOn Then IsOn = False: MsgBox "Фильтрация выключена", vbExclamation
        End If
    End If

    nextTime = Now + TimeValue("00:00:01")
    Application.OnTime nextTime, "CheckAutofilter"
End Sub

Модуль книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Year(nextTime) = Year(Now) Then Application.OnTime nextTime, "CheckAutofilter", , False
End Sub

Private Sub Workbook_Open()
    CheckAutofilter
End Sub

Sub StopMacro()
    If Year(nextTime) = Year(Now) Then Application.OnTime nextTime, "CheckAutofilter", , False
End Sub

Проверял - вроде всё работает как надо.
Измените параметры фильтра во втором столбце:

[SAS888]

событие изменения автофильтра не отлавливается.

Действительно. Но т.к. изменение автофильтра приводит к пересчету формул, то можно этим воспользоваться. Посмотрите пример во вложении.

[GES]

Спасибо за ответ
Вариант с таймером - не проходит, т.к. у меня много других макросов работает...и при переходе на другой лист он обваливается, нужно еще кучу проверок к нему дописывать

[GES]

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

Действительно. Но т.к. изменение автофильтра приводит к пересчету формул, то можно этим воспользоваться. Посмотрите пример во вложении.

Такой вариант я уже писал, только к нему тоже пришлось кучу проверок цеплять, т.к. каждый пересчет запускает макрос и получается замкнутый круг....потому, что мне нужно чтобы на 2х одинаковых листах фильтры были в одном состоянии, и когда я меняю фильтр на 1м листе, запускается макрос и меняет фильтр на втором листе, что в свою очередь вызывает пересчет формул...пришлось запоминать все данные фильтров и сравнивать на входе в Calculation...

[SAS888]

пришлось запоминать все данные фильтров и сравнивать

А какие в этом проблемы? Например, в предложенном варианте критерий фильтра хранится в глобальной переменной. Пусть их будет с десяток. И еще: если пользователь меняет критерий автофильтра, то запустив при это макрос, мы всегда знаем какой при этом лист активный, т.е. в каком листе изменился критерий фильтра. Поэтому не такая уж большая "куча" сравнений, а два - три штуки.

что в свою очередь вызывает пересчет формул

Если Вам это не нужно, то в начале кода макроса запретите обработчик событий, а в конце включите.

[GES]

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

А какие в этом проблемы? Например, в предложенном варианте критерий фильтра хранится в глобальной переменной. Пусть их будет с десяток. И еще: если пользователь меняет критерий автофильтра, то запустив при это макрос, мы всегда знаем какой при этом лист активный, т.е. в каком листе изменился критерий фильтра. Поэтому не такая уж большая "куча" сравнений, а два - три штуки.
Если Вам это не нужно, то в начале кода макроса запретите обработчик событий, а в конце включите.

Обработчик событий отключен
Просто хотелось бы не через Calculate это все решить, для Calculate у меня есть другая задача
Я уже литературу полистал, по-моему нашел способ. Нужно написать свой класс автофильтра и можно будет отлавливать через событие класса....
Спасибо за советы

[SuperLisenok]

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

Действительно. Но т.к. изменение автофильтра приводит к пересчету формул, то можно этим воспользоваться. Посмотрите пример во вложении.

Подскажите, пожалуйста, (я в ВБА абсолютный чайник), а как сделать на изменение не в одном столбце, а больше, 5 или 6...

[IgorGO]

что сделать на изменение?
какого рода изменения?
в каких столбцах (перечислите по-именно)

[SuperLisenok]

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

что сделать на изменение?
какого рода изменения?
в каких столбцах (перечислите по-именно)

да на изменение. пример взят с этой же темы, с добавлением нескольких столбцов