VBA Excel. Стандартная палитра из 56 цветов

Наименования цветов стандартной палитры Excel из 56 оттенков на русском и английском языках. Соответствие цветов индексам VBA и их RGB и HEX коды.

Содержание

1. Стандартная палитра из 56 цветов

2. Наименования 56 цветов палитры

3. RGB и HEX коды оттенков палитры

4. Процент черного в оттенках серого

5. Вывод 56-цветной палитры на лист

Стандартная палитра из 56 цветов

Стандартная палитра из 56 цветов — это ограниченная палитра оттенков, которая существовала до версии Excel 2007 года, но продолжает использоваться до сих пор.

За ограниченную палитру в VBA Excel отвечает свойство ColorIndex, которое используется для записи и чтения:

Sub Primer()

Range("A1").Interior.ColorIndex = 10

MsgBox Range("A1").Interior.ColorIndex

End Sub

Свойство ColorIndex принимает и возвращает значения от 1 до 56.

Наименования 56 цветов палитры

Наименования 56 цветов стандартной ограниченной палитры Excel на русском и английском языках:

Индекс	Наименование по-русски	Наименование по-английски
1	Черный	Black
2	Белый	White
3	Красный	Red
4	Лайм	Lime
5	Синий	Blue
6	Желтый	Yellow
7	Фуксия*	Fuchsia*
8	Цвет морской волны	Aqua
9	Темно-бордовый	Maroon
10	Зеленый	Green
11	Темно-синий	Navy blue
12	Оливковый	Olive
13	Пурпурный	Purple
14	Бирюзовый	Teal
15	Серебряный	Silver
16	Серый	Gray
17	Светло-пурпурно-синий	Light purple blue
18	Розовато-лиловый	Mauve
19	Бледно-желто-зеленый	Pale yellow green
20	Бледно-голубой	Pale blue
21	Сливовый	Plum
22	Лососевый	Salmon
23	Темно-сине-голубой	Light navy blue
24	Барвинок	Periwinkle
25	Темно-синий	Navy blue
26	Фуксия*	Fuchsia*
27	Желтый	Yellow
28	Цвет морской волны	Aqua
29	Пурпурный	Purple
30	Коричнево-малиновый	Maroon
31	Сине-зеленый	Teal
32	Синий	Blue
33	Небесно-голубой	Vivid sky blue
34	Бледно-голубой	Pale blue
35	Бледно-зеленый	Pale green
36	Светло-желтый	Light yellow
37	Сине-голубой	Shade of blue
38	Бледно-пурпурно-розовый	Pale magenta pink
39	Светло-сиреневый	Light lilac
40	Оранжево-персиковый	Peach-orange
41	Светло-синий	Light blue
42	Светло-бирюзовый	Light turquoise
43	Желто-зеленый	Yellow green
44	Желтый мандарин	Tangerine yellow
45	Сигнальный оранжевый	Safety orange
46	Оранжевый	Orange
47	Темно-сине-серый	Dark blue gray
48	Светло-серый	Light gray
49	Полуночно-синий	Midnight blue
50	Зеленая трава	Green grass
51	Темно-зеленый	Dark green
52	Темно-коричневый	Dark brown
53	Темно-красный	Dark red
54	Розовато-лиловый	Mauve
55	Синий пигмент	Blue pigment
56	Темный уголь	Dark charcoal

* Вместо термина Фуксия (Fuchsia) можно использовать термин Маджента (Magenta), так как в RGB-модели Фуксия и Маджента являются одним и тем же цветом.

Обратите внимание, что в стандартной палитре Excel из 56 цветов есть повторяющиеся оттенки. Наименования цветов (по их HEX-кодам) подобраны, главным образом, по статьям, опубликованным в Википедии.

RGB и HEX коды оттенков палитры

RGB и HEX коды оттенков 56-цветной палитры Excel:

Индекс	Код HEX	Код RGB
1	#000000	RGB(0, 0, 0)
2	#ffffff	RGB(255, 255, 255)
3	#ff0000	RGB(255, 0, 0)
4	#00ff00	RGB(0, 255, 0)
5	#0000ff	RGB(0, 0, 255)
6	#ffff00	RGB(255, 255, 0)
7	#ff00ff	RGB(255, 0, 255)
8	#00ffff	RGB(0, 255, 255)
9	#800000	RGB(128, 0, 0)
10	#008000	RGB(0, 128, 0)
11	#000080	RGB(0, 0, 128)
12	#808000	RGB(128, 128, 0)
13	#800080	RGB(128, 0, 128)
14	#008080	RGB(0, 128, 128)
15	#c0c0c0	RGB(192, 192, 192)
16	#808080	RGB(128, 128, 128)
17	#9999ff	RGB(153, 153, 255)
18	#993366	RGB(153, 51, 102)
19	#ffffcc	RGB(255, 255, 204)
20	#ccffff	RGB(204, 255, 255)
21	#660066	RGB(102, 0, 102)
22	#ff8080	RGB(255, 128, 128)
23	#0066cc	RGB(0, 102, 204)
24	#ccccff	RGB(204, 204, 255)
25	#000080	RGB(0, 0, 128)
26	#ff00ff	RGB(255, 0, 255)
27	#ffff00	RGB(255, 255, 0)
28	#00ffff	RGB(0, 255, 255)
29	#800080	RGB(128, 0, 128)
30	#800000	RGB(128, 0, 0)
31	#008080	RGB(0, 128, 128)
32	#0000ff	RGB(0, 0, 255)
33	#00ccff	RGB(0, 204, 255)
34	#ccffff	RGB(204, 255, 255)
35	#ccffcc	RGB(204, 255, 204)
36	#ffff99	RGB(255, 255, 153)
37	#99ccff	RGB(153, 204, 255)
38	#ff99cc	RGB(255, 153, 204)
39	#cc99ff	RGB(204, 153, 255)
40	#ffcc99	RGB(255, 204, 153)
41	#3366ff	RGB(51, 102, 255)
42	#33cccc	RGB(51, 204, 204)
43	#99cc00	RGB(153, 204, 0)
44	#ffcc00	RGB(255, 204, 0)
45	#ff9900	RGB(255, 153, 0)
46	#ff6600	RGB(255, 102, 0)
47	#666699	RGB(102, 102, 153)
48	#969696	RGB(150, 150, 150)
49	#003366	RGB(0, 51, 102)
50	#339966	RGB(51, 153, 102)
51	#003300	RGB(0, 51, 0)
52	#333300	RGB(51, 51, 0)
53	#993300	RGB(153, 51, 0)
54	#993366	RGB(153, 51, 102)
55	#333399	RGB(51, 51, 153)
56	#333333	RGB(51, 51, 51)

RGB-коды можно использовать в VBA Excel наряду с индексами цветов стандартной палитры, а HEX-коды — в HTML.

Процент черного в оттенках серого

Процентное соотношение черного цвета в оттенках серого:

Индекс	Наименование	Процент черного
1	Черный	100%
2	Белый	0%
15	Серебряный	25%
16	Серый	50%
48	Светло-серый	40%
56	Темный уголь	80%

Вывод 56-цветной палитры на лист

Вывод на рабочий лист Excel 56-цветной палитры с помощью кода VBA:

'Функция, преобразующая десятичный код цвета в аргументы RGB

Function DecToRGB(ByVal ColDec As Long) As String

Dim r As Long

Dim g As Long

Dim b As Long

r = (ColDec And &HFF&) \ 256 ^ 0

g = (ColDec And &HFF00&) \ 256 ^ 1

b = ColDec \ 256 ^ 2

DecToRGB = CStr(r) & ", " & CStr(g) & ", " & CStr(b)

End Function

'Вывод 56-цветной палитры на активный лист

Sub Color56()

Dim i As Integer

For i = 1 To 56

Cells(i, 1) = i

Cells(i, 2).Interior.ColorIndex = i

Cells(i, 3).Value = "RGB(" & DecToRGB(Cells(i, 2).Interior.Color) & ")"