Показать проставленные фильтры

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Показать проставленные фильтры (Макросы/Sub)

ikariya

Дата: Пятница, 28.02.2020, 16:45 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Всем доброго времени суток!
Подскажите (не нашла готовое решение, подозреваю, что без макроса не обойтись), как вывести информацию, в каких колонках Excel проставлен фильтр.
Рабочая таблица широка, как Волга. Глазами просмотреть - запаришься.
(фильтр не по первой строке, если это важно)
Заранее благодарна, счастья, здоровья!

Ответить

Pelena

Дата: Пятница, 28.02.2020, 20:03 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Как вариант
[vba]

Код

Sub www()
    If ActiveSheet.AutoFilterMode Then
        With ActiveSheet.AutoFilter
            For c = 1 To .Filters.Count
                If ActiveSheet.AutoFilter.Filters(c).On Then Cells(4, c + .Range.Column - 1).Interior.Color = vbCyan Else Cells(4, c + .Range.Column - 1).Interior.Color = xlNone
            Next c
        End With
    End If
End Sub

[/vba]

К сообщению приложен файл: Filter.xlsm (18.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

bmv98rus

Дата: Пятница, 28.02.2020, 22:47 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Чуть скорректировать
[vba]

Код

Sub www()
    If ActiveSheet.AutoFilterMode Then
        With ActiveSheet.AutoFilter
            For c = 1 To .Filters.Count
                 Cells(.Range.Row, c + .Range.Column - 1).Interior.Color = IIf(.Filters(c).On, vbCyan, xlNone)
            Next c
        End With
    End If
End Sub

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

RAN

Дата: Пятница, 28.02.2020, 23:05 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата ikariya, 28.02.2020 в 16:45, в сообщении № 1 ()

не нашла готовое решение

Куда же готовее?

Быть или не быть, вот в чем загвоздка!

Ответить

bmv98rus

Дата: Суббота, 29.02.2020, 09:51 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата RAN, 28.02.2020 в 23:05, в сообщении № 4 ()

Куда же готовее?

Вечно коты не доготовят :-)
[vba]

Код

Function IsFiltered(ByRef cell As Range) As Boolean
    On Error Resume Next
    With cell.Parent.AutoFilter
        IsFiltered = .Filters(cell.Column - .Range.Column + 1).On
    End With
End Function

[/vba]
+ CF

К сообщению приложен файл: example1553.xlsm (14.7 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

ikariya

Дата: Понедельник, 02.03.2020, 10:32 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Всем спасибо) Доковыряла, чтобы в высплывающем окне номера столбцов отражались, мне так удобнее.

Ответить

Показать проставленные фильтры (Макросы/Sub)

Страница 1 из 1
1