Суммирование инструментами VBA ячеек в диапазоне, выделенных определенным цветом
Формулировка задачи:
Как инструментами VBA суммировать отдельные ячейки в диапазоне, которые выделенные определенным цветом.
Моих знаний хватает на наложении фильтра по цвету и функции =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;«диапазон»). Но это слишком «деревянный» метод.
Ячейки могут меняться в диапазоне и нужен именно VBA-код по суммированию ячеек, выделенных определенным цветом в заданном диапазоне.
Пример во вложении. Необходимый результат в ячейках H2 и I3.
Спасибо за помощь.
Решение задачи: «Суммирование инструментами VBA ячеек в диапазоне, выделенных определенным цветом»
textual
Листинг программы
Function СумЕслиЦвет(Oblast As Range, Obrazec As Range) As Variant ' Суммирует заданный диапазон ячеек при условии, что RGB цвет фона слагаемого совпадает с цветом фона ячейки образца. Application.Volatile True Dim Summa1 As Variant, C As Range, ObrazecCvet As Long ObrazecCvet = Obrazec.Interior.color For Each C In Oblast.Cells If C.Interior.color = ObrazecCvet Then Summa1 = Summa1 + C.Value End If Next СумЕслиЦвет = Summa1 End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д