Добрый день. Прошу помощи в создании Макроса. Нужно суммировать значения по столбцу G, но только тех которые имеют красный цвет шрифта в столбце C Заранее спасибо
Sub SumICheckC()
Dim a, r&, v
a = [a1].CurrentRegion: If UBound(a, 2) < 9 Then MsgBox "УЗКАЯ таблица!": Exit Sub
For r = 2 To UBound(a)
If Cells(r, 3).Font.Color = 255 Then v = v + a(t, 9)
Next
MsgBox "Сумма = " & v
End Sub