Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Можно ли изменить цвет кнопки в фильтре - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Можно ли изменить цвет кнопки в фильтре (Формулы/Formulas)
Можно ли изменить цвет кнопки в фильтре
Бильбо Дата: Понедельник, 06.06.2016, 21:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - Бильбо
Дата добавления - 06.06.2016 в 21:29
lebensvoll Дата: Понедельник, 06.06.2016, 23:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 687
Репутация: 2 ±
Замечаний: 20% ±

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


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

Автор - lebensvoll
Дата добавления - 06.06.2016 в 23:43
buchlotnik Дата: Понедельник, 06.06.2016, 23:56 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3099
Репутация: 850 ±
Замечаний: 0% ±

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


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщениеlebensvoll, которая из ваших ссылок содержит ответ на вопрос?! Я вот пробовал обращаться к ГУГЛУ - средствами самого Excel, пусть и с VBA - никак

Автор - buchlotnik
Дата добавления - 06.06.2016 в 23:56
lebensvoll Дата: Вторник, 07.06.2016, 00:03 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 687
Репутация: 2 ±
Замечаний: 20% ±

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


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

Автор - lebensvoll
Дата добавления - 07.06.2016 в 00:03
buchlotnik Дата: Вторник, 07.06.2016, 00:06 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3099
Репутация: 850 ±
Замечаний: 0% ±

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


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Вторник, 07.06.2016, 00:08
 
Ответить
Сообщение[offtop]да я так - ворчу на ночь глядя - просят-то покрасить кнопку фильтра, аналогично просят покрасить значок выпадающего списка, крестик в правом верхнем углу и т.п. - а это совсем нетривиальная задачка

Автор - buchlotnik
Дата добавления - 07.06.2016 в 00:06
RAN Дата: Вторник, 07.06.2016, 14:31 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4543
Репутация: 920 ±
Замечаний: 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(16Kb)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКнопка, это слишком.
А выделять можно так
[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]

Автор - RAN
Дата добавления - 07.06.2016 в 14:31
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Можно ли изменить цвет кнопки в фильтре (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!