Индексы цветов vba excel

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:

1. vbColor
2. 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 для кодирования Colorindex (или цвета фона) ячейки полезно знать, какое целое число будет равно какому цвету. Ниже приведено справочное изображение, на котором показан цвет и указан соответствующий ему Colorindex. он же Цветовая палитра VBA

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

Примеры VBA ColorIndex

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

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

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

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

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

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

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

1. vbColor
2. Цвета RGB

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

Цвет VB

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

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

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

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

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

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

Цвета RGB

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

Вот пример:

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

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

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

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

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

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

What is
Color Index Property?

The Excel VBA Color Index is used to change the color for
the cell or range of cells or text (located under the Font section). It sets
the color for Excel objects like cell color or shapes color. The Colo index
function also helps to fill the borders, cell background, and font colors.  It provides a unique identification for a
different type of colors.    

This function accepts 56 colors and 2 special colors (xlColorIndexAutomatic,
xlColorIndexNone) which are as follows:

• 2 special color

• 56 Basic Colors

Syntax

1. ColorIndex property of Excel VBA: This syntax
   is used for setting or returning the index color value for the specified Excel
   Objects.

Expression.ColorIndex

• ColorIndex property to store or fetch Index
  value: This VBA Syntax to fetch the index color value for the excel sheet’s
  Font, Border, or Interior Color and store it another Variable:

dblColorValue= expression.ColorIndex

• Set ColorIndex value to Excel Objects:
  This syntax enables the user to fill or modify the colors of Excel objects.

expression.ColorIndex= IndexValue (1 t0 56/ -4105/ -4142)

• To set interior background: The
  following VBA syntax is used to fill the background color for the specified
  range of cells.

expression.Interior.ColorIndex= IndexValue (1 t0 56/ -4105/ -4142)

• To set the border color: The
  following VBA syntax is used to fill the borders color for the Excel data.

expression.Borders.ColorIndex= IndexValue (1 t0 56/ -4105/ -4142)

• To set the Font color: This syntax is
  used to fill the font colors.

expression.Font.ColorIndex= IndexValue (1 t0 56/ -4105/ -4142)

VBA code for ColorIndex Table

ColorIndex property 56 color shades. Let’s check all the
shades through the VBA code. Below is the code to run a code for printing the
Index colors in your Excel sheet:

Code:

Sub Colr_Indx_Table()
  Dim rCount As Byte, cCount As Byte
  Dim Colr_Indx As Byte
  Colr_Indx = 1
      'Row Counter 
      For rCount = 1 To 14
          'Column Counter
          For cCount = 1 To 4 
              'specifying the colors for the specified cell
              Cells(rCount, cCount).Interior.ColorIndex = Colr_Indx
              Colr_Indx = Colr_Indx + 1
              If Colr_Indx > 52 Then
              'Exiting out the loop
              GoTo jmp
              End If
          'Jumping to Next row 
          Next
      Next
 jmp:
  End Sub          

Output

Changing Font Color through VBA ColorIndex

Font options can be manually changed from the Home tab of
Excel Ribbon Toolbar. But you can even automate this task and select
appropriate Index colors using ColorIndex property of Font Object.

Example 1: To change the font color

Code:

Sub ColorIndex_FontColor()
     'Assigning Font color for the specified range to Index 32
     Range("A1:D14").Font.ColorIndex = 32
 End Sub 

Output

Example
2: To set default font color i.e., Black

We can set the default font color for the text by using
-4105 enumeration.

Code:

Sub ColorIndex_DeafultFontColor()
     'Assigning Font color for the specified range to default black color
     'by using -4105 enumeration
     Range ("A1:D14").Font.ColorIndex = -4105
 End Sub 

Output

Example
3: Set Font Color to None

Excel font color can not be set to none. In the below
example, you will notice that the code has successfully run, but there is no
change in the font color. The ColorIndex -4142 does works with font objects.
Hence, there would be no effect.

Code:

Sub ColorIndex_NoneFontColor()
     'Assigning Font color for the specified range to -4142 enumeration
     Range("A1:D14").Font.ColorIndex = -4142
 End Sub 

Output

Before running the code

After running the code

 Background Color in VBA Excel

VBA
ColorIndex property also enables us to fill or modify the background (interior
of cell) color using the ColorIndex property of Interior object.

Example
1: To set background color with Index color 52

Code:

Sub ColorIndex_BackgroundColor()
     'Assigning background color for the specified range to Index 52
     Range("A1:D14").Interior.ColorIndex = 52
 End Sub 

Output

Example
2: Default background color

The
ColorIndex property can also enable you to set the default color in the
background. For this, we can set the Interior.ColorIndex property to -4105
enumeration. It will eliminate the present BG color also remove the gridlines
for the specified range of cells.

Code:

Sub ColorIndex_DeaultBackgroundColor()
     'Clearing the background color for the specified cell
     Range("A1:D14").Interior.ColorIndex = -4105
 End Sub 

Output

Example 3: To set Background Index color to none

Many times, it required to clear the color formatting and
set the color to none. For this, we can set the Interior.ColorIndex property to
-4105 enumeration. It will automatically clear the background for the selected
range of cells.

Code:

Sub ColorIndex_ClearBckgroundColor()
     'Clearing the background color for the specified cell
     Range("A1:D14").Interior.ColorIndex = -4142
 End Sub 

Output

Before Running the code

After Running the code

Border
Color in Excel

ColorIndex property also enables you to change or alter the
colors for the borders. The ‘Borders’ object is used to set this property.

Example
1: Setting the border color to Index 42

Code:

Sub ColorIndex_ChangingBorderColor()
     'changing the border color for the specified range to Index 42
     Range("A1:D14").Borders.ColorIndex = 42
 End Sub 

Output

Example 2: Using Default Border Color

The default border color, i.e., Black, can be achieved by
assigning the Borders.ColorIndex value to -4105 enumeration.

Code:

Sub ColorIndex_DefaultBorderColor()
     'Enabling the default border color by using Index -4105
     Range("A1:D14").Borders.ColorIndex = -4105
 End Sub 

Output

Example 3— Filling No Border color

We can clear the borders colors by assigning the
Borders.ColorIndex value to -4105 enumeration. Thus, the borders will no more
be visible.

Code:

Sub ColorIndex_FillNoBorderColor()
     'Filling no border color by using Index -4142 enumeration
     Range("A1:D14").Borders.ColorIndex = -4142
 End Sub 

Output

ColorIndex
Error Handling

The ColorIndex method can only take the predefined 56 index
values and 2 other enumerations ( -4105 enumeration, -4142 enumeration). If you
assign any other value apart from these, it will throw ‘Subscript out of Range’
error while running the code.

Code:

Sub ColorIndex_Error()
     'Assigning border color for the specified range to Index 142
     Range("A1:D14").Borders.ColorIndex = 142
 End Sub 

Output