Выделяем диапазон ячеек, в которых в виде значений указаны числа от 1 до 100, в разном порядке. И макрос закрашивает их цветом по определенным правилам: От 1 до 12 -- оттенки красного, где 1 -- самый красный. от 13 до 36 -- оттенки оранжевого, где 25 -- самый оранжевый. от 37 до 62 -- оттенки зеленого, где 50 -- самый зеленый. от 63 до 86 -- оттенки синего, где 75 -- самый синий. от 87 до 100 -- оттенки фиолетового, где 100 -- самый фиолетовый.
Идея в том, что цвета плавно переходят один в другой от красного, в оранжевый, затем зеленый, синий и фиолетовый, с контрольными точками на 1, 25, 50, 75 и 100.
Я не знаю, возможно ли это сделать просто, чтобы сильно не заморачиваться и не указывать каждый цвет для каждого значения в макросе (или проще указать вручную?). Либо через RGB параметры цвета, или через шестнадцатеричные значения.
Не обязательно использовать именно такую последовательность цветов. Если уже есть последовательность цветов, плавно переходящих друг в друга со 100 значениями -- скорее всего подойдет тоже.
В файле во вложении, я выделяю диапазон D4-W17 и макрос закрашивает ячейки таблицы по алгоритму.
Из хотелок -- возможно ли будет прописать параметр "прозрачность", чтобы я мог регулировать интенсивность цветов при работе макроса?
Не знаю, можно ли писать здесь так, но готов угостить кофе, или пивом за работающий макрос.
Здравствуйте.
Возможно ли сделать такой макрос?
Выделяем диапазон ячеек, в которых в виде значений указаны числа от 1 до 100, в разном порядке. И макрос закрашивает их цветом по определенным правилам: От 1 до 12 -- оттенки красного, где 1 -- самый красный. от 13 до 36 -- оттенки оранжевого, где 25 -- самый оранжевый. от 37 до 62 -- оттенки зеленого, где 50 -- самый зеленый. от 63 до 86 -- оттенки синего, где 75 -- самый синий. от 87 до 100 -- оттенки фиолетового, где 100 -- самый фиолетовый.
Идея в том, что цвета плавно переходят один в другой от красного, в оранжевый, затем зеленый, синий и фиолетовый, с контрольными точками на 1, 25, 50, 75 и 100.
Я не знаю, возможно ли это сделать просто, чтобы сильно не заморачиваться и не указывать каждый цвет для каждого значения в макросе (или проще указать вручную?). Либо через RGB параметры цвета, или через шестнадцатеричные значения.
Не обязательно использовать именно такую последовательность цветов. Если уже есть последовательность цветов, плавно переходящих друг в друга со 100 значениями -- скорее всего подойдет тоже.
В файле во вложении, я выделяю диапазон D4-W17 и макрос закрашивает ячейки таблицы по алгоритму.
Из хотелок -- возможно ли будет прописать параметр "прозрачность", чтобы я мог регулировать интенсивность цветов при работе макроса?
Не знаю, можно ли писать здесь так, но готов угостить кофе, или пивом за работающий макрос.pavelselected
предлагаю такой вариант: Лист шаблон, на нем Правила условного форматирования, их Вы можете менять по собственному усмотрению, на листе с числами выделяете диапазон и запускаете макрос. [vba]
Код
Sub u_701() Application.ScreenUpdating = False For Each u In Selection u_1 = True 'неточный поиск 'u_1 = False 'точный поиск u_2 = Application.Match(u, Sheets("Шаблон").Range("a1:a101"), u_1) u_3 = Application.IsNumber(u_2) If u_3 Then u_4 = Sheets("Шаблон").Range("a" & u_2).DisplayFormat.Interior.Color u.Interior.Color = u_4 End If Next Application.ScreenUpdating = True End Sub
[/vba]
предлагаю такой вариант: Лист шаблон, на нем Правила условного форматирования, их Вы можете менять по собственному усмотрению, на листе с числами выделяете диапазон и запускаете макрос. [vba]
Код
Sub u_701() Application.ScreenUpdating = False For Each u In Selection u_1 = True 'неточный поиск 'u_1 = False 'точный поиск u_2 = Application.Match(u, Sheets("Шаблон").Range("a1:a101"), u_1) u_3 = Application.IsNumber(u_2) If u_3 Then u_4 = Sheets("Шаблон").Range("a" & u_2).DisplayFormat.Interior.Color u.Interior.Color = u_4 End If Next Application.ScreenUpdating = True End Sub
Nic70y, Работает) Если у меня будет много листов, то лист с Шаблоном может быть в любом месте, не будет влиять то, находится он сразу за активным листом, или где-нибудь в конце очереди?
Отправил благодарность, спасибо)
Nic70y, Работает) Если у меня будет много листов, то лист с Шаблоном может быть в любом месте, не будет влиять то, находится он сразу за активным листом, или где-нибудь в конце очереди?
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
