Inquiridor
Fórmula - Contar numeros a vermelho (cor da letra) e negrito

Pergunta
-
Todas as Respostas
-
-
são folhas de ponto para trabalhadores de uma empresa. Pretendia uma fórmula que contasse o nº de turnos (neste caso os números são sempre 1) que estivessem a vermelho e negrito.
Obrigado
- Editado Rita Cruz sexta-feira, 17 de fevereiro de 2017 14:06
-
Embora seja possível, é trabalhoso e de baixo desempenho criar uma fórmula que conte essa formatação.
Teria como você usar um número diferente, como 2? Se não, por que não?
http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG
-
Não posso alterar, cada "1" corresponde a um turno, o mapa é muito mais extenso e tem várias fórmulas associadas, se alterasse o seu preenchimento teria que alterar outras fórmulas que já tenho...
Vou tentar de outra forma. Obrigado na mesma :)
-
Crie uma UDF assim:
Function CONTAR_VERMELHO_NEGRITO(pRange) Dim iCell As Range Dim Result As Long For Each iCell In pRange If iCell.Value2 = 1 Then If iCell.Font.Color = vbRed And iCell.Font.Bold Then Result = Result + 1 End If End If Next iCell CONTAR_VERMELHO_NEGRITO = Result End Function
Use a fórmula na planilha como mostrado abaixo:
=CONTAR_VERMELHO_NEGRITO(A13:Z13)
http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG
-