Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Фильтр по времени.
 
#1
14.07.2010 16:41:09
Всем доброго времени суток!  
 Прошу подсказать как должна выглядеть формула с 13:00 до 08:45 = "вечер", если с 08:45 до 13:00 = "утро". Смысл такой есть столбец и там разное время, необходимо напротив каждого времени отмечать "утро" или "вечер". Можно через макросы, главное это возможность отбора либо "утро" либо "вечер".
 
 
 
#2
14.07.2010 16:50:18
{quote}{login=A-serg}{date=14.07.2010 04:41}{thema=Фильтр по времени.}{post}с 13:00 до 08:45 = "вечер", если с 08:45 до 13:00 = "утро"{/post}{/quote}  
Вы уже написали, только подправить:  
=ЕСЛИ((A1>=ВРЕМЯ(8;45;))*(A1<=ВРЕМЯ(13;;));"утро";"вечер")
 
 
 
#3
14.07.2010 16:57:45
Или:  
=ЕСЛИ(ОСТАТ(A1;1)>=1/24*13;"вечер";"утро")  
Только 6 утра тоже утром будет считаться. Да и два ночи тоже :)
 
 
 
#4
14.07.2010 17:17:14
Ну да. И выражение "7 вечера" теперь не подменить "19 вечера" :)
 
 
 
#5
14.07.2010 17:19:53
Большое спасибо, оба варианта подходят.
 
 
 
#6
15.07.2010 11:03:15
А подскажите пожалуйста что делать если, стоит время в таком формате 13:00:34 ???
 
 
 
#7
15.07.2010 11:16:42
Excel'ю без разницы, в каком формате отображается в ячейке число (а время, дата здесь - это число).  
13:00:34 - это уже вечер (больше утреннего времени на 34 секунды).
 
 
 
#8
15.07.2010 11:23:11
Пишит как утро, при любых значениях...  
Ладно буду дальше разбираться, может ещё в чем проблема...
 
 
 
#9
15.07.2010 11:29:53
Excel еще не проснулся :)  
Покажите проблему.
 
 
 
#10
15.07.2010 11:38:20
А можно макросом сделать? Что бы в ячейку вносилось значение, сразу по тем же критериям. Т.е. после выполнения макроса значение вносилось в определенную ячейку (например С5).
 
 
 
#11
15.07.2010 12:59:52
???  
If время в данный момент >=13:00 <=8:45 Then  
 Range("B4").Value = "Утро"  
If время в данный момент >=8:45 <=13:00 Then  
 Range("B4").Value = "Вечер"  
End If  
Как то так я понимаю, только не знаю как поставить "время в данный момент"
 
 
 
#12
16.07.2010 10:18:03
Всем большое спасибо, разобрался сам...  
Может кому и пригодится...  
Public Sub VGT() ' определяет маршрут  
If TimeValue(Now) >= TimeValue("13:00") <= TimeValue("8:45") Then  
Range("K45").Select  
   ActiveCell.FormulaR1C1 = "Утро"  
If TimeValue(Now) >= TimeValue("8:45") <= TimeValue("13:00") Then  
Range("K45").Select  
   ActiveCell.FormulaR1C1 = "Обед"  
End If  
End If  
End Sub
 
 
 
#13
16.07.2010 12:45:05
Немного погоричился...  
Помогите кто знает как подкрректировать данный макрос, ель таже...  
Public Sub VGT() ' определяет маршрут  
If TimeValue(Now) >= TimeValue("13:00") <= TimeValue("8:45") Then  
Range("K45").Select  
ActiveCell.FormulaR1C1 = "Утро"  
If TimeValue(Now) >= TimeValue("8:45") <= TimeValue("13:00") Then  
Range("K45").Select  
ActiveCell.FormulaR1C1 = "Обед"  
End If  
End If  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх