Como determinar e identificar o índice de cor de fundo das células no Excel?

Quando você recebe uma planilha com várias células coloridas, conforme mostrado na captura de tela abaixo, em alguns casos, pode ser necessário identificar o índice de cor de fundo dessas células coloridas. Não há um recurso embutido que possa determinar o índice de cor de uma célula, mas, neste artigo, apresento alguns códigos VBA para resolver essa tarefa rapidamente no Excel.

Identifique a cor da célula com VBA

Identifique a cor da célula com VBA

Siga os passos abaixo para determinar a cor da célula usando VBA.

1. Pressione Alt + F11 para habilitar a Microsoft Visual Basic for Applications janela.

2. Clique em Inserir > Módulo para abrir um novo Módulo e cole o código VBA abaixo no script em branco. Veja a captura de tela:

VBA: Obter código hexadecimal tradicional da célula

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function

3. Salve o código e feche a janela do VBA. Selecione uma célula em branco ao lado da célula colorida, digite esta fórmula, =getRGB1(A16), depois arraste a alça de preenchimento automático sobre as células que deseja usar. Veja a captura de tela:

Dica: existem outros códigos que podem identificar o índice de cor da célula.

1. VBA: Valor decimal para cada código

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Resultado:

2. VBA: Valores decimais

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

Resultado:

Selecione facilmente valores duplicados ou únicos no Excel

Se você está trabalhando com um intervalo de dados no Excel e precisa destacar ou selecionar linhas duplicadas, como pode gerenciar rapidamente essa tarefa? Com o Kutools para Excel, o recurso Selecionar Células Duplicadas e Únicas permite que você selecione rapidamente duplicatas ou valores únicos em um intervalo. Você também pode aplicar cores de fundo e fonte a essas duplicatas ou valores únicos, fazendo com que seus dados se destaquem sem esforço.

Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora

Artigos Relacionados:

• Como alterar a cor da fonte com base no valor da célula no Excel?
• Como colorir valores duplicados ou linhas duplicadas no Excel?