Excel: Включаем фильтр по столбцу-> красим столбец...

[AlexG]

Есть большой массив на листе, на который наложен автофильтр.

Нужно: если пользователь применил фильтр с какому то столбцу - название столбца( или фон) - покрасились в такой то цвет...

Сначала пробовал так.....

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    Dim i As Integer
    Dim of As Filters
                    Set of = ActiveSheet.AutoFilter.Filters
                    For i = 1 To of.Count
                        If of(i).On Then
                            ' красим ячейку (или ее фон) в такой то цвет
                        End If
                    Next                   
End If
End Sub

...но оказалось, что событие Change вообще не воспринимает применение фильтра к столбцу....значение то ячейки (название столбца) - не меняется то.....

Навешивать такой макрос на какие то более глобальные события - не хотелось бы.......макрос будет каждый раз *бегать* по всей таблице...проверять где применен фильтр.....

Как быть.....??

[GSerg]

Если фильтр применён, то его срелочка становится синей. Это вроде как уже достаточный индикатор

[AlexG]

Если фильтр применён, то его срелочка становится синей. Это вроде как уже достаточный индикатор

Согласен. Достаточный. Если бы в таблице не было бы 80 столбцов. А когда постоянно идут сложные фильтры ОДНОВРЕМЕННО по 5-7 столбцам - потом *бегаешь* , снимаешь фильтрацию - да и цвет синий с черным сливается.......

[GSerg]

Ну тогда в Редмонд телегу пиши