none
Contar quantidades de celulas com cores de letras com formatacao condicional. RRS feed

  • Pergunta

  • Bom dia.

    Fiz uma rotina para contar quantidades de celulas com letras predeterminadas com formatacao condicional, mas percebi que a rotina so funciona para letras coloridas manualmente.

    A rotina esta abaixo ilustrado, onde o usuario escolhe a area que deseja ser feita a contagem.

    Tem como alterar a rotina para contar celulas com letras que sejam de cor por formatcao condicional ou colorida manualmente?

    Desde ja agradeco.

    Tadao

    Sub colourcount1()
    Dim area As Range, Man As Integer, Woman As Integer, rng As Range
    Set area = Application.InputBox("Delimite a Area Desejada com Mouse", Type:=8)
    For Each rng In area
    
            If rng.Font.ColorIndex = 23 And VarType(rng.Value) = 8 Then
                    Man = Man + 1
            ElseIf rng.Font.ColorIndex = 3 And VarType(rng.Value) = 8 Then
                    Woman = Woman + 1
                    
            End If
    Next rng
    MsgBox "Dentro da Area Selecionada tem : " & vbNewLine & vbNewLine & _
           Man & " Homens" & vbNewLine & _
           Woman & " Mulheres" & vbNewLine & vbNewLine & _
           Man + Woman & " pessoas no Total", vbOKOnly + vbInformation
           
    End Sub

    domingo, 16 de junho de 2019 12:46