Округление в зависимости от даты

[Chapchurova]

Задача на первый взгляд показалась мне не сложной, однако прошу помощи.
Итак,
есть таблица (Коб) , один столбик которой содержит даты (месяц и год) (столбик В), другой столбик число (столбик С).
На листе исходных данных задаются Дата 1 (Утверждение_аналога) и Дата 2 (Начало_нового)
Необходимо получить значение перемножив соответствующие числа из столбика С напротив Даты 1 + 1месяц до Даты 2 включительно.
Эту задачу я реализовала следующей формулой:
=СЦЕПИТЬ("=";"Произвед(Коб!";ТЕКСТ( АДРЕС((ВПР((Утверждение_аналога-ДЕНЬ(Утверждение_аналога)+1);Таблиц аКоб;5;ЛОЖЬ)+3);3;1;1);"+");":Коб!" ;ТЕКСТ(АДРЕС((ВПР((Начало_нового-ДЕНЬ(Начало_нового)+1);ТаблицаКоб;5 ;ЛОЖЬ)+2);3;1;1);"+");")")

Но появилось условие: если в диапазон попадают все 12 месяцев одного года, то перемножать надо не все числа из столбца С, а числа из столбца С этого года, т.е. произведение чисел округленное до 4-х знаков, на остальные числа из столбца С, попадающие в диапазон, произведение которых тоже округлено до 4-х знаков.

Буду рада любым идеям.

[ZORRO2005]

Однако, здравствуйте.
Chapchurova, если бы постановка задачи не была такой запутанной, давно получили решение.

Сообщение от Chapchurova

Эту задачу я реализовала следующей формулой:
=СЦЕПИТЬ("=";"Произвед(Коб!";ТЕКСТ( АДРЕС((ВПР((Утверждение_аналога-ДЕНЬ(Утверждение_аналога)+1);Таблиц аКоб;5;ЛОЖЬ)+3);3;1;1);"+");":Коб!" ;ТЕКСТ(АДРЕС((ВПР((Начало_нового-ДЕНЬ(Начало_нового)+1);ТаблицаКоб;5 ;ЛОЖЬ)+2);3;1;1);"+");")")

У вас эта формула работает?
И, если да, то в какой ячейке эта формула?

[Chapchurova]

Сообщение от ZORRO2005

Однако, здравствуйте.
Chapchurova, если бы постановка задачи не была такой запутанной, давно получили решение.

У вас эта формула работает?
И, если да, то в какой ячейке эта формула?

Вообще она реализована макросом в ячейке В59 на листе "Исходные":

Range("Коб").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""="",""Произвед(Коб! "",TEXT(ADDRESS((VLOOKUP((Утвержден ие_аналога-DAY(Утверждение_аналога)+1),Таблица Коб,5,FALSE)+3),3,1,1),""+""),"":Ко б!"",TEXT(ADDRESS((VLOOKUP((Начало_ нового-DAY(Начало_нового)+1),ТаблицаКоб,5, FALSE)+2),3,1,1),""+""),"")"")"
Range("Коб").Select
Selection.Copy
Range("Коб").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
With Selection
.NumberFormat = "#,####0.0000"
.FormulaLocal = .FormulaLocal
End With

И работает, но не так как надо. Там задача решена без округления.

Попробовала упростить описание. Так нормально?