Índice de cores VBA do Excel
Como em uma planilha, mudamos a cor de uma célula ou um determinado intervalo de células na guia inicial do VBA. Temos uma função vba chamada Índice de Cores que é usada para alterar as cores das células ou o intervalo de células fornecido, esta função tem identificação única para diferentes tipos de cores.
No VBA, temos duas formas de aplicar a cor, a primeira é usando a propriedade “color” e a segunda usando a propriedade “ColorIndex”.
Aplicamos a cor à célula como cor de fundo, aplicamos a cor da fonte e aplicamos a cor da borda. Portanto, para acessar a propriedade de cor e índice de cor, precisamos primeiro selecionar a célula.

Como usar a propriedade de índice de cores e cores?
# 1 - Usando a propriedade da cor
Suponha que você tenha a palavra “Hello” na célula A1. Veremos como aplicar a cor de fundo desta célula.

Para mudar a cor de fundo, nas propriedades de cor, precisamos primeiro mencionar o intervalo da célula.
Código:
Sub Color () Range ("A1") End Sub

Depois de selecionar a célula, precisamos mencionar o que precisamos fazer. Como eu disse, precisamos mudar a cor interna da célula. Portanto, para alterar a cor de fundo da célula, use a propriedade “Interior”.
Código:
Intervalo de subcor () ("A1"). Interior End Sub

Em Propriedade interior, temos vários outros métodos e propriedades. Como precisamos mudar a cor da célula, use a propriedade color.
Código:
Intervalo de subcor () ("A1"). Interior.Color = End Sub

Aqui podemos usar 8 cores com nomes constantes. Abaixo está a lista dos mesmos.
vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhiteSelecione o tipo de cor conforme seu desejo.
Código:
Intervalo de subcor () ("A1"). Interior.Color = vbBlue End Sub

Se eu executar este código usando a tecla F5 ou manualmente, ele mudará a cor de fundo da célula A1 para valor .

Assim, você pode usar outras cores nomeadas constantes. Tente usá-los para testar o resultado.
Além dessas 8 cores constantes, também podemos preencher com cores diferentes usando a função RGB em VBA.
Código:
Intervalo de subcor () ("A1"). Interior.Color = RGB (End Sub

Precisamos inserir a mistura de vermelho, verde e azul em números. Para usar isso, você deve ser perfeito ao inserir os números. Eu inseri a mistura como RGB (250, 200, 150).
Código:
Intervalo de subcor () ("A1"). Interior.Color = RGB (250, 200, 150) End Sub

A mudança dessa cor é assim.

O problema aqui é que você não sabe exatamente qual número contém a cor.
O código abaixo é para mudar a cor da fonte.
Código:
Sub Color_Font () Intervalo ("A1"). Font.Color = RGB (100, 400, 100) End Sub

Execute este código usando a tecla F5 ou manualmente para obter o resultado.

# 2 - Usando a propriedade de índice de cores
O índice de cores é ligeiramente diferente da propriedade de cores. Na propriedade COLOR, usamos 8 cores constantes fornecidas pelo VBA e também usando a função RGB, criamos nossa própria cor.
A propriedade COLOR INDEX é limitada no VBA. Ele pode conter os valores de 1 a 56. Cada número de 1 a 56 contém cores diferentes. Abaixo estão os números da lista e suas respectivas cores.

Abaixo está o código de macro para alterar a cor de fundo da célula A1 para rosa.
Código:
Sub ColorIndex_Cell () Range ("A1"). Interior.ColorIndex = 26 End Sub

Execute este código manualmente ou usando a tecla F5 para ver o resultado.

Abaixo está o código de macro para alterar a cor da fonte da célula A1 para amarelo.
Código:
Sub ColorIndex_Font () Range ("A1"). Font.ColorIndex = 27 End Sub

Execute este código usando a tecla F5 ou você pode executar manualmente e ver o resultado.

Uma das coisas importantes a lembrar aqui é que podemos inserir números de 1 a 56. Se algo mais do que 56, obteremos o erro “Subscrito fora do intervalo”.

Você observou?
Como falei no Color Index, a propriedade pode inserir apenas 56 cores, mas o fato é que ela pode inserir apenas 46 cores exclusivas, sendo que há 10 cores duplicadas. Abaixo está a lista de códigos de cores duplicados.
