Зависимость даты дней от дня недели

[valerij]

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

С движком форума всё в порядке.

Ага, вчера вечером все было ОК, сегодня приехал с работы, "дыня"!!

Игорь а как мне теперь отнять назад день, что бы в С5 = 31?

Sub test()
    Дата = CDate([E1])
    НомерДняНедели = Application.Weekday(Дата, 2)
    If Application.Weekday([E1], 2) = 1 Then [C5] = Application.Weekday([E1] - 1, 2)
End Sub

[EducatedFool]

If Application.Weekday([e1], 2) = 1 Then [C5] = Day([e1] - 1)

Ты опять пишешь код, не пытаясь понять, что он делает?
Функция Application.Weekday возвращает номер дня в неделе (от 1 до 7)
По-моему, несложно догадаться, что если нужно получить число 31, эта функция не совсем подходит...

[valerij]

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

If Application.Weekday([e1], 2) = 1 Then [C5] = Day([e1] - 1)

.

И так я и делал, но формат этой ячейки стоял, дата, как это могло быть??? я не назначал формат, поэтому мне выводило 31.01.1900, поменял и все ок!

[valerij]

Еще вопрос, вот код

If Application.Weekday([e1].Offset(iCount& * 28), 2) = 1 Then
    [C5].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
    [C6].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
    [C7].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
Else
    [C5].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
    [C6].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
End If

Но это для С5, С6, С7, а для яч. С8, С9, С10....С22, G3, G4, G5, G8, G9, G10, G14, G15, G16 можно этот же код, как то использовать или всем яч. надо указывать?
Resize может помочь?

[EducatedFool]

Resize может помочь?

В данном случае вряд ли.

для яч. С8, С9, С10....С22, G3, G4, G5, G8, G9, G10, G14, G15, G16 можно этот же код, как то использовать

Конечно можно.
В цикле перебираешь все эти ячейки, и вычисляешь значение для каждой.
Только не спрашивай, как...

PS: И скажи, пожалуйста, для чего в твоём макросе эти строки:

Дата = CDate([e1].Offset(iCount& * 28))
    НомерДняНедели = Application.Weekday(Дата, 2)

[valerij]

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

для чего в твоём макросе эти строки:

Дата = CDate([e1].Offset(iCount& * 28))
    НомерДняНедели = Application.Weekday(Дата, 2)

В Е1 стоит дата 01.06.09
В Е29 стоит дата 03.06.09
В Е57 стоит дата 05.06.09
................................
В Е337 стоит дата 29.06.09

Да, понял, они не нужны, исправил
Игорь, я конечно о цикле знаю, но тут одним не обойдешься, а через .Offset?

[valerij]

Вобщем так выглядит рабочий модуль, а как его упростить??

Sub даты()
Application.EnableEvents = False
        For L = 1 To 3
With Sheets(L).Select
For iCount& = 0 To 13
If Application.Weekday([e1].Offset(iCount& * 28), 2) = 1 Then
        [C5].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C6].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C7].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C8].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C9].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C10].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C11].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C12].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C13].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C14].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C15].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C16].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C17].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C18].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C19].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C20].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [C21].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C22].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        
        [G3].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [G4].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G5].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [G8].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [G9].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G10].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [G14].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 3)
        [G15].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G16].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
    Else
        [C5].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C6].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C8].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C9].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C11].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C12].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C14].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C15].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C17].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C18].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [C20].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [C21].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        
        [G3].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G4].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [G8].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G9].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
        [G14].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 2)
        [G15].Offset(iCount& * 28) = Day([e1].Offset(iCount& * 28) - 1)
    End If
    Next
End With
Next
Application.EnableEvents = True
End Sub

З. Ы.
Хотя, если упростить, хлопотно, то и так пойдет, макрос запускается один раз в три месяца