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

[valerij]

Как автоматизировать, сей сложный ручной ввод?
Ввожу каждый месяц в ручную, графы Д-Н, а они зависят от даты Е1, Е29..... с шагом 28

Каждый понедельник месяца, должен показывать, три предыдущих дня(пятница, суббота, воскресенье)

Листаются дни кл. PGDN и PGUP

[xNut]

Используйте + и - для смещения на несколько дней вперед, назад от текущей
например, =Сегодня()+2 даст послезавтра

[valerij]

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

Используйте =Сегодня()+2 даст послезавтра

Это не то.
Формулами это выглядит, так: в Е1 стоит дата 01-06-09-понедельник
Тогда

С5 =ЕСЛИ(ДЕНЬНЕД(E1;2)=1;ДЕНЬ(E1-1);ДЕНЬ(E1-1)) ' 31 мая
С6 =ЕСЛИ(ДЕНЬНЕД(E1;2)=1;ДЕНЬ(E1-2);ДЕНЬ(E1-2)) ' 30 мая
С7 =ЕСЛИ(ДЕНЬНЕД(E1;2)=1;ДЕНЬ(E1-3);ДЕНЬ(E1-3)) ' 29 мая

Не знаю, как макросом определять Понедельники?

[EducatedFool]

Sub test()
    Дата = CDate("01-06-09")
    НомерДняНедели = Application.Weekday(Дата, 2)
    If Application.Weekday(#6/1/2009#, 2) = 1 Then MsgBox "Это понедельник!"
End Sub

[valerij]

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

Sub test()
    Дата = CDate("01-06-09")

Игорь, а как дату брать с яч. Е1, Е29....??

 Дата = [E1]

так не работает

[EducatedFool]

так не работает

Валера, ну ты же не первый день на форуме...
Что значит не работает? Какая ошибка выскакивает?
В чем проявляется неработоспособность?

Ну попробуй так:
Дата = cdate([E1])

[valerij]

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

Что значит не работает? Какая ошибка выскакивает?
В чем проявляется неработоспособность?Ну попробуй так:
Дата = cdate([E1])

Да, что то с форумом, через поиск нахожу свою тему, что на висте, что на ХР
Пробовал, любая дата, все равно пишет Это понедельник!

[EducatedFool]

 If Application.Weekday([e1], 2) = 1 Then MsgBox "Это понедельник!"

Ты успел скопировать код в тот момент, когда я правил своё сообщение...

[valerij]

А, что с движком форума, в ХР уже и через поиск не находит тему, что за приколы!!

[EducatedFool]

А, что с движком форума, в ХР уже и через поиск не находит тему, что за приколы!!

С движком форума всё в порядке.
Проблема в настройках твоего браузера.
Попробуй другой браузер.
PS: У всех поиск работает. Правда, ищет он не всё, но работает.