Суммирование инструментами 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы