Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Как закрасить ячейку в excel по коду RGB в этой ячейке? (макрос)

Михаил Лесненко Ученик (103), закрыт 9 лет назад
Есть RGB код цвета в HEX, нужно с помощью макроса пройтись по столбцу и раскрасить ячейки с кодами.
Нашел такой вот макрос:
Sub color()
Range("A1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = RGB([b1], [c1], [d1])
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Он закрашивает одну ячейку используя DEC значения цветов по отдельности из ячеек рядом
Можно и разложить цвет, но удобно было бы использовать HEX
Пробовал поставить для Range("A1").Select диапазон ячеек Range("A1:A100").Select
Но не знаю как заставить макрос брать цвет не из одних и тех же ячеек .Color = RGB([b1], [c1], [d1])
Лучший ответ
Пауль Высший разум (2797580) 9 лет назад
Закрасить ячейку по условию или формуле

http://myblaze.ru/kak-v-excel-zakrasit-yacheyku-po-usloviyu-ili-formule/
Источник: Инструкция для Excel
Остальные ответы
Александр Сизенко Просветленный (39981) 9 лет назад
Range("A1").Interior.Color = RGB(255, 0, 0)
ставите свои значения цвета
функция - одна строка
Михаил ЛесненкоУченик (103) 9 лет назад
Мне нужно что бы цвет брался из ячейки, а не указывался в ручную
Александр Сизенко Просветленный (39981) ну так прочтите значение цвета фона из нужной ячейки - это ничего не меняет
Кара Светоносная Ученик (241) 9 лет назад
Формулы для чего?
Михаил ЛесненкоУченик (103) 9 лет назад
Это VBA макрос в экселе
Я Я Мыслитель (5291) 9 лет назад
Range("A1").Interior.Color = Range("B1").Interior.Color

Считывает цвет из ячейки В1 и закрашивает этим цветом ячейку А1.
Таточка Профи (578) 9 лет назад
Range("A1").Interior.Color = Range("B1").Interior.Color
Похожие вопросы