Суммирование значений по условию(от даты)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Суммирование значений по условию(от даты) (Макросы Sub)

sportsmen

Дата: Четверг, 20.02.2014, 00:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

доброго дня!
Есть "растущая" таблица день ото дня с сотнями фамилий, для каждой фамилии своя сгруппированная структура.
Дано: в столбце D дата; и столбце I числа, которые нужно суммировать исходя из календарного месяца на основании данных столбца D.
Нужно: получить "автоматически подстраивающуюся быструю" формулу (чтоб не тормозила работу на листе, т.к. в оригинале файл 8Mb и увеличивается), чтоб видеть сумму в любой момент времени (от января до декабря, по мере появления дат).
Пример прилагается.
Для наглядности, в примере, выделил разными цветами(в оригинале выделения цветом нет)

К сообщению приложен файл: 9935361.xlsx (12.6 Kb)

Сообщение отредактировал sportsmen - Четверг, 20.02.2014, 00:37

Ответить

AVP

Дата: Четверг, 20.02.2014, 10:44 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

Может поможет, если через условное форматирование закрашивать месяца
[vba]

Код

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

[/vba]

Ответить

sportsmen

Дата: Четверг, 20.02.2014, 16:52 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

AVP, спасибо, что откликнулись, но не то, что хотел.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Суммирование значений по условию(от даты) (Макросы Sub)

Страница 1 из 1
1