Como determinar e identificar o índice de cor de fundo das células no Excel?
Quando você recebe uma folha com várias células coloridas conforme a captura de tela mostrada abaixo, em alguns casos, você pode querer identificar o índice de cor de fundo dessas células coloridas. Não há nenhum recurso interno que possa determinar o índice de cor de uma célula, mas, neste artigo, apresento alguns códigos VBA para resolver esse trabalho no Excel rapidamente.
Identifique a cor da célula com VBA
Identifique a cor da célula com VBA
Siga as etapas a seguir para determinar a cor da célula por VBA.
1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para aplicativos janela.
2. Clique inserção > Módulo para abrir um novo Módulo e cole abaixo o código VBA no script em branco. Veja a imagem:
VBA: obtenha 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. 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)e arraste a alça de preenchimento automático sobre as células que deseja usar. Veja a imagem:
Dica: existem alguns 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 rapidamente valores duplicados ou únicos em um intervalo do Excel |
Na planilha do Excel, se você tem um intervalo que inclui algumas linhas duplicadas, você pode precisar selecioná-las ou destacá-las, mas como pode resolver este trabalho rapidamente? Se você tiver Kutools for Excel, você pode usar o Selecione Duplicar e Células Únicas utilitário para selecionar rapidamente os valores duplicados ou únicos no intervalo, ou preencher o fundo e a cor da fonte para os valores duplicados e únicos. Clique para 30 dias de teste grátis! |
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Artigos relativos:
- Como alterar a cor da fonte com base no valor da célula no Excel?
- Como colorir valores duplicados ou linhas duplicadas no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!