Посчет суммы из ячеек с разным цветом Excel

Soft
1

Здесь придет на помощь VB скрипт, делается очень просто:

  • открываем Excel
  • открываем редактор VB (Alt+F11)
  • создаем новый модуль - в дереве проекта - ЭтаКнига - ПКМ - Incert - Module
  • вставляем код:

Function SumByColor(CellColor As Range, SumRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In SumRange
    If ICol = TCell.Interior.ColorIndex Then
        SumByColor = SumByColor + TCell.Value
    End If
Next TCell
End Function
  • Переходим в лист Excel
  • Отмечаем ячейку с нужным цветом указываем диапазон используя функцию, как формулу:
=SumByColor(A1;A1:A11)

excel_sum_color.png