Contar cor e texto


#1

Bom dia,
Pretendo saber se existe alguma formula que conte pela cor e pelo texto dentro da célula.Na planilha tenho um horário escolar mensal, e por exemplo:

Na 2ªfeira tenho ás 8.30h. português, ás 9.30h. inglês, ás 10.30h. francês,etc. Cada célula tem o português, o inglês e o francês, e quando a aluno falta, eu pinto a célula de azul(justificada) ou vermelha(injustificada) na hora que ele falta. O que pretendo é uma formula que conte as vezes em que o português está azul, ou vermelho, assim como qualquer outra disciplina.Junto em anexo o horário.
Agradeço desde já as possiveis respostas.


#2

É possivel usando o VBA. O código abaixo ajuda. Para mais detalhes, pode entrar em contato.

Sub Cor()
'Checar quantas células em um intervalo estão na cor da célula A1

Dim Cor As Variant 'Cria a variável que reconhecerá a cor da célula de referência
Dim i, j As Long 'Cria as varáveis de linha e coluna
Dim teste As Integer
Dim Contador As Integer
Dim L_in, L_fin, Col_in, Col_fin As Integer 'Cria as variáveis que representaram o range de análise

'Seleciona a célula de referência
Range(“A1”).Select
'Reconhece o atributo cor da célula de referência
Cor = Range(“A1”).Interior.Color

L_in = Range(“F2”).Value
L_fin = Range(“G2”).Value
Col_in = Range(“F3”).Value
Col_fin = Range(“G3”).Value

i = L_in
Contador = 0
Do While i <= L_fin

j = Col_in
Do While j <= Col_fin
    
    If Cells(i, j).Interior.Color = Cor Then
    teste = 1
    Else: teste = 0
    
    End If
    Contador = Contador + teste
j = j + 1
Loop

i = i + 1
Loop

Range(“A1”).Value = Contador

End SubTexto pré-formatado