Excel VBA: Lista de Códigos ColorIndex e Cores RGB

Lista de Códigos de Índice de Cores do VBA

Ao usar o VBA para codificar o Colorindex (ou cor de fundo) de uma célula, é útil saber qual número inteiro equivale a qual cor. Abaixo está uma imagem de referência que mostra a cor e lista seu respectivo Colorindex. também conhecida como paleta de cores VBA.

---

Aqui está o código para você criar uma, ou simplesmente marque esta página como favorita:

Sub ReferenciaCores()

Dim x As Integer

For x = 1 To 56
  If x < 29 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

Exemplos de ColorIndex do VBA

Definir Cor de Fundo da Célula

Este exemplo define a cor de fundo da célula.

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

Definir a Cor da Fonte da Célula

Este exemplo define a cor da fonte da célula.

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

Definir Cor das Bordas da Célula

Este exemplo define a cor da borda da célula.

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

Obter o Índice de Cor de Fundo da Célula

Este exemplo obtém a cor de fundo da célula e a atribui a uma variável Integer.

Dim col as Integer

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

Definir a Cor de Fundo de uma Célula como a Cor de Outra Célula

Este exemplo define uma cor de célula igual à cor de outra célula.

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

Propriedade Color do VBA

Em vez de usar a propriedade ColorIndex do Excel / VBA, você pode usar a propriedade Color. A propriedade Color aceita dois tipos de entrada:

1. vbColor
2. Cores RGB

Discutiremos esses tipos a seguir:

VB Color

O VB Color é a maneira mais fácil de definir cores no VBA. Entretanto, também é a menos flexível. Para definir um código de cor usando vbColor, use a tabela abaixo:

Entretanto, como você pode ver na tabela, suas opções são extremamente limitadas.

Definir Cor de Fundo da Célula

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

Definir a Cor da Fonte da Célula

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

Definir a Cor das Bordas da Célula

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

Definir a Cor de Fundo de uma Célula como a Cor de Outra Célula

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

Cores RGB

RGB significa Red Green Blue (vermelho, verde e azul). Essas são as três cores primárias que podem ser combinadas para produzir qualquer outra cor. Ao inserir cores como RGB, insira um valor entre 0 e 255 para cada código de cor.

Veja um exemplo:

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

Acima, definimos Vermelho = 255 (valor máximo), Verde = 255 (valor máximo) e Azul = 0 (valor mínimo). Isso define a cor de fundo da célula como Amarelo.

Em vez disso, podemos definir a cor da fonte da célula como roxa:

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

Há várias ferramentas on-line para encontrar o código RGB da cor desejada(aqui está uma delas).

Lista de Códigos ColorIndex e Cores RGB no Access VBA

O Access usa formulários para exibir dados. Você pode usar os códigos ColorIndex para alterar programaticamente a cor de fundo e a cor de primeiro plano dos objetos em seus formulários do Access.

Private Sub cmdSalvar_Click()
'altere a cor de fundo do botão Salvar quando o registro for salvo.
   DoCmd.RunCommand acCmdSaveRecord
   cmdSave.BackColor = vbGreen
End Sub