Excel — суммирование ячеек по цвету заливки

Excel не имеет встроенной функции, которая использует цвета заливки в качестве условий в формулах суммирования. Чтобы добавить такую функцию, необходимо зайти в редактор Visual Basic (Alt + F11), затем в открывшемся окне выбрать в меню пункт InsertModule и в открывшемся окне, вставить код:

Public Function СУММЗАЛИВКА(ДИАПАЗОН As Range, ЯЧЕЙКА) As Double
    Dim S As Double
    Dim rCell As Range
    Dim ColCell As Long
  
    ColCell = ЯЧЕЙКА.Interior.Color
    S = 0
  
    For Each rCell In ДИАПАЗОН
        If rCell.Interior.Color = ColCell Then
            S = S + rCell.Value
        End If
    Next
  
    СУММЗАЛИВКА = S
End Function

После чего можно закрыть окно VBE и вернуться в Excel. Теперь, будет доступна функция =СУММЗАЛИВКА(ДИАПАЗОН; ЯЧЕЙКА), где ДИАПАЗОН — ссылка на диапазон ячеек, где производится суммирование ячеек с определенной заливкой; ЯЧЕЙКА — ссылка на ячейку с цветом заливки, по которому необходимо провести суммирование.

Добавить комментарий