Как фильтровать по значению ячейки с помощью VBA?

427
Suyash

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

Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("A4").AutoFilter 1, "=001" Next End Sub

Теперь я хочу использовать значение в ячейке F1 вместо 001. Как мне изменить код?

0
https://superuser.com/users/774984/peterh PeterH вы можете решить эту проблему. Suyash 6 лет назад 0

1 ответ на вопрос

0
dmb

Это довольно легко, приятель, попробуйте:

Sub apply_autofilter_across_worksheets()  ' Updateby Extendoffice 20160623  Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("A4").AutoFilter FIELD:=1, CRITERIA1:=xWs.range("F1").value Next End Sub

ура

Спасибо. Но у меня есть много листов в одной книге, и я хочу изменить за один раз. Можете ли вы помочь мне. Suyash 5 лет назад 0
@Suyash Вы хотите выбрать конкретный лист? Потому что вы зацикливаете все листы этой книги. dmb 5 лет назад 0
Это не работает с другим листом Можете ли вы помочь мне. Suyash 5 лет назад 0

Похожие вопросы