Заказать макрос
Разрабатываем макросы на заказ. Любой сложности. Быстро и качественно.
Подробнее...

Как определить сумму ячеек с определенным цветом шрифта

Функция СУММШРИФТ суммирует ячейки с заданным цветом шрифта.

Описание проблемы

Для того, чтобы сделать ваши расчеты более простыми для восприятия можно выделить цветом шрифт части данных.

Минус такого подхода заключается в том, что Excel не умеет выполнять действия основываясь на цвете шрифта/заливки. Однако, с помощью надстройки VBA-Excel можно просуммировать ячейки с заданным цветом шрифта.

Функция суммирования ячеек по цвету шрифта

Описание функции

Функция =СУММШРИФТ(ДИАПАЗОН, ЯЧЕЙКА) имеет два обязательных аргумента:

  • ДИАПАЗОН ячеек, в котором необходимо произвести суммирование ячеек с определенным цветом шрифта.
  • ЯЧЕЙКА - ссылка на ячейку с цветом шрифта по которому необходимо провести суммирование.

Замечание об автоматическом вычислении!!! Так как пересчет формул в Excel автоматически не происходит при изменении цвета шрифта, то данная функция не пересчитывается автоматически. Для того, чтобы принудительно пересчитать формулы активного листа используйте сочетание клавиш Ctrl+Alt+F9.

Код на VBA

Далее представлен код на VBA? который вы можете использовать  в своих файлах. Либо просто установите надстройку.

Public Function СУММШРИФТ(ДИАПАЗОН As Range, ЯЧЕЙКА) As Double
    Dim S As Double
    Dim rCell As Range
    Dim ColCell As Long
 
    ColCell = ЯЧЕЙКА.Font.Color
    S = 0
 
    For Each rCell In ДИАПАЗОН
        If rCell.Font.Color = ColCell Then
            S = S + rCell.Value
        End If
    Next
 
    СУММШРИФТ = S
End Function
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.

Комментарии:

comments powered by Disqus