VBNet - Форум - Автофильтр

Вопрос: Автофильтр - как выделить? Добавлено: 12.04.06 01:16

Автор вопроса: Василий | ICQ: 232691930

Есть ряд колонок с установленым автофильтром.
При использовании фильтра в одной из колонок, кнопка (точнее треугольник в ней)меняет цвет на синий.

Как сделать чтобы менялся цвет в этой ячейке, другими словами необходимо выделить ячеку в которой использован автофильтр.
Чтобы было наглядней.
Заранее спасибо всем кто откликнется.
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #1	Добавлено: 13.04.06 09:37
	Народ! Это вообще возможно или нет? Ответить

Номер ответа: 2 Автор ответа: art ICQ: 275-353-539 Вопросов: 5 Ответов: 6	Профиль \| \| #2	Добавлено: 13.04.06 10:05
	Погодь маленько! ещё непроснулись! Ответить

Номер ответа: 3 Автор ответа: andor Вопросов: 26 Ответов: 37	Web-сайт: Профиль \| \| #3	Добавлено: 13.04.06 10:25
	Я думаю что нет. патаму что нет вазмойности отрабативать собитие филтесково ComboBox Ответить

Номер ответа: 4 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #4	Добавлено: 13.04.06 11:01
	Тогда грустная картина((( Все слепые и слеповатые плачут((( На мониторах с разрешением 1400х1050 цвет треугольничка почти невиден. Синий он там или черный! Ответить

Номер ответа: 5 Автор ответа: andor Вопросов: 26 Ответов: 37	Web-сайт: Профиль \| \| #5	Добавлено: 13.04.06 11:19
	есть другая решения етово проблему. встави на Sheet-е ComboBox и сделай что ти хочеш. если ти не знаеш как програмно филтрац Rows скажи и памагу. я из грузии и извините если чтото синтаксний ошибка есть на момем тексте. Ответить

Номер ответа: 6 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #6	Добавлено: 13.04.06 19:08
	vbhelp cпасибо за ответ и внимание:0) Но я смотрю все Опытные молчат...на форуме Значит задачка не имеет решения. Жалко... По спрошаем в другом месте. Ответить

Номер ответа: 7 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #7	Добавлено: 14.04.06 09:34
	Народ есть решение!!!!! Спасибо "буржуйскому" форуму. Ловите.... You can colour the headings with programming. There's a sample file here: http://www.contextures.com/excelfiles.html Under Filters, look for 'Colour Filter Headings' Vasiliy wrote: > Hello everybody! > Please, help me with Excel. > There is the autofilter (AF) be established on the sheet in 100 > columns. > It is possible to make on VBA that at use AF a cell in which the > condition has been entered was allocated by color, for example yellow? > In program Excel color of a triangle inside the button (black on dark > blue) varies. > At high sanctions of the screen (1400x1050) this change of color is not > visible almost. > Help! > Or inform what is it to make not probably. > Excuse for bad English. > Thanks all who will respond. > > -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html Ответить

Номер ответа: 8 Автор ответа: andor Вопросов: 26 Ответов: 37	Web-сайт: Профиль \| \| #8	Добавлено: 17.04.06 16:02
	Как сделать чтобы менялся цвет в этой ячейке ты гавариш что ти нашол решениа проблем? я так не думаю. вот решения: встави на Sheet-е ComboBox и сделай что ти хочеш Ответить

Номер ответа: 9 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #9	Добавлено: 17.04.06 20:17
	vbhelp ЗАДАЧА - есть ряд ячеек с установленным автофильтром необходимо подсветить (выделить цветом)ту ячейку в которой в ведено УСЛОВИЕ! У меня 100 колонок!! с автофильтром. Не тот случай чтобы устанавливать 100 ComboBox. Хотя в случаи с одной колонкой это подходит. Скопируй код не в модуль а в Sheet Создай масив > установи автофильтр > выбери критерий > получишь результат какой требовался. Решение Private Sub Worksheet_Calculate() Dim af As AutoFilter Dim fFilter As Filter Dim iFilterCount As Integer If ActiveSheet.AutoFilterMode Then Set af = ActiveSheet.AutoFilter iFilterCount = 1 For Each fFilter In af.Filters If fFilter.On Then af.Range.Cells(1, iFilterCount) _ .Interior.ColorIndex = 3 Else af.Range.Cells(1, iFilterCount) _ .Interior.ColorIndex = xlNone End If iFilterCount = iFilterCount + 1 Next fFilter Else Rows(1).EntireRow.Interior.ColorIndex = xlNone End If End Sub Еще раз спасибо! Смотрел твой сайт. Ответить

Номер ответа: 10 Автор ответа: andor Вопросов: 26 Ответов: 37	Web-сайт: Профиль \| \| #10	Добавлено: 17.04.06 20:32
	Смотрел твой сайт грузинский знаеш? Ответить

Номер ответа: 11 Автор ответа: Василий ICQ: 232691930 Вопросов: 1 Ответов: 11	Профиль \| \| #11	Добавлено: 17.04.06 21:45
	Грузинский не знаю. Но Тбилиси понравился я был там 1981 году на спортивных соревнованиях по легкой атлетике. 1983 отдыхал в Мцхети потом через Тбилиси уехали в Сухум. Как давно это было ..... Ответить

Страница: 1 |