Здравствуйте! Как изменить код, чтобы данной функцией можно было суммировать диапазон цифр + цифры только вот с таким символом ( ' ) (например: от 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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
