Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сравнение числа с несколькими промежутками и вывод даты
 
#1
03.03.2010 12:58:09
Уважаемые друзья!  
Мне необходимо сделать следующую штуку:  
В ячейку А2 вбивается произвольная дата. В ячейку B2 вбивается число. Это число сравнивается с 7-ю диапазонами чисел, на основании этого сравнения в ячейку D2 записывается дата A2+ определенное количество дней (Если подходит под первый диапазон, то +5 дней, если второй, то +10 дней и т.п.)  
Есть некоторая наработка с текущей датой:  
 
Код:  
Sub SDD(ByVal Target As Range)  
Application.EnableEvents = False  
Dim A As Integer  
A = Range("A2")  
Dat = Now()  
If A > 10 And A < 20 Then Dat = Now() + 10  
If A > 20 And A < 30 Then Dat = Now() + 30  
Range("B2").Value = Format(Dat, "Short Date")  
Application.EnableEvents = True  
End Sub  
Только вот почему то не выводит дату в ячейку B2. То бишь не работает что-то...    
 
Буду примного и искренне благодарен за любую помощь!  
 
упд: Эксель 2007 если вдруг что.  
упд2: мне показалось, что макрос должен быть не таким сложным, хотя может стоит и какими то функциями тупо воспользоваться, не знаю...
 
 
 
#2
03.03.2010 13:02:07
{quote}{login=agoriachev}{date=03.03.2010 12:58}{thema=Сравнение числа с несколькими промежутками и вывод даты}{post}/...хотя может стоит и какими то функциями тупо воспользоваться, не знаю...{/post}{/quote}  
Стоит. Но сначала тупо почитать правила и показать пример.
 
 
 
#3
03.03.2010 14:25:18
{quote}{login=vikttur}{date=03.03.2010 01:02}{thema=Re: Сравнение числа с несколькими промежутками и вывод даты}{post}{quote}{login=agoriachev}{date=03.03.2010 12:58}{thema=Сравнение числа с несколькими промежутками и вывод даты}{post}/...хотя может стоит и какими то функциями тупо воспользоваться, не знаю...{/post}{/quote}  
Стоит. Но сначала тупо почитать правила и показать пример.{/post}{/quote}  
Дико извиняюсь.    
Прилагаю пример.  
В примере ячейке с начальной датой присваивается дата текущая, мне бы хотелось дату туда вводить, ток я не знаю как.
 
 
 
#4
03.03.2010 14:27:27
Говорите, правила прочитали?  
http://www.planetaexcel.ru/forum.php?thread_id=8735
 
 
 
#5
03.03.2010 15:05:41
Вы мне что-то пытаетесь сказать, но я не могу понять, что именно?  
Может имеет смысл вместо ссылки на правила форума, которые я - да - читал, указать пункт или выдержку из правил? Может стоит допустить, что я где-то что-то проглядел?    
Спасибо за понимание.
 
 
 
#6
03.03.2010 15:13:59
Не у всех .xlsm
 
 
 
#7
03.03.2010 16:30:42
Пример в .xls  
Спасибо.
 
 
 
#8
03.03.2010 18:52:21
Так Вы подменили модуль - нужно в модуле листа использовать событие Worksheet_Change.
 
 
 
#9
03.03.2010 19:55:12
{quote}{login=Юрий М}{date=03.03.2010 06:52}{thema=}{post}Так Вы подменили модуль - нужно в модуле листа использовать событие Worksheet_Change.{/post}{/quote}  
Поменял. Все равно не работает. Ввожу число, а дата не появляется.
 
 
 
#10
03.03.2010 19:59:44
Ввёл в А2 число, в В2 появляется сегодняшняя дата. Что первично? Что отслеживаться должно? Поясните задумку :-)
 
 
 
#11
03.03.2010 20:12:12
См. пример. В коде не нашёл упоминания про ячейку D2. Работает с В2. Может ошиблись в вопросе?
 
 
 
#12
03.03.2010 20:18:09
Скорее всего неправильно. Вы писали про произвольную дату, а в коде всегда фигурирует текущая дата.
 
 
 
#13
03.03.2010 20:36:10
{quote}{login=Юрий М}{date=03.03.2010 07:59}{thema=}{post}Ввёл в А2 число, в В2 появляется сегодняшняя дата. Что первично? Что отслеживаться должно? Поясните задумку :-){/post}{/quote}  
Черт, почему у вас сработало, а у меня нет?)))    
{quote}{login=Юрий М}{date=03.03.2010 07:59}{thema=}{post}См. пример. В коде не нашёл упоминания про ячейку D2. Работает с В2. Может ошиблись в вопросе?Скорее всего неправильно. Вы писали про произвольную дату, а в коде всегда фигурирует текущая дата.{/post}{/quote}  
В коде нет произвольной даты, там действительно только текущая - это наработка, я хочу изменить, но не знаю как сделать так, чтобы можно было вводить число, а не брать текущее.    
 
И как теперь в вашем примере открыть сам код?)) Я путаюсь в этом 2007 экселе, ппц.
 
 
 
#14
03.03.2010 20:39:28
Черт, редактировать свой коммент нельзя.  
Я похоже понял какой Worksheet_change имелся ввиду ранее)))    
В выпадающем меню.    
Теперь осталось только сделать ввод даты, а не брать текущую.
 
 
 
#15
03.03.2010 21:04:45
В идеале, конечно, было бы так:  
Три ячейки и одна кнопочка.  
В первую ячейку вводится произвольная дата.  
Во вторую ячейку вводится число.  
Нажимается кнопочка, которая запускает макрос.  
Макрос сравнивает введенное число по тем диапазонам, что есть в примере.  
На основании сравнения к произвольной дате добавляется определенное количество дней.
 
 
 
#16
03.03.2010 21:10:51
Так? Без кнопочки.
 
 
 
#17
03.03.2010 21:28:50
А как он работает? Куда вводить произвольную дату и где будет отображаться дата с учетом сравнения чисел и прибавления дней?
 
 
 
#18
03.03.2010 22:05:15
Дату вводим в В2, а при изменении значения в А2 происходит пересчёт.
 
 
 
#19
03.03.2010 22:14:14
У вас работает? У меня нет...
 
 
 
#20
03.03.2010 22:27:59
У меня работает. Может нужно оставлять дату в В2 неизменную, а изменяемую отображать в другой ячейке? Вроде так задумывалось? Но в коде я ничего подобного не нашёл.
 
 
 
#21
03.03.2010 22:40:36
Юрий, спасибо вам большое за внимание и уделенное время)  
Боюсь, что макрос все же будет сложноват для меня.    
Разберусь ка лучше я с функцией ЕСЛИ.    
Меньше крови будет ))
 
 
 
#22
04.03.2010 08:59:36
Так и не понял до конца задачу. Сравнение даты с какито набором массивов дат (или чисел). Создайте этот массив и функция ВПР Вам в помощь. Если трудно самому, нарисуйте не пример-заготовку, а желаемый результат ("хочу вот так").
 
 
 
Страницы: 1
Читают тему
Наверх