Здравствуйте! Как изменить код, чтобы данной функцией можно было суммировать диапазон цифр + цифры только вот с таким символом ( ' ) (например: от 1 до 12 + 1', 2', 3', 4', 5', 6' и т.д.) Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double Dim Sum As Double Application.Volatile True
For Each cell In DataRange If cell.Interior.Color = ColorSample.Interior.Color Then Sum = Sum + cell.Value End If Next cell SumByColor = Sum End Function [moder]Внимательно прочитайте пп 3 правил форума! У Вас 2 нарушения.[/moder]
Здравствуйте! Как изменить код, чтобы данной функцией можно было суммировать диапазон цифр + цифры только вот с таким символом ( ' ) (например: от 1 до 12 + 1', 2', 3', 4', 5', 6' и т.д.) Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double Dim Sum As Double Application.Volatile True
For Each cell In DataRange If cell.Interior.Color = ColorSample.Interior.Color Then Sum = Sum + cell.Value End If Next cell SumByColor = Sum End Function [moder]Внимательно прочитайте пп 3 правил форума! У Вас 2 нарушения.[/moder]bumnik
Сообщение отредактировал Manyasha - Среда, 29.04.2015, 19:04