Код цветов для vba excel - Word и Excel - помощь в работе с программами

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

Стандартная палитра из 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) & «)»

End Sub

Процедура Color56 записывает в ячейку первого столбца индекс цвета, ячейке второго столбца присваивается соответствующая индексу заливка, в ячейку третьего столбца записывается RGB-код соответствующего индексу цвета.

Источник

In this Article

VBA Color Index Codes List
- VBA ColorIndex Examples
VBA Color Property
VB Color
RGB Colors
ColorIndex Codes List & RGB Colors in Access VBA

VBA Color Index Codes List

When using VBA to code the Colorindex (or background color) of a cell it is useful to know what integer will equal what color. Below is a reference picture which shows the color and lists it’s respective Colorindex. aka VBA Color Palette

Here’s the code to make one for yourself, or just bookmark this page:

Sub ColorRef()

Dim x As Integer

For x = 1 To 56
  If x < Then
    Cells(x, 1).Interior.ColorIndex = x
    Cells(x, 2) = x
  Else
    Cells(x - 28, 3).Interior.ColorIndex = x
    Cells(x - 28, 4) = x
  End If
Next x

End Sub

VBA ColorIndex Examples

Set Cell Background Color

This example sets the cell’s background color.

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

Set Cell Font Color

This example sets the cell’s font color.

Range("A1").Font.ColorIndex = 5

Set Cell Borders Color

This example sets the cell’s border color.

Range("A1").Borders.ColorIndex = 5

Get Cell Background ColorIndex

This example gets the cell’s background color and assigns it to an Integer variable.

Dim col as Integer

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

Set a Cell Background Color to Another Cell’s Color

This example sets a cell color equal to another cell color.

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

VBA Color Property

Instead of using Excel / VBA’s ColorIndex property, you can use the Color property. The Color property takes two input types:

vbColor
RGB Colors

We will discuss these below:

VB Color

VB Color is the easiest way to set colors in VBA. However, it’s also the least flexible. To set a color code using vbColor use the table below:

However, as you can see from the table, your options are extremely limited.

Set Cell Background Color

Range("A1").Interior.Color = vbYellow

Set Cell Font Color

Range("A1").Font.Color = vbBlue

Set Cell Borders Color

Range("A1").Borders.Color = vbRed

Set a Cell Background Color to Another Cell’s Color

Range("A1").Interior.Color  = Range("B1").Interior.Color

RGB Colors

RGB stands for Red Green Blue. These are the three primary colors that can be combined to produce any other color. When entering colors as RGB, enter a value between 0 and 255 for each color code.

Here’s an example:

Range("A1").Interior.Color = RGB(255,255,0)

Above we’ve set Red = 255 (max value), Green = 255 (max value), and Blue = 0 (min value). This sets the cell background color to Yellow.

Instead we can set the cell font color to purple:

Range("A1").Interior.Color = RGB(128,0,128)

There are numerous online tools to find the RGB code for your desired color (here’s one).

ColorIndex Codes List & RGB Colors in Access VBA

Access uses forms to display data. You can use the ColorIndex Codes to programmatically change the background color and foreground color of objects in your Access forms.

Private Sub cmdSave_Click()
'change the background color of the save button when the record is saved.
   DoCmd.RunCommand acCmdSaveRecord
   cmdSave.BackColor = vbGreen
End Sub

Источник

Содержание

Список кодов индекса цвета VBA
Свойство цвета VBA
Цвет VB
Цвета RGB
Список кодов ColorIndex и цвета RGB в Access VBA

При использовании VBA для кодирования Colorindex (или цвета фона) ячейки полезно знать, какое целое число будет равно какому цвету. Ниже приведено справочное изображение, на котором показан цвет и указан соответствующий ему Colorindex. он же Цветовая палитра VBA

Вот код, чтобы сделать его для себя или просто добавить эту страницу в закладки:

123456789101112131415

Sub ColorRef ()Dim x As IntegerДля x = от 1 до 56Если x <ТоCells (x, 1) .Interior.ColorIndex = xЯчейки (x, 2) = xЕщеЯчейки (x — 28, 3) .Interior.ColorIndex = xЯчейки (x — 28, 4) = xКонец, еслиДалее xКонец подписки

Примеры VBA ColorIndex

Установить цвет фона ячейки

1	Диапазон («A1»). Interior.ColorIndex = 6

Установить цвет шрифта ячейки

1	Диапазон («A1»). Font.ColorIndex = 5

Установить цвет границ ячеек

1	Диапазон («A1»). Borders.ColorIndex = 5

Получить индекс цвета фона ячейки

123	Dim col как целое числоcol = Range («A1»). Interior.ColorIndex

Установите цвет фона ячейки на цвет другой ячейки

1	Диапазон («A1»). Interior.ColorIndex = Range («B1»). Interior.ColorIndex

Свойство цвета VBA

Вместо использования свойства ColorIndex Excel / VBA вы можете использовать свойство Color. Свойство Color принимает два типа ввода:

vbColor
Цвета RGB

Мы обсудим это ниже:

Цвет VB

VB Color — самый простой способ установить цвета в VBA. Однако он также наименее гибкий. Чтобы установить цветовой код с помощью vbColor, используйте таблицу ниже:

Однако, как видно из таблицы, ваши возможности крайне ограничены.

Установить цвет фона ячейки

1	Диапазон («A1»). Interior.Color = vbYellow

Установить цвет шрифта ячейки

1	Диапазон («A1»). Font.Color = vbBlue

Установить цвет границ ячеек

1	Диапазон («A1»). Borders.Color = vbRed

Установите цвет фона ячейки на цвет другой ячейки

1	Диапазон («A1»). Interior.Color = Range («B1»). Interior.Color

Цвета RGB

RGB означает красный зеленый синий. Это три основных цвета, которые можно комбинировать для получения любого другого цвета. При вводе цветов как RGB введите значение от 0 до 255 для каждого цветового кода.

Вот пример:

1	Диапазон («A1»). Interior.Color = RGB (255,255,0)

Выше мы установили красный = 255 (максимальное значение), зеленый = 255 (максимальное значение) и синий = 0 (минимальное значение). Это устанавливает желтый цвет фона ячейки.

Вместо этого мы можем установить цвет шрифта ячейки на фиолетовый:

1	Диапазон («A1»). Interior.Color = RGB (128,0,128)

Существует множество онлайн-инструментов для поиска кода RGB для желаемого цвета (вот один).

Список кодов ColorIndex и цвета RGB в Access VBA

Access использует формы для отображения данных. Коды ColorIndex можно использовать для программного изменения цвета фона и цвета переднего плана объектов в формах Access.

12345

Частная подпрограмма cmdSave_Click ()’изменить цвет фона кнопки сохранения при сохранении записи.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenКонец подписки

Вы поможете развитию сайта, поделившись страницей с друзьями

Источник

This Excel tutorial collects the VBA color code list for reference purpose, which includes ColorIndex, RGB color, VB color.

VBA Excel ColorIndex Property is to set color or get color for Objects like Cell color and Shape color. ColorIndex offers 56 basic colors plus the following special numbers.

ColorIndex Value	Explanation
-4142 / xlColorIndexNone / xlNone	No fill
-4105 / xlColorIndexAutomatic / xlAutomatic	Default color (white)

Example 1: Set Cell A1 font color to red

Range("A1").Font.ColorIndex = 3

Example 2: Set Cell A1 back color to red

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

Example 3: Set Cell A1 border color to red

Range("A1").Borders.ColorIndex=3

Example 4: Get Cell A1 ColorIndex

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

Excel RGB color

VBA Excel RGB Property is a color Property of Objects, commonly used for Cell color or Shape color.

“RGB” stands for Red Green Blue, which are known as three primary colors, which can be combined to produce other colors. For example, purple is a mix of blue and red. In RGB Property, you need to give a value (from 0 to 255) for each color in order to mix a new color. For example, Red = 255 means the brightness of color red is 100%.

If you try to change a color but you don’t know the color code, you can visit the websites below

http://www.ifreesite.com/color/

http://big-coronasdklua.blogspot.hk/2011/04/rgb.html

Example 1: Set Cell A1 font color to red

Range("A1").Font.Color = RGB(255, 0, 0)

Example 2: Set Cell A1 back color to red

Range("A1").Interior.Color = RGB(255, 0, 0)

Example 3: Set Cell A1 border color to red

Range("A1").Borders.Color = RGB(255, 0, 0)

Excel VB color

The simplest way to apply color is using the VB color name, you don’t have to remember which number represents which color, the the color for your choice is very limited.

Example: Set Cell A1 font color to red

Range("A1").Font.Color = vbRed

Источник

Заливка ячейки цветом в VBA Excel. Фон ячейки. Свойства
.Interior.Color и .Interior.ColorIndex. Цветовая модель RGB. Стандартная
палитра из 56 цветов.

Свойство .Interior.Color объекта Range
- Заливка ячейки цветом в VBA Excel
- Вывод сообщений о числовых значениях цветов
- Использование предопределенных констант
- Цветовая модель RGB
Свойство .Interior.ColorIndex объекта Range

Свойство .Interior.Color объекта Range

Начиная с Excel 2007 основным способом заливки диапазона или
отдельной ячейки цветом (зарисовки, добавления, изменения фона) является
использование свойства .Interior.Color объекта Range путем присваивания
ему значения цвета в виде десятичного числа от 0 до 16777215 (всего
16777216 цветов).

Заливка ячейки цветом в VBA Excel

Пример кода 1:

Sub ColorTest1()

Range("A1").Interior.Color = 31569

Range("A4:D8").Interior.Color = 4569325

Range("C12:D17").Cells(4).Interior.Color = 568569

Cells(3, 6).Interior.Color = 12659

End Sub

Поместите пример кода в свой программный модуль и нажмите кнопку на
панели инструментов «Run Sub» или на клавиатуре «F5», курсор должен быть
внутри выполняемой программы. На активном листе Excel ячейки и
диапазон, выбранные в коде, окрасятся в соответствующие цвета.

Есть один интересный нюанс: если присвоить свойству .Interior.Color
отрицательное значение от -16777215 до -1, то цвет будет
соответствовать значению, равному сумме максимального значения палитры
(16777215) и присвоенного отрицательного значения. Например, заливка
всех трех ячеек после выполнения следующего кода будет одинакова:

Sub ColorTest11()

Cells(1, 1).Interior.Color = -12207890

Cells(2, 1).Interior.Color = 16777215 + (-12207890)

Cells(3, 1).Interior.Color = 4569325

End Sub

Проверено в Excel 2016.

Вывод сообщений о числовых значениях цветов

Числовые значения цветов запомнить невозможно, поэтому часто
возникает вопрос о том, как узнать числовое значение фона ячейки.
Следующий код VBA Excel выводит сообщения о числовых значениях
присвоенных ранее цветов.

Пример кода 2:

Sub ColorTest2()

MsgBox Range("A1").Interior.Color

MsgBox Range("A4:D8").Interior.Color

MsgBox Range("C12:D17").Cells(4).Interior.Color

MsgBox Cells(3, 6).Interior.Color

End Sub

Вместо вывода сообщений можно присвоить числовые значения цветов переменным, объявив их как Long.

Использование предопределенных констант

В VBA Excel есть предопределенные константы часто используемых цветов для заливки ячеек:

Предопределенная константа	Наименование цвета
vbBlack	Черный
vbBlue	Голубой
vbCyan	Бирюзовый
vbGreen	Зеленый
vbMagenta	Пурпурный
vbRed	Красный
vbWhite	Белый
vbYellow	Желтый

Присваивается цвет ячейке предопределенной константой в VBA Excel точно так же, как и числовым значением:

Пример кода 3:

1	`Range("A1").Interior.Color = vbGreen`

Цветовая модель RGB

Цветовая система RGB представляет собой комбинацию различных по
интенсивности основных трех цветов: красного, зеленого и синего. Они
могут принимать значения от 0 до 255. Если все значения равны 0 — это
черный цвет, если все значения равны 255 — это белый цвет.

Выбрать цвет и узнать его значения RGB можно с помощью палитры Excel:

Открывается в новом окне

Палитра Excel

Чтобы можно было присвоить ячейке или диапазону цвет с помощью
значений RGB, их необходимо перевести в десятичное число, обозначающее
цвет. Для этого существует функция VBA Excel, которая так и называется
— RGB.

Пример кода 4:

1	`Range("A1").Interior.Color = RGB(100, 150, 200)`

Свойство .Interior.ColorIndex объекта Range

До появления Excel 2007 существовала только ограниченная палитра для
заливки ячеек фоном, состоявшая из 56 цветов, которая сохранилась и в
настоящее время. Каждому цвету в этой палитре присвоен индекс от 1 до
56. Присвоить цвет ячейке по индексу или вывести сообщение о нем можно с
помощью свойства .Interior.ColorIndex:

Пример кода 5:

1 2	`Range("A1").Interior.ColorIndex = 8` `MsgBox Range("A1").Interior.ColorIndex`

Просмотреть ограниченную палитру для заливки ячеек фоном можно, запустив в VBA Excel простейший макрос:

Пример кода 6:

Sub ColorIndex()

Dim i As Byte

For i = 1 To 56

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

Next

End Sub

Номера строк активного листа от 1 до 56 будут соответствовать индексу
цвета, а ячейка в первом столбце будет залита соответствующим индексу
фоном.

Готовую стандартную палитру из 56 цветов можете посмотреть здесь .

Источник