2017-01-19 3 views
1

Я пытаюсь отфильтровать столбец таблицы, но по какой-то причине я получаю массаж «вне диапазона».Фильтр даты с VBA

Что я делаю:

Private Sub TextBox5_Change() 
ActiveSheet.ListObjects("FailureLogStart").Range.AutoFilter Field:=1, _ 
     Criteria1:="*", Operator:=xlFilterValues 
End Sub 

Как моя таблица выглядит в столбцах: websiteID, B failureLogID, C FailureLogStart D FailureLogEnd

С кодом выше, я хотел бы, чтобы отфильтровать столбец C

+0

Имена столбцов не перечислены в коллекции ListObjects, попробуйте использовать 'ActiveSheet.ListObjects (« yourtablename »). Вместо этого ListColumns (« FailureLogStart ») ...». –

ответ

0

предположив вы хотите отфильтровать таблицу на своем 3-м столбце со значением вашего TextBox5:

Private Sub TextBox5_Change() 
    ActiveSheet.ListObjects("nameofthetable").Range.AutoFilter Field:=3, Criteria1:=TextBox5.Value 
End Sub 
+0

да глупо мне .. получилось .. –

+0

btw есть какой-то способ обновить код вести себя как SQL LIKE или содержит? –

+0

Возможно, вы после чего-то вроде 'ActiveSheet.ListObjects (« nameofthetable »). Range.AutoFilter Field: = 3, Criteria1: =" * "& TextBox5.Value &" * "' – user3598756

Смежные вопросы