Страницы: 1
RSS
Условное форматирование не срабатывает после применения макроса
 
Добрый день уважаемые гуру!

Условное форматирование не срабатывает после применения макроса
вот макрос
Код
Sub InsertDate()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+d
For Each Cell In Selection
Cell.Value = Format(Now, "dd.mm.yyyy")
Next
End Sub

Код
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
For Each Cell In Selection
Cell.Value = Format(Now, "dd.mm.yyyy")
Next
End Sub

Файл работает следующим образом, в ячейку макросом вносится дата(через кнопку на панели), если дата - меньше или равно сегодня- то, условным форматированием эта ячейка выделяется (к примеру жёлтым цветом).

Ошибка в том что после внесения макросом даты, (если дата просрочена), то цвет в ячейке не меняется до тех пор пока не кликнуть мышкой два раза по ячейке, как можно это исправить?
офис 2013

Картинка удалена: превышение допустимого размера вложения [МОДЕРАТОР]
 
задавая ячейке Format вы как бы дату превращаете в текст
а так не устроит
Код
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
For Each Cell In Selection
Cell.Value = Now
Next
End Sub
Изменено: Сергей - 30.03.2015 12:29:20 (файл чет не прицепился)
Лень двигатель прогресса, доказано!!!
 
Отлично , это то что нужно, спасибо огромное )))
 
Офигенско гуру макросов помог 8):D
Лень двигатель прогресса, доказано!!!
 
Гуру! Название темы видел?
 
vikttur, дак вроде проблема описана правильно макрос проставил дату в виде текста в следствии чего УФ не видит так как формула сравнивает числа  
Лень двигатель прогресса, доказано!!!
 
Уже правильно. А было "Условное форматирование". В наказание прописывается изучить два любых оператора VBA! :)
 
Пошел искать этих операторов доильных установок :(
Лень двигатель прогресса, доказано!!!
Страницы: 1
Наверх