|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.03.2012, 15:58 | #1 |
Пользователь
Регистрация: 07.06.2009
Сообщений: 29
|
удалить все кроме выбранного цвета
Добрый день,
появилась необходимость в таком макросе: хотелось бы чтобы при запуске макроса появлялась форма в которой можно было бы выбрать цвет заливки ячейки или цвет шрифта ячейки которые надо оставить, а всю остальную информацию - удалить. желательно - только в выделенном диапазоне. реально и такое сделать? просто можно было бы окрашивать нужную инфу через условное форматирование, а лишнее удалять, но вручную это делать очень долго и нуторно. спасибо |
19.03.2012, 18:08 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Условное форматирование и цвет заливки - это разные вещи.
Вообще сделать конечно можно - но с УФ сложнее будет. Но Вам сперва нужно определится - УФ или заливка, или то и другое? P.S. Это не значит, что я взялся делать - времени мало... Вернее так - с УФ вообще делать не берусь. Посмотрел только что код Дмитрия ActiveCondition() - не, не буду...
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 19.03.2012 в 18:11. |
19.03.2012, 18:24 | #3 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Вам нужен именно Color Picker (палитра), или можно чтобы цвет выбирался путём выделения нужной ячейки?
|
20.03.2012, 11:19 | #4 |
Пользователь
Регистрация: 07.06.2009
Сообщений: 29
|
Добрый день,
интересует именно условное форматирование, пусть даже цвет будет фиксированным, если выбор сделать сложно. тогда буду по условиям закрашивать именно в этот цвет который вы пропишите. а как сделаешь выбор цвета путем ячейки-образца? если я хочу чтобы все это работало только на выделенном диапазоне? |
20.03.2012, 12:47 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Выбор цвета - можно запускать код при уже выделенной области, тогда сперва код запоминает выделение, затем запрашивает инпутбоксом типа 8 "тыркнуть" ячейку с нужным цветом.
Ну или два инпутбокса - сперва область, затем цвет (или наоборот). Но с "по условиям закрашивать" мне непонятно - так это УФ или заливка вручную нужным цветом?
webmoney: E265281470651 Z422237915069 R418926282008
|
20.03.2012, 15:11 | #6 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Как я понял, требуется заливка выделения цветом. Такое можно даже обычной записью макроса сделать:
Код:
Правильно поставленная задача - три четверти решения.
|
20.03.2012, 20:34 | #7 |
Пользователь
Регистрация: 07.06.2009
Сообщений: 29
|
нет, есть таблица данных. я условным форматированием к примеру - закрасить все ячейки которые больше 0 в красный.
после того как они закрасились, я хочу в выделенном диапазоне удалить все кроме красного. реально? |
20.03.2012, 20:35 | #8 | |
Пользователь
Регистрация: 07.06.2009
Сообщений: 29
|
2Hugo121
Цитата:
|
|
21.03.2012, 00:42 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Но обрабатывать УФ сложно - другое дело что можно в выделенной области удалить все, которые не больше 0
Или все не/залитые вручную.
webmoney: E265281470651 Z422237915069 R418926282008
|
23.03.2012, 09:29 | #10 |
Пользователь
Регистрация: 07.06.2009
Сообщений: 29
|
ок, понял. ну если это тяжело,
подскажите как сделать хотя бы так: в выделенном диапазоне удалить все данные с ячеек к которым не было примененно УФ, возможно? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обрезать все кроме цифр, Дельфи | TorchWood | Работа с сетью в Delphi | 8 | 01.08.2015 17:36 |
Запретить все сайты кроме некоторых | DenProx | Безопасность, Шифрование | 9 | 01.11.2011 10:51 |
закрыть все книги, кроме активного | БАХТИ | Microsoft Office Excel | 2 | 22.09.2011 14:58 |
вывести все кроме при условиях | Kek | Microsoft Office Excel | 11 | 23.08.2011 18:12 |
ColorDialog | получить шестандцатеричный код выбранного цвета | T-dayne | Помощь студентам | 9 | 14.03.2010 19:10 |