Подсветка отрицательных значений в определенном столбце в Excel

Question

По какой-то причине этот код выделяет весь столбец М. Я очень новичок в VBA, извините, если это очевидно. Как я могу получить его, чтобы выделить только отрицательные значения в столбце?

Sub HighlightNegatives()

    Dim rCell As Range
    Dim rng As Range   

    Set rng = Range("M:M")

        For Each rCell In rng.Cells            
            If rCell.Value < 0 Then
                rng.Font.Color = RGB(255, 0, 0)
                rng.Font.Bold = True
            End If
        Next
End Sub

Answer 1

Это потому, что вы меняете цвет и шрифт всего столбца M (rng), вместо этого вы хотите изменить цвет и шрифт каждой отдельной ячейки (rCell):

Sub HighlightNegatives()

Dim rCell As Range
Dim rng As Range

Set rng = Range("M:M")
    For Each rCell In rng.Cells
        If rCell.Value < 0 Then
            rCell.Font.Color = RGB(255, 0, 0)
            rCell.Font.Bold = True
        End If
    Next
End Sub

Тосказал. Есть ли причина, по которой вы не можете использовать условное форматирование для этого?