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

Вход

Регистрация

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

 

= Мир MS Excel/Ввод динамического и статического времени и даты - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Ввод динамического и статического времени и даты
oleg60 Дата: Четверг, 26.02.2015, 15:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
В ячейки А1...А10 (обозначу Аi) вводится информация. Необходимо, чтобы после ввода информации в Аi в сответствующих ячейках Вi отобразились текущие дата и время. Попробовал использовать для ячееки Вi формулу ЕСЛИ(Аi<>"";ТДАТА();""). Но в этом случае дата и время появляются, но потом при каких-либо изменениях в книге начинает меняться время (т.е. происходит динамическое обновление текущего значения). А нужно что-бы после записи в ячейку Аi в ячейке Вi было зафиксировано мгновеное текущее значение даты и времени и больше не менялось. Водить в Вi вручную, типа ctrl shift ; ctrl shift : не хочется.
 
Ответить
СообщениеВ ячейки А1...А10 (обозначу Аi) вводится информация. Необходимо, чтобы после ввода информации в Аi в сответствующих ячейках Вi отобразились текущие дата и время. Попробовал использовать для ячееки Вi формулу ЕСЛИ(Аi<>"";ТДАТА();""). Но в этом случае дата и время появляются, но потом при каких-либо изменениях в книге начинает меняться время (т.е. происходит динамическое обновление текущего значения). А нужно что-бы после записи в ячейку Аi в ячейке Вi было зафиксировано мгновеное текущее значение даты и времени и больше не менялось. Водить в Вi вручную, типа ctrl shift ; ctrl shift : не хочется.

Автор - oleg60
Дата добавления - 26.02.2015 в 15:00
_Boroda_ Дата: Четверг, 26.02.2015, 15:08 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16880
Репутация: 6593 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Это только макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Offset(, 1) = IIf(Target = "", "", Now)
End Sub
[/vba]
К сообщению приложен файл: 74574575765.xlsm (13.4 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто только макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Target.Offset(, 1) = IIf(Target = "", "", Now)
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.02.2015 в 15:08
oleg60 Дата: Четверг, 26.02.2015, 15:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Большое спасибо мастерам своего дела!
 
Ответить
СообщениеБольшое спасибо мастерам своего дела!

Автор - oleg60
Дата добавления - 26.02.2015 в 15:50
  • Страница 1 из 1
  • 1
Поиск:

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