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

Question

Boa tarde,

Gostaria que me ajudassem a criar uma fórmula para contar números neste caso somente números "1" que estivessem a negrito e a vermelho (cor da letra vermelho). Obrigado Rita Cruz.

Answer 1

Dê um exemplo dos seus dados, por gentileza.

Poderá ter 1, 10 ou aaa1aaa?

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

Answer 2

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

Answer 3

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

Answer 4

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 :)

Answer 5

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

Answer 6

Funcionou na perfeição!!! era mesmo isto vai facilitar muito a leitura dos dados.

Muito Obrigado :)