Есть 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])
Нашел такой вот макрос:
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])