Страницы: 1
RSS
VBA. Суммировать значения столбца, которые имеют красный цвет шрифта в другом столбце
 
Добрый день.
Прошу помощи в создании Макроса.
Нужно суммировать значения по столбцу G, но только тех которые имеют красный цвет шрифта в столбце C
Заранее спасибо  :)  
Изменено: Илья К - 27.01.2022 12:47:02
 
Код
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
Изменено: Ігор Гончаренко - 27.01.2022 13:48:21
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
, не получается. Вставлял данные в ячейку I и удалял и ничего
 
от A до I предполагается там сплошная таблица
если это не так - не сработает(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
, можно пожалуйста в моём исходном файле вставить, а то у меня не выходит(
 
Вариант.
Вредить легко, помогать трудно.
 
, Благодарю! :)
Не знаю как вы это сделали, но оно работает  
Страницы: 1
Наверх