Contar / somar os valores da célula com base na cor de fundo / fonte

Question

Eu tenho um intervalo que contém diferentes conteúdos com cores diferentes. Eu quero contar as células com a mesma cor de fonte. Como eu posso fazer ? respeita

    

Answer 1

Aqui está um código do Visual Basic que realiza essa tarefa. Encontrou-o em este site.

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

Para criar a função CountColour, pressione ALT-F11 , depois Insert- > Module , e escreva a função acima nessa janela e salve-a. Para usar a função, use esta sintaxe na célula onde você quer que seus dados sejam exibidos: = CountColour (XX: YY, ZZ) onde XX: YY representa o intervalo de células que você quer contar, e ZZ sendo uma célula cuja cor você deseja contar no intervalo dado.