Como determinar e identificar o índice da Cor de Fundo das células no Excel?
Quando receber uma folha com múltiplas células coloridas, como na imagem abaixo, poderá, em alguns casos, precisar identificar o índice de Cor de Fundo dessas células. Embora não exista uma funcionalidade incorporada para determinar o código de cor de uma célula, este artigo apresenta alguns códigos VBA que resolvem 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 definir a cor da célula utilizando VBA.
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para abrir um novo Módulo e cole o seguinte código VBA no script em branco. Veja a imagem:
VBA: Obter o 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. Guarde o código e feche a janela do VBA. Selecione uma célula vazia junto à célula colorida, introduza a fórmula =getRGB1(A16) e, em seguida, arraste a alça de preenchimento automático pelas células onde pretende aplicá-la. Veja a imagem:
 |
 |
Dica: Existem outros códigos que permitem identificar o código 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 FunctionResultado:
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 FunctionResultado:
Selecione Facilmente Valores Duplicados ou Únicos no Excel |
Está a trabalhar com um intervalo de dados no Excel e precisa de destacar ou selecionar linhas duplicadas? Com o Kutools para Excel, a funcionalidade Selecionar Células Duplicadas/Únicas permite-lhe identificar rapidamente duplicatas ou valores únicos num intervalo. Além disso, pode aplicar facilmente uma cor de fundo e uma cor de fonte a esses valores, fazendo com que os seus dados se destaquem de forma imediata e sem esforço. |
 |
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e maior produtividade.Obtenha Já |
Artigos relacionados:
- Como alterar a cor da fonte com base no valor da célula no Excel?
- Como destacar valores duplicados ou linhas duplicadas no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos