Destacar Células com Texto Vermelho

Question

Eu tenho uma coluna de texto na qual alguns caracteres (não células) estão em fonte vermelha. Existe alguma maneira de destacar as células que contêm caracteres vermelhos por meio de formatação condicional? As soluções de VBA também estariam bem.

    

Answer 1

Não tenho conhecimento de nenhuma função inerente que verifique a cor individual de cada caractere em uma célula, mas você pode escrever uma em VBA.

Esta função irá percorrer cada caractere e retornará true se um dos caracteres estiver vermelho. Por favor note: Este código só funciona no padrão vermelho que está disponível, não funcionará em todos os tons.

'Only works on the standard Red Colour
Function ContainsRed(CellCheck As Range) As Boolean
    For i = 1 To Len(CellCheck.Value) Step 1
        If CellCheck.Characters(i, 1).Font.Color = vbRed Then
            ContainsRed = True
            Exit Function
        End If
    Next i
    ContainsRed = False
End Function

Após a criação da fórmula, você pode criar uma Nova regra de formatação. Clique na aba inicial, formatação condicional, Nova Regra.

Para uso com a coluna A
Clique na última opção "Usar uma fórmula para determinar quais células devem ser formatadas" e use a fórmula assim: = ContainsRed (A2)
Clique em Ok e altere o valor aplicado para Aplica-se a à coluna desejada. Nesse caso, será $ A: $ A.

Ajuda com a formatação condicional pode ser encontrada aqui

    

Answer 2

Set ws = Sheets("Cost Analysis compare")

For r = 1 To 104
    For c = 1 To 36
        If (ws.Cells(r, c).Font.Color = 255) Then
            ws.Cells(r, c).Interior.ColorIndex = 44
        End If
    Next c
Next r