Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Дата создания строки
 
#1
09.04.2010 08:01:35
Подскажите как сделать, что бы при вводе строки отображалось время ее создания (текущее) а через заданный период (допустим 30 дней) она меняла цвет, или в идеале добавлялся текст (например ехать)  
пробовал ТДАТА но время постоянно обновляется и не фиксируется:(
 
 
 
#2
09.04.2010 08:32:20
{quote}{login=dydyka}{date=09.04.2010 08:01}{thema=Дата создания строки}{post}Подскажите как сделать, что бы при вводе строки отображалось время ее создания (текущее) а через заданный период (допустим 30 дней) она меняла цвет, или в идеале добавлялся текст (например ехать)  
пробовал ТДАТА но время постоянно обновляется и не фиксируется:({/post}{/quote}  
1. Макрос - реагирует на изменение какой-то ячейки в строке и вводит текущие дату и время.  
2. По занесенной контрольной дате условным форматированием красим строку или в допполе вводим предупреждение, типа если СЕГОДНЯ >= котр.дата+30, то "Ахтунг!".  
Примеров макросов и УФ много.  
Z.
 
 
 
#3
09.04.2010 08:47:44
{quote}{login=}{date=09.04.2010 08:32}{thema=Re: Дата создания строки}{post}{quote}{login=dydyka}{date=09.04.2010 08:01}{thema=Дата создания строки}{post}Подскажите как сделать, что бы при вводе строки отображалось время ее создания (текущее) а через заданный период (допустим 30 дней) она меняла цвет, или в идеале добавлялся текст (например ехать)  
пробовал ТДАТА но время постоянно обновляется и не фиксируется:({/post}{/quote}  
1. Макрос - реагирует на изменение какой-то ячейки в строке и вводит текущие дату и время.  
2. По занесенной контрольной дате условным форматированием красим строку или в допполе вводим предупреждение, типа если СЕГОДНЯ >= котр.дата+30, то "Ахтунг!".  
Примеров макросов и УФ много.  
Z.{/post}{/quote}  
2-й пункт думаю надеюсь осилю, а вот с макросом у меня уже не получилось... не поможете?
 
 
 
#4
09.04.2010 08:59:04
Вариант, проверить, пример:  
"Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
       If Not Intersect(Target, Range("A2:A100")) Is Nothing Then  
           With Target(1, 5)  
               .Value = Now  
               .EntireColumn.AutoFit  
           End With  
       End If  
End Sub"  
Контролирует изменения в диапазоне А2:А100 и вводит дату/время в 5 колонку. Внести в исходный текст листа.  
Z.
 
 
 
#5
09.04.2010 09:07:42
не разбрераюсь, "Private Sub Worksheet_Change(ByVal Target As Range) красным выделяет :(  
там видимо заголовок нужен?
 
 
 
#6
09.04.2010 09:15:18
См. - http://www.planetaexcel.ru/tip.php?aid=28<BR> Z.
 
 
 
#7
09.04.2010 09:18:31
Фиксацию времени в ячейке можно организовать итеративными вычислениями (меню Сервис-Параметры-Вычисления-Итерации).
 
 
 
#8
09.04.2010 09:30:37
с макросом получилось, спасибо  
{quote}{login=vikttur}{date=09.04.2010 09:18}{thema=}{post}Фиксацию времени в ячейке можно организовать итеративными вычислениями (меню Сервис-Параметры-Вычисления-Итерации).{/post}{/quote}  
это надо будет на каждом компьютере настраивать?  
а как будет выглядеть условие A1 = 10444  B1 = 10.10.2010 то если A2 = 10444 B2 = 30.10.2010 (+20 дней) получится B3 "ехать"   ?
 
 
 
#9
09.04.2010 09:32:20
Нет, это настройки книги.  
Пример позже, сейчас некогда.
 
 
 
#10
09.04.2010 11:29:45
Что то у меня не получается условие, посмотрите в чем ошибся (или может вообще не то), просто нужно: если текущая дата больше введеной на тридцать дней то вся строка меняет цвет
 
 
 
#11
09.04.2010 12:27:19
и формула не работает :(
 
 
 
#12
09.04.2010 14:53:09
1. ="СЕГОДНЯ>$B$2+30"  
Функция должна иметь скобки - СЕГОДНЯ().  
Кавычки лишние - заключенное в кавычки Excel понимает как простой текст.  
 
2. Формула работает. Нужно включить автопересчет - Сервис-Параметры-Вычисления-Автоматически.
 
 
 
#13
09.04.2010 15:28:49
{quote}{login=vikttur}{date=09.04.2010 02:53}{thema=}{post}1. ="СЕГОДНЯ>$B$2+30"  
Функция должна иметь скобки - СЕГОДНЯ().  
Кавычки лишние - заключенное в кавычки Excel понимает как простой текст.  
 
2. Формула работает. Нужно включить автопересчет - Сервис-Параметры-Вычисления-Автоматически.{/post}{/quote}  
 
ДА, спасибо все отлично!
 
 
 
Страницы: 1
Читают тему
Наверх