Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заливка ячейки в зависимости от примечания - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка ячейки в зависимости от примечания (Макросы/Sub)
Заливка ячейки в зависимости от примечания
Tavlar Дата: Четверг, 06.05.2021, 09:59 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Хочу сделать заливку ячейки в зависимости от данных в первой строке примечания. Т.е. первой строкой в примечании будет дата, следующими строками различная информация.
Если кроме даты больше нет информации, решается легко
[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
Дата добавления - 06.05.2021 в 09:59
Pelena Дата: Четверг, 06.05.2021, 10:03 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Попробуйте так
[vba]
Код
Sub 1()

If split(Range("A4").Comment.Text, chr(10)) (0) = "01.04.2021" Then
Range("A4").Interior.Color = RGB(200, 0, 0)
End If
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Попробуйте так
[vba]
Код
Sub 1()

If split(Range("A4").Comment.Text, chr(10)) (0) = "01.04.2021" Then
Range("A4").Interior.Color = RGB(200, 0, 0)
End If
End Sub
[/vba]

Автор - Pelena
Дата добавления - 06.05.2021 в 10:03
Tavlar Дата: Четверг, 06.05.2021, 10:07 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо, все четко)
 
Ответить
СообщениеСпасибо, все четко)

Автор - Tavlar
Дата добавления - 06.05.2021 в 10:07
Tavlar Дата: Четверг, 06.05.2021, 11:48 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 51
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[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 дней
закрашивает, какая бы дата не стояла и даже если просто текст.
Возможно ли это исправить?
 
Ответить
Сообщение[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
Дата добавления - 06.05.2021 в 11:48
Pelena Дата: Четверг, 06.05.2021, 12:05 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Split даёт текстовый формат, поэтому надо переводить в дату. Можно попробовать
[vba]
Код
CDate(Split(Range("A4").Comment.Text, Chr(10))(0))
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеSplit даёт текстовый формат, поэтому надо переводить в дату. Можно попробовать
[vba]
Код
CDate(Split(Range("A4").Comment.Text, Chr(10))(0))
[/vba]

Автор - Pelena
Дата добавления - 06.05.2021 в 12:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка ячейки в зависимости от примечания (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!