Здравствуйте. Хочу сделать заливку ячейки в зависимости от данных в первой строке примечания. Т.е. первой строкой в примечании будет дата, следующими строками различная информация. Если кроме даты больше нет информации, решается легко [vba]
Код
Sub 1()
If Range("A4").Comment.Text = "01.04.2021" Then Range("A4").Interior.Color = RGB(200, 0, 0) End If End Sub
[/vba] Возможно ли реализовать данную задумку, если после даты будут еще данные?
Здравствуйте. Хочу сделать заливку ячейки в зависимости от данных в первой строке примечания. Т.е. первой строкой в примечании будет дата, следующими строками различная информация. Если кроме даты больше нет информации, решается легко [vba]
Код
Sub 1()
If Range("A4").Comment.Text = "01.04.2021" Then Range("A4").Interior.Color = RGB(200, 0, 0) End If End Sub
[/vba] Возможно ли реализовать данную задумку, если после даты будут еще данные?Tavlar
Sub 1() nDate = Date + 15 If Split(Range("A4").Comment.Text, Chr(10))(0) > nDate Then Range("A4").Interior.Color = RGB(200, 0, 0) End If End Sub
[/vba] по ходу реализации возникли проблемы пытаюсь дату в примечании сравнить с сегодняшней датой + 15 дней закрашивает, какая бы дата не стояла и даже если просто текст. Возможно ли это исправить?
[vba]
Код
Sub 1() nDate = Date + 15 If Split(Range("A4").Comment.Text, Chr(10))(0) > nDate Then Range("A4").Interior.Color = RGB(200, 0, 0) End If End Sub
[/vba] по ходу реализации возникли проблемы пытаюсь дату в примечании сравнить с сегодняшней датой + 15 дней закрашивает, какая бы дата не стояла и даже если просто текст. Возможно ли это исправить?Tavlar
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
