Наименования цветов стандартной палитры 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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
‘Функция, преобразующая десятичный код цвета в аргументы 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) & «)» Next 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 = 6Set Cell Font Color
This example sets the cell’s font color.
Range("A1").Font.ColorIndex = 5Set Cell Borders Color
This example sets the cell’s border color.
Range("A1").Borders.ColorIndex = 5Get 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.ColorIndexSet 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.ColorIndexVBA 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 = vbYellowSet Cell Font Color
Range("A1").Font.Color = vbBlueSet Cell Borders Color
Range("A1").Borders.Color = vbRedSet a Cell Background Color to Another Cell’s Color
Range("A1").Interior.Color = Range("B1").Interior.ColorRGB 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
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
- Свойство цвета 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Конец подписки |
Вы поможете развитию сайта, поделившись страницей с друзьями
Заливка ячейки цветом в 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:
|
1 2 3 4 5 6 |
|
Поместите пример кода в свой программный модуль и нажмите кнопку на
панели инструментов «Run Sub» или на клавиатуре «F5», курсор должен быть
внутри выполняемой программы. На активном листе Excel ячейки и
диапазон, выбранные в коде, окрасятся в соответствующие цвета.
Есть один интересный нюанс: если присвоить свойству .Interior.Color
отрицательное значение от -16777215 до -1, то цвет будет
соответствовать значению, равному сумме максимального значения палитры
(16777215) и присвоенного отрицательного значения. Например, заливка
всех трех ячеек после выполнения следующего кода будет одинакова:
|
1 2 3 4 5 |
|
Проверено в Excel 2016.
Вывод сообщений о числовых значениях цветов
Числовые значения цветов запомнить невозможно, поэтому часто
возникает вопрос о том, как узнать числовое значение фона ячейки.
Следующий код VBA Excel выводит сообщения о числовых значениях
присвоенных ранее цветов.
Пример кода 2:
|
1 2 3 4 5 6 |
|
Вместо вывода сообщений можно присвоить числовые значения цветов переменным, объявив их как Long.
Использование предопределенных констант
В VBA Excel есть предопределенные константы часто используемых цветов для заливки ячеек:
| Предопределенная константа | Наименование цвета |
| vbBlack | Черный |
| vbBlue | Голубой |
| vbCyan | Бирюзовый |
| vbGreen | Зеленый |
| vbMagenta | Пурпурный |
| vbRed | Красный |
| vbWhite | Белый |
| vbYellow | Желтый |
Присваивается цвет ячейке предопределенной константой в VBA Excel точно так же, как и числовым значением:
Пример кода 3:
|
1 |
|
Цветовая модель RGB
Цветовая система RGB представляет собой комбинацию различных по
интенсивности основных трех цветов: красного, зеленого и синего. Они
могут принимать значения от 0 до 255. Если все значения равны 0 — это
черный цвет, если все значения равны 255 — это белый цвет.
Выбрать цвет и узнать его значения RGB можно с помощью палитры Excel:
Открывается в новом окне
Чтобы можно было присвоить ячейке или диапазону цвет с помощью
значений RGB, их необходимо перевести в десятичное число, обозначающее
цвет. Для этого существует функция VBA Excel, которая так и называется
— RGB.
Пример кода 4:
|
1 |
|
Свойство .Interior.ColorIndex объекта Range
До появления Excel 2007 существовала только ограниченная палитра для
заливки ячеек фоном, состоявшая из 56 цветов, которая сохранилась и в
настоящее время. Каждому цвету в этой палитре присвоен индекс от 1 до
56. Присвоить цвет ячейке по индексу или вывести сообщение о нем можно с
помощью свойства .Interior.ColorIndex:
Пример кода 5:
|
1 2 |
|
Просмотреть ограниченную палитру для заливки ячеек фоном можно, запустив в VBA Excel простейший макрос:
Пример кода 6:
|
1 2 3 4 5 6 |
|
Номера строк активного листа от 1 до 56 будут соответствовать индексу
цвета, а ячейка в первом столбце будет залита соответствующим индексу
фоном.
Готовую стандартную палитру из 56 цветов можете посмотреть здесь .