Можно ли изменить цвет кнопки в фильтре

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Можно ли изменить цвет кнопки в фильтре (Формулы/Formulas)

Бильбо

Дата: Понедельник, 06.06.2016, 21:29 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2010

Я чайник. При работе с фильтром хотелось чтобы кнопка фильтра, когда она задействована, изменяла свой цвет. Понимаю, что можно ориентироваться на нумерацию строк, но надо четко видеть, какой именно столбец фильтруется. Excel 2007 2010

"Если вода в бачке шумит, значит сиденье унитаза еще теплое..."

Ответить

lebensvoll

Дата: Понедельник, 06.06.2016, 23:43 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

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

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

Excel 2010

Бильбо, а не пробовали к ГУГЛУ обратиться заранее!?
My WebPage
мне очень помогает именно этот материал, если таблица большая то иной раз глаза разбегаются что и где (((( а так этот макрос просто спасает
My WebPage

Кто бы ты ни был, мир в твоих руках

Ответить

buchlotnik

Дата: Понедельник, 06.06.2016, 23:56 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

lebensvoll, которая из ваших ссылок содержит ответ на вопрос?! Я вот пробовал обращаться к ГУГЛУ - средствами самого Excel, пусть и с VBA - никак

Ответить

lebensvoll

Дата: Вторник, 07.06.2016, 00:03 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1002

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

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

Excel 2010

buchlotnik, я не отвечал на вопрос а предложил полазить по сайтам. И нашел один вариант который как мне показался подходит для решения вопроса Бильбо, это первая сылка
Но также предложил вариант которым пользуюсь я окрашивается не кнопка фильтра а появляется перекрестие в виде окрашивания (нужно лишь диапазоны в макросе свои внести. и активируется легко (когда тебе нужно).

Кто бы ты ни был, мир в твоих руках

Ответить

buchlotnik

Дата: Вторник, 07.06.2016, 00:06 | Сообщение № 5

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

[offtop]да я так - ворчу на ночь глядя - просят-то покрасить кнопку фильтра, аналогично просят покрасить значок выпадающего списка, крестик в правом верхнем углу и т.п. - а это совсем нетривиальная задачка

Сообщение отредактировал buchlotnik - Вторник, 07.06.2016, 00:08

Ответить

RAN

Дата: Вторник, 07.06.2016, 14:31 | Сообщение № 6

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

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

Сообщений: 5660

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

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

2010

Кнопка, это слишком.
А выделять можно так
[vba]

Код

Private Sub Worksheet_Calculate()
     ' для срабатывания добавить промитоги, или летучую функцию (сегодня, ...)
     Call Мяу
End Sub
Sub Мяу()
    Dim arr, i&, k&, r As Range
    With ActiveSheet.AutoFilter
        k = .Range(1).Column
        .Range.FormatConditions.Delete
        For i = 1 To .Range.Columns.Count
            If .Filters(i).On Then
                Set r = Intersect(.Range, ActiveSheet.Columns(i + k - 1))
                r.FormatConditions.Add Type:=xlExpression, Formula1:="=СТОЛБЕЦ()=" & i + k - 1
                r.FormatConditions(1).Interior.Color = 255
                Set r = Nothing
            End If
        Next
    End With
End Sub

[/vba]

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

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Можно ли изменить цвет кнопки в фильтре (Формулы/Formulas)

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