Суммирования ячеек по одному цвету

[Артур Иваныч]

Здравствуйте ВСЕМ!
Возможно ли написать в вба формулу =СУММ(х), где вместо х диапазон ячеек одного цвета?
то есть имеем например 5 ячеек, которые расположены друг под другом, одна ячейка(самая верхняя) обычная белая и туда мы должны через вба вводить формулу СУММ, которая суммирует значение 4ёх других ячеек, которые закрашены,например,жёлтым цветом...

[Артур Иваныч]

то есть нужно опираться именно на цвет...

[Xpoft]

Вариант кода суммирующего ячейки желтого цвета:
Sub SumYellowCells()
Sum = 0
For i = 1 To 100
If Cells(i, 1).Interior.Color = 65535 Then '65535 код желтого цвета
Sum = Sum + Cells(i, 1).Value
End If
Next i
End Sub

Обязательно использовать именно СУММ(х)?

[Артур Иваныч]

хм...
хорошо бы
если в ячейку вводилась =СУММ

[Артур Иваныч]

создайте например А2, А3, А4 в жёлтый цвет и введите туда цифирки
а через вба в А1 формулу =СУММ()
только чтобы НЕ так было =СУММ(А2:А4), а по-другому, чтобы именно считывал значение с жёлтых ячеек!

[mchip]

А ячейки желтым красятся как? В ручную или по условному форматированию?

[Артур Иваныч]

вручную
просто этих жёлтых ячеек может быть не 4 штуки
а хоть 100

[Xpoft]

Так вам результат суммирования нужен или сама формула?
Зачем необходимо наличие формулы СУММ()?

[Teslenko_EA]

Здравствуйте Артур Иваныч.
функция созданная на базе кода предложенного Xpoft будет выполнять Ваше желание - "в ячейку вводилась =СУММ", если запустить её с параметрами, как указано в образце:

Function sumColorCells(iRh%, iRe&, iCol%, Optional iColor&) As String
Dim i%, s$
    For i = iRh To iRe
        If Cells(i, iCol).Interior.Color = iColor Then
            s = s + ",R" & i & "C" & iCol
        End If
    Next i
    If Len(s) > 0 Then sumColorCells = "=SUM(" + Mid(s, 2) + ")"
End Function
Sub sumColor() 'процедура запуска функции
    [E18].FormulaR1C1 = sumColorCells(2, 4, 1, 65535)
End Sub

Евгений.

[EducatedFool]

Похожая функция есть в этой надстройке от The_Prist