Saberexcel - o site de quem precisa aprender Macros Microsoft excel VBA

Função personalizada conta cores no interior da célula
Saberexcel - Funções Personalizadas

Esta função conta as do interior de determinada célula que contenham a cor vermelho

Exemplo de fórmula para concatenar valores e a função Usada:
Formula usada : ="Range(C6:C23) contém [ "&ContaVermelho(C6:C23)&" ] células com interior vermelho!"
Retorno fórmula : =Range(C6:C23) contém [ 7 ] células com interior vermelho!

=ContaVermelho(C6:C23)

Function ContaVermelho(cell As Range) As Long
Dim c As Range
For Each c In cell
If c.Interior.ColorIndex = 3 Then ContaVermelho = ContaVermelho + 1
Next
End Function

Esta função tem um parâmetro para voce digitar o range e cor desejada
para que seja verificado e somado o total de células com determinada cor de interior.
♦ Uso da funçao na folha de planilha:
=Conta_Cores(C6:C23;3)
="Range($C$6:$C$23) contém :[ "&Conta_Cores(C6:C23;3) &" ] o total de cores vermelho existentes!!"

Função com Argumento Cores:
=Conta_Cores(C6:C24;3)

Function Conta_Cores(cell As Range, InteriorCores As Byte) As Long
Dim c As Range
For Each c In cell
If c.Interior.ColorIndex = InteriorCores Then Conta_Cores = Conta_Cores + 1
Next
End Function


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Compre Livros, Notebook, Eletrodomesticos, Computadores, Lojas