Сигнализация в Листе

[valerij]

По причине, моей забывчивости, пропускаю день сдачи отчетов в ГНИ, решил сделать сигнализацию даты.
В столбце А у меня прописаны даты в формате "01.03.2009 ....", нужно, что бы при вхождении в Лист10(БАНК), ячейка моргала красным, заливка, шрифт, не важно, по условию, если Сегодня() > A16(10.03.2009) и < A23(17.03.2009) то А22(16.03.2009), моргает.
Делал условие так, не работает и моргалку не знаю, как?

If Application.TODAY() > [A16] < [A23] Then MsgBox "55555" ' Проверка условия

[EducatedFool]

решил сделать сигнализацию даты

Для этого лучше использовать не Excel, а специальные программы-напоминалки.

Подобная функциональность, вроде бы, присутствует в Outlook.
Впрочем, можно воспользоваться и Планировщиком задач из Windows.

If Application.TODAY() > [A16] < [A23] Then

Ты вообще как пишешь эти условия?
Все знакомые буквы и цифры подряд?

Почитай хоть какую-нибудь книгу про синтаксис VBA...

Правильно будет так:
If Now > [a16] And Now < [a23] Then MsgBox 55555
Или так:
If Date > [a16] And Date < [a23] Then MsgBox 55555

[valerij]

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

Для этого лучше использовать не Excel, а специальные программы-напоминалки.

Исключено, долго объяснять, почему.

Ты вообще как пишешь эти условия?

С рекодера.

А моргалку, как сделать, бъюсь уже час

[EducatedFool]

Private Sub Worksheet_Activate()
    If Date > [a16] And Date < [a23] Then
        For i = 1 To 10
            [a22].Interior.ColorIndex = (i Mod 2) * 3
            t = Timer: While Timer < t + 0.5: DoEvents: Wend    ' пауза
        Next
    End If
End Sub