Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос суммирования ячеек по цвету (макрос SumbyColor не совсем подходит)
 
#1
27.03.2016 16:46:37
Доброе время суток!
Ребята помогите написать макрос, который будет суммировать (см . Приложение) числа в ячейках "Дата, к-во выработки", если цвет ячеек будет соответствовать цвету тех же ячеек по Иванову и Петрову.

Что-то похожее на СУММЕСЛИ, но отбор по цвету.

Если использовать готовый на форуме макрос SumbyColor, нужно сделать 31 формулу по каждой клеточке, а это гемор, в т.ч. и для перепроверки.
Можно ли сделать СуммЕсли по двум диапазонам? Напимер первый диапазон (Е6:T7), второй диапазон (E13:T14).

Спасибо за ответ и помощь.
 
 
 
#2
27.03.2016 18:51:44
Не пойму - какие суммы и куда выводить? Вы в примере не могли показать желаемый результат?
 
 
 
#3
27.03.2016 18:59:20
Ничего не понял. Ну просуммировали - и куда эти суммы засунуть? Или что с ними делать?
Я сам - дурнее всякого примера! ...
 
 
 
#4
27.03.2016 19:09:44
Юрий М, конечно.
Обновил приложение.

Например, формула проверяет весь диапазон Иванова (E13:T14) в каких ячейках Иванова есть синий цвет (F13,G13,H13,I13,J13, O13,P13,Q13,R13,S13 и т.д.), и суммирует ячейки диапазона (E6:T7) в которых есть синий цвет (для Иванова это будут ячейки H6, P6, F7, S7.).

 
 
 
 
#5
27.03.2016 19:13:33
Можно было просто заменить файл в первом сообщении. А для Иванова и Петрова цвет будет одинаковый?
 
 
 
#6
27.03.2016 19:16:40
Юрий М, да.
 
 
 
#7
27.03.2016 19:34:05
Можно было и за один проход считать, но данных немного - сделал второй цикл.
 
 
 
#8
27.03.2016 19:39:58
Для Иванова
Код
Sub iColorSumma()
Dim cell As Range
  Range("E22") = ""
  For Each cell In Range("E6:T7")
    If cell.Interior.ColorIndex = cell.Offset(7).Interior.ColorIndex Then
      Range("E22") = Range("E22") + cell
    End If
  Next
End Sub
 
 
 
#9
27.03.2016 20:09:33
Спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх