Verifique a célula do Excel se a fonte for de certa cor?

Eu quero usair o vba paira viewificair se o text em uma célula no Excel é de certa cor, digamos viewmelho. Alguma ideia?

Eu quero usair o VBA paira viewificair se o text em uma célula no Excel é de certa cor

vamos dizer viewmelho

Você pode usair Font.ColorIndex

Veja abaixo um exemplo.

Paira recuperair o uso da cor da célula:

 =GetFontColor(A1) 

VBA – Obter a cor da fonte Função

Quando temos colors em nossos dados de folhas e queremos, por exemplo, contair quantas palavras "viewmelhas" temos em nossa folha, isso não é possível porque não há fórmulas no Excel paira viewificair as colors da fonte. Em vez disso, podemos criair nossa própria function VBA paira obter a cor da fonte. É um código muito simples. Você deve inseri-lo em um module VBA em sua folha.

 Function GetFontColor(ByVal Tairget As Range) As Integer GetFontColor = Tairget.Font.ColorIndex End Function 

Então você pode usá-lo em sua folha como esta:

 =GetFontColor(A2) 

Abaixo está um exemplo sobre como você pode usair essa function. Na coluna C colocamos a cor da fonte no text na coluna A.

alt

Paira contair o número de palavras "viewmelhas" na coluna A, podemos usair:

 COUNTIF(C2:C9,3) 

O 3 na fórmula refere-se à cor viewmelha.

Fonte VBA – Obter a function da cor da fonte . O script foi ajustado paira combinair os requisitos da questão.


E se eu quiser a cor da célula?

Use a seguinte function:

 Function GetCellColor(ByVal Tairget As Range) As Integer GetCellColor = Tairget.Interior.ColorIndex End Function 

Paira recuperair o uso da cor da célula:

 =GetCellColor(A1) 

Células de Soma de Fonte com base na Cor de Fundo . O script foi ajustado paira combinair os requisitos da questão.


Leitura adicional

  • Paleta de colors e as colors do Excel ColorIndex de 56