Макрос для расширенного фильтра не работает автоматически

Question

У меня в настоящее время есть макрос для автофильтра моих данных. Я не могу заставить его работать автоматически при изменении ячейки. Я хочу, чтобы макрос запускался всякий раз, когда значение в ячейке менялось. Был бы благодарен за любую помощь. Я задаюсь вопросом, лежит ли проблема в том, на каком листе я размещаю свой код.

Мой код выглядит следующим образом.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 

    ' The variable KeyCells contains the cells that will 
    ' cause an alert when they are changed. In this case, 
    ' Cell B2 will be changed when a value is selected on 
    ' another worksheet. 
    Set KeyCells = Range("B1:B2") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
     Is Nothing Then 

    ' Perform advanced filter on data 
    ' Place your code here. 
    Range("B4:H976").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ 
     Range("SalesByLocation!Criteria"), Unique:=False 

End If 
End Sub 

Answer 1

Я решил проблему! Я закончил разделение кодов на разные формы, а затем вызвал расширенный макрос фильтра. Я думаю, что с моими кодами впереди была небольшая проблема.Изменил это на что-то подобное.

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Target, Range("C4")) Is Nothing Then 
     Exit Sub 
    Else 
     Call Sheet4.AFilter 
    End If 
End Sub 

Answer 2

Добро пожаловать в SO!

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

Глядя на ваш код, вы, вероятно, также следует вставить

 
Application.EnableEvents = False 

после пункта IF, а затем

 
Application.EnableEvents = True 

перед тем End If. Еще один код события может вызвать событие снова, что приведет к фактическому переполнению стека.

Answer 3

Работает отлично для меня.

Попробуйте открыть Immediate Window (Ctrl + G) и введите следующую команду, а затем нажмите клавишу ВВОД:

Application.EnableEvents = True 

Теперь посмотрим, если код работает?
Это гарантирует, что приложение будет прослушивать события для запуска.

В качестве теста я использую следующее и в окне сообщения появляется тонкая:

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim KeyCells As Range 
    Set KeyCells = Range("B1:B2") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 

      ' Perform advanced filter on data 
      ' Place your code here. 
      MsgBox "Hello Event" 

    End If 

End Sub 

Как значения в B1: B2 изменилось? - через формулу, которая находится в ячейках? Или пользователь переходит в ячейку, меняет значение и затем нажимает клавишу ввода? ... второй вариант - это то, что было реализовано.

---

Редактировать

Я думаю, что вы должны будете исследовать worksheet_calculate событие

REFERENCE TO OTHER SO ARTICLE

---

Дальнейшее редактирование

Возможно, вам лучше создать процедуру события для события изменения в комбинированном поле, которое подает значения в B1:B2. Это закрытый вопрос на самом деле является хорошей отправной точкой, как это имеет довольно много ссылок на другие вопросы:

REFERENCE TO OTHER SO ARTICLE ABOUT COMBOBOX EVENTS