как подсчитать ячейки с условным форматированием цвета шрифта - PullRequest
0 голосов
/ 31 октября 2019

Этот код выполняется в течение 3 секунд без ошибок. но я не получаю результатов. у меня должно быть более 1000 штук с красным цветом шрифта.

Sub Count_Flanges()

    Application.ScreenUpdating = False

    Dim Rng As Range
    Dim lColorCounter As Long
    Dim rngCell As Range

    Set Rng = Sheets("master line list").Range("C2:Z1633")

    lColorCounter = 0

    For Each rngCell In Rng
        If Cells(rngCell.Row, rngCell.Column).DisplayFormat.Font.Color = RGB(255, 0, 0) Then
            lColorCounter = lColorCounter + 1
        End If
    Next

    Sheets("status").Range("D3") = lColorCounter
    Sheets("status").Range("A1") = lColorCounter / 2 & " " & "Total Duplicates"
    Sheets("status").Range("A2") = Sheets("status").Range("D5").Value - lColorCounter / 2 & " " & "Flanges"

    Application.ScreenUpdating = True

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...