Дата больше на 5 дней то ячейка становится красной. - Мир MS Excel

Регистрация

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

= Мир MS Excel/Дата больше на 5 дней то ячейка становится красной. - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Дата больше на 5 дней то ячейка становится красной. (Формулы)

Дата больше на 5 дней то ячейка становится красной.

Дата: Четверг, 20.02.2014, 11:03 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Здравствуйте,

Есть ячейка A1 в которую вбивается дата, например 01/01/2014. Мне нужно чтобы когда дата в ячейки A1 будет превышать 5 дней (например сейчас уже 07/01/2014), то ячейка A2 становилась красной.

Ответить

Дата: Четверг, 20.02.2014, 11:12 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

A2 = сегодня()-A1

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A3:B150")) Is Nothing Then
Call ЦветЯчейки(Target.Row, Target.Column)
End If
End Sub

[/vba]

[vba]

Код

Sub ЦветЯчейки(x, y)
Dim Col
If Cells(x, 3).Value > 5 Then
Cells(x, 3).Interior.ColorIndex = 3
End If

If Cells(x, 3).Value < 5 Then
Cells(x, 3).Interior.ColorIndex = 0
End If
End Sub

[/vba]

Ответить

Дата: Четверг, 20.02.2014, 11:23 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AVP, Здравствуйте,

Пожалуйста распишите подробнее что и как делать. Особенно про то что ниже: A2 = сегодня()-A1.

Ответить

Дата: Четверг, 20.02.2014, 11:24 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 50

Репутация: 5 ±

Замечаний: 0% ±

Excel 2010

Условное форматирование можно использовать. Тогда без всяких макросов обойтись можно.

Ответить

Дата: Четверг, 20.02.2014, 11:26 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Wowick, я попробовал Условное форматирование, но так и не нашел про такое условие какое мне нужно.

Ответить

Дата: Четверг, 20.02.2014, 11:28 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

правой кнопкой по листу - исходный текст
ctrl+с то что ниже A2 и потом ctrl+V в исходном тексте

Ответить

Дата: Четверг, 20.02.2014, 11:29 | Сообщение № 7

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

Цитата JaguarKo,

Wowick, я попробовал Условное форматирование, но так и не нашел про такое условие какое мне нужно.

условное форматирование - правила выделения ячеек - больше
ставим условие больше 5, пользовательский формат, заливка, красный цвет

Сообщение отредактировал AVP - Четверг, 20.02.2014, 11:32

Ответить

Дата: Четверг, 20.02.2014, 11:36 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

Ошибку увиде в коде, под меня был подстроен
вот правильно

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
Call ЦветЯчейки(Target.Row, Target.Column)
End If
End Sub

[/vba]

[vba]

Код

Sub ЦветЯчейки(x, y)
Dim Col
If Cells(x, 2).Value > 5 Then
Cells(x, 2).Interior.ColorIndex = 3
End If

If Cells(x, 2).Value < 5 Then
Cells(x, 2).Interior.ColorIndex = 0
End If
End Sub

[/vba]

Либо через условное как хотите

Ответить

Дата: Четверг, 20.02.2014, 11:51 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AVP, с макросами никогда не работал, так что давайте поподробнее с условием. Я не хочу вбивать в А2 сегодняшнюю дату, я туда вообще ничего вбивать не хочу. Поэтому правила выделения ячеек - больше не подходит. Должно быть что то типа: A2 = А1 < сегодня() на 5, тогда [красный]. Или через условие так нельзя сделать?

Ответить

Дата: Четверг, 20.02.2014, 12:03 | Сообщение № 10

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

В условнов форматировании - управление правилами , настраивайте как надо, то же самое в формуле.

К сообщению приложен файл: 123.xlsx (10.8 Kb)

Ответить

Дата: Четверг, 20.02.2014, 12:06 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Приложил файл, получатся мне надо чтобы B3,B4,B5,B6 стали красными, так как там дата меньше на 5 дней от сегодняшней.

К сообщению приложен файл: 9844959.xlsx (8.3 Kb)

Ответить

Дата: Четверг, 20.02.2014, 12:08 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AVP, Огромное спасибо !!! То что надо)

Ответить

Дата: Четверг, 20.02.2014, 12:25 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AVP,
Еще возник 1 вопросик, если ячейка пустая то он всеравно показывает КРАСНАЯ. Можно добавить условие что если ячейка пуста то не применять формулу?

Ответить

Дата: Четверг, 20.02.2014, 15:50 | Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Можно так
Формула для Столбца В

Код

=ЕСЛИ(И(СЕГОДНЯ()-A3>5;A3<>"");"КРАСНАЯ";"")

Формула УФ

Код

=И(СЕГОДНЯ()-A3>5;A3<>"")

К сообщению приложен файл: 9844959_new.xls (24.5 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Пятница, 21.02.2014, 05:19 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AlexM,
Огромное спасибо, вы сного мне отлично помогли!

Ответить

Дата: Пятница, 21.02.2014, 07:47 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AlexM,
Здравствуйте,
Появилась новая потребность. Добавился столбец B. Необходимо что если в столбце B что то появляется, то в C вместо КРАСНАЯ появилось ОК.
Что то типа:

=ЕСЛИ(И(И(СЕГОДНЯ()-A3>5;A3<>"";B3>0);"КРАСНАЯ";"";"OK")

Но формула не работат.

К сообщению приложен файл: 9844959_new_new.xls (24.0 Kb)

Ответить

Дата: Пятница, 21.02.2014, 08:23 | Сообщение № 17

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

Код

=ЕСЛИ(B3<>"";"ОК";ЕСЛИ(И(СЕГОДНЯ()-A3>5;A3<>"");"КРАСНАЯ";""))

функцию если поймите правильно

Сообщение отредактировал Serge_007 - Пятница, 21.02.2014, 22:17

Ответить

Дата: Пятница, 21.02.2014, 08:36 | Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Формула для ячейки С3

Код

=ЕСЛИ(B3="";ЕСЛИ(И(СЕГОДНЯ()-A3>5;A3<>"");"КРАСНАЯ";"");"Ок")

Если цвет ячейки с "Ок" должен быть белым, то надо изменить правило УФ так

Код

=И(СЕГОДНЯ()-A3>5;A3<>"";B3="")

К сообщению приложен файл: 9844959_2new.xls (24.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Пятница, 21.02.2014, 08:45 | Сообщение № 19

Группа: Пользователи

Ранг: Новичок

Сообщений: 43

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

AVP, Спасибо большое. Да я понял что я в этом бездарь, но с удовольствием бы это поизучал. Не подскажите где лучше найти материал по этому?

Ответить

Дата: Пятница, 21.02.2014, 08:51 | Сообщение № 20

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Цитата JaguarKo, 21.02.2014 в 08:45, в сообщении № 19

Не подскажите где лучше найти материал по этому?

На главной странице этого сайта МИР MS EXCEL

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата больше на 5 дней то ячейка становится красной. (Формулы)

Страница 1 из 2
1
2
»

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