колонки автофильтра

[НеВа6464]

Активно использую на листах автофильтр.
Определить с помощью ВБА размер диапазона автофильтра уже умею, а определять номера колонок, к которым применяется в конкретных ситуациях автофильтр не умею.
Это возможно в ВБА? Как?

Собственно ноги растут от желания сделать кнопку "Откл_автофильтр".
Т.к. фильтровать приходится широкие таблицы по нескольким столбцам сразу. И вот потом в них отключать фильтр уже надоело. Хочется одним кликом.
Сделал сначала так, что тупо отключаются фильтры во всех столбцах. Остался осадок в душе. Хочется отключать фильтр только в тех столбцах, к которым он применён.

[НеВа6464]

Нашёл требуемое свойство.

[Рудзфельд]

Здравствуйте! Вот у меня такой код:

Range("A2:A65536").AutoFilter Field:=1, Criteria1:="3"

Теперь как можно заменить эти "тройки", допустим, на другое число после того, как применила автофильтр?

[Рудзфельд]

Всё. Разобралась. Вот код (если кому понадобится):

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'отключаем реакцию на событие. Это нужно для того, чтобы событие Change сработало один раз

Range("A2:A65536").AutoFilter Field:=1, Criteria1:="3"

With Worksheets(1)
If (.AutoFilterMode = True) And (.FilterMode = True) Then
With .AutoFilter.Range.Columns(1)
For Each iCell In .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
iCell.Value = "666"
Next
End With
End If
End With

If Лист1.FilterMode = True Then Лист1.ShowAllData

Application.EnableEvents = True 'включаем реакцию на событие
End Sub

[SAS888]

На сколько я понял из вышеприведенного кода, то нужно при изменении значения любой ячейки листа при помощи автофильтра заменить значения ячеек столбца "A", совпадающих с критерием фильтра (3) на заданное (666). Если так, то во-первых, зачем делать ссылку на лист? во-вторых, зачем проверять, установлен ли и применен ли автофильтр, если мы сами это делаем? и в-третьих, применять в данном случае цикл совершенно ни к чему (ну не люблю я их). Учитывая все сказанное, код можно "облегчить" до такого:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False: Application.EnableEvents = False
    [A2:A65536].AutoFilter Field:=1, Criteria1:="3": On Error Resume Next
    Range([A3], Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlVisible) = 666
    [A:A].AutoFilter
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

[Рудзфельд]

SAS888, Вы просто настоящий профессионал. Вы можете под моим ником увидеть, что я еще новичок :-)

А вообще я хотела вот что... В Лист1 содержится колонка из чисел (числа там повторяются и их может быть о-очень много). Допустим, число "3" встречается Rows.Count раз. И я бы хотела программно эту "тройку" заменить, к примеру, на 666. Сначала делала циклом For, но это оказалось о-очень долго. Потом подумала, может с использованием автофильтра получится быстрее. Но с автофильтром все равно быстрее в отличие от цикла, но все же приходится ждать.

Вот Вы говорите, что не любите циклы. Может можно как-нибудь эту задачу решить без циклов и автофильтров и чтобы работало быстро. Если такое возможно, не подскажете (или покажете) как? Буду рада :-)

[SAS888]

Может можно как-нибудь эту задачу решить без циклов и автофильтров и чтобы работало быстро.

Конечно можно. Например, так:

[A:A].Replace 3, 666, xlWhole

[Рудзфельд]

SAS888, спасибо Вам большое :-)

[Рудзфельд]

А как можно подобно этому коду

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False: Application.EnableEvents = False
[A2:A65536].AutoFilter Field:=1, Criteria1:="3": On Error Resume Next
Range([A3], Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlVisibl e) = 5
[A:A].AutoFilter
Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

удалять строки? Я просто понять не могу, в каком месте вписать команду Delete.

[SAS888]

Можно так:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False: Application.EnableEvents = False
    Application.DisplayAlerts = False
    [A2:A65536].AutoFilter Field:=1, Criteria1:="3": On Error Resume Next
    Range([A3], Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlVisible).Delete
    [A:A].AutoFilter
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

Обратите внимание, что для удаления мы определяем не строки, а диапазон ячеек. Поэтому, чтобы Excel не задавал лишних вопросов, добавлен запрет вывода сообщений.