Функция фильтра VBA - предотвращение ошибок при нажатии - PullRequest
Новая
       28

Функция фильтра VBA - предотвращение ошибок при нажатии

0 голосов
/ 04 июля 2018

надеюсь, это легко исправить, но я все еще слишком нов, чтобы знать, что искать в функциях. Я в основном делаю функцию автофильтра для незавершенной работы, и все работает нормально, если только я не начну щелкать созданный мной функциональный блок «Очистить фильтр».

Я хотел включить эту функцию, чтобы я мог нажать «Фильтр 1», «Фильтр 2», а затем быстрый «Очистить фильтр», чтобы вернуть все в нормальное состояние. Если я не нажал «Фильтр 1» или «Фильтр 2» до нажатия «Очистить фильтр», он перейдет в режим отладки. Есть ли способ обойти это? 

Sub Filter1()
  Dim LastRow As Long

  LastRow = Range("C1").CurrentRegion.Rows.Count
  Range("A1:H" & LastRow).Select
  Selection.AutoFilter Field:=3, Criteria1:="VariableX"

End Sub

Sub Clear()

  Selection.AutoFilter

End Sub

Заранее спасибо за любую помощь с этим!

1 Ответ

0 голосов
/ 04 июля 2018

Вы не получили ошибку после «Фильтр 1» или «Фильтр 2», потому что модуль выбирает диапазон.

Sub Clear ()

'Необходимо выбрать перед работой с выбором

Range ( "A1"). Select

Выбор .AutoFilter

End Sub

...