Построение "шахматки" в Excel

[yursanch]

Всем привет! Такая вот задача: Есть перечень работ со сроком начала и окончания. Срок начала может совпадать с началом месяца, а может и не совпадать. Срок окончания, как правило - последний день месяца. Нужно построить по-месячную шахматку с условием: Если анализируемый месяц совпадает с первым, пусть даже и не полным, то в соотв. ячейку ставим 2, если с последним, то 0, если промежуточный - то 1. И закрашиваем, скажем зеленым. Если месяц не попадает во временной интервал - ставим 0 и заливаем желтым.

Проблема, собственно, вот в чем: Если первый месяц не полный -например 15.04.2010 - он у меня не анализируется. Почему: когда я присваиваю переменной значение месяца из ячейки шахматки - апр.2010 - переменная становится 01.04.2010. И соответственно, условие проверки не выполняется. Че-то никак не соображу, как это вылечить, но чувствую, что ответ где-то на поверхности.
Подскажите пожалуйста.
Файл во вложении.

[mchip]

Поставь в макросе значения Date_on - 1 число месяца, а Date_of - последнее.
Например так:

    s = ws1.Cells(loc, 1).Value
    Data_on = DateSerial(Year(s), Month(s), 1)

Ведь грубо говоря именно число не играет никакой роли.
Или второй вариант раздели переменные и сравнивай отдельно месяц и год.

[yursanch]

mchip, спасибо за подсказку. Я сам тут накрутил такой вариант:
If (Day(Data_on)) > 1 Then Data_on = DateAdd("d", (Day(Data_on) - 1) * (-1), Data_on)
Но Ваш намного проще.

[IgorGO]

посмотрите на такую шахматку.
вместо 01.05.2010 можно указать первое число другого месяца - получите шахматку на соответствующий месяц.

Обратите внимание формула для 5-й строки работ отличается от 4-х предыдущих - в ней изменен порядок проверки для случая, когда работы начинаются и заканчиваются одним месяцем для 4-й строки пишется 2, для 5-й - 0. Т.е. можно по всему файлу использовать формулу с 4-й строки, а можно из 5-й.