Excel дата обновление ячейки

Вставка текущих даты и времени в ячейку

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Еще…Меньше

Допустим, вы хотите легко ввести текущие дату и время при создании журнала действий. Или, возможно, вам нужно автоматически отображать текущие дату и время в ячейке при каждом пересчете формул. Существует несколько способов вставки текущих даты и времени в ячейку.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

  1. Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

  2. Выполните одно из действий, указанных ниже.

    • Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

    • Чтобы вставить текущее время, нажмите клавиши CTRL+SHIFT+; (точка с запятой).

    • Чтобы вставить текущие дату и время, нажмите клавиши CTRL+; (точка с запятой), затем клавишу ПРОБЕЛ, а после этого — CTRL+SHIFT+; (точка с запятой).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

  1. Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

  2. Выполните одно из действий, указанных ниже.

    • Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

    • Чтобы вставить текущее время, нажмите Клавиша COMMAND+ ; (точка с за semi-двоеточием).

    • Чтобы вставить текущие дату и время, нажмите CTRL+; (точка с за semi-двоеточием), затем нажмите пробел, а затем нажмите Клавиша COMMAND+; (точка с за semi-двоеточием).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

  1. Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

  2. Выполните одно из действий, указанных ниже.

    • Чтобы вставить дату, введите дату (например, 2/2) и щелкните Главная > числовом формате (на вкладке Число) >Краткий формат даты или Длинный формат даты.

    • Чтобы вставить время, введите время, а затем щелкните Главная > числовом формате (на вкладке Число) >время.

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите числовом формате. Затем в диалоговом окне Числовом формате в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка обновляемого значения даты или времени

Дата или время обновляемые при пересчете листа или открытии книги, считаются «динамическими», а не статическими. Наиболее распространенным способом получения динамической даты или времени в ячейке на листе является использование функции листа.

Для вставки обновляемой текущей даты или времени используются функции СЕГОДНЯ и ТДАТА, как показано в приведенном ниже примере. Дополнительные сведения об использовании этих функций см. в статьях Функция СЕГОДНЯ и Функция ТДАТА

Например:

Формула

Описание (результат)

=СЕГОДНЯ()

Текущая дата (значения могут быть разными)

=ТДАТА()

Текущие дата и время (значения могут быть разными)

  1. Выделите текст в таблице, приведенной выше, и нажмите клавиши CTRL+C.

  2. На пустом листе щелкните ячейку A1 один раз и нажмите CTRL+V. Если вы работаете в Excel в Интернете, повторите копирование и в копирование для каждой ячейки в примере.

    Важно: Чтобы пример правильно работал, его нужно вставить в ячейку A1.

  3. Чтобы переключиться между просмотром результатов и просмотром формул, возвращающих эти результаты, нажмите клавиши Ctrl+` (знак ударения) или на вкладке Формулы в группе Зависимости формул нажмите кнопку Показывать формулы.

Скопировав пример на пустой лист, можно настроить его в соответствии со своими потребностями.

Примечание: Результаты, возвращаемые функциями СЕГОДНЯ и ТДАТА, изменяются только при пересчете листа или при выполнении макроса, содержащего эту функцию. Постоянного обновления ячеек, содержащих эти функции, не происходит. В качестве значений даты и времени используются показания системных часов компьютера.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Нужна дополнительная помощь?

 

Tweaker

Пользователь

Сообщений: 3
Регистрация: 05.06.2019

#1

05.06.2019 15:13:38

Добрый день.
Подскажите код макроса, чтобы при заполнении/изменении значений любой из ячеек в данном ряду таблицы автоматом указывалась текущая дата в отдельной ячейке этого ряда. Ну то есть дата последнего изменения. Нашел что-то похожее, но там только дата изменений одной ячейки, а нужно по диапазону. Понимаю, что скорее всего это делается элементарно, но мои знания VBA очень близки к нулю, поэтому обращаюсь сюда и буду благодарен за любую помощью.
Можно сделать/объяснить на основе приложенного файла.
Тот код что нашел:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 1 And Not IsEmpty(Target.Value) Then _
        Target.Offset(0, -1).Value = Date
End Sub

Прикрепленные файлы

  • Пример.xlsx (8.45 КБ)

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#2

05.06.2019 15:20:14

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:D5")) Is Nothing Then
        Application.EnableEvents = False
        Cells(Target.Row, 5) = Date
    End If
    Application.EnableEvents = True
End Sub
 

Tweaker

Пользователь

Сообщений: 3
Регистрация: 05.06.2019

Юрий М, спасибо. Не ожидал столь оперативного ответа. Все работает именно так как нужно.
А можно как-то сделать чтобы при первом внесении информации в одну из ячеек строки или вставки новой строки дата фиксировалась? И после при внесении изменений уже не менялась. Ну то есть в примере одна ячейка — это дата первичного ввода информации, значение которой неизменно, а вторая ячейка (код который Вы написали выше и тут все понятно) — это дата изменений в любой из ячеек строки, и эта дата может меняться.

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#4

05.06.2019 16:19:15

Как зафиксировать дату изменения, обсуждалось неоднократно.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:D5")) Is Nothing Then
        Application.EnableEvents = False
        If Cells(Target.Row, 5) = "" Then
            Cells(Target.Row, 5) = Date
        Else
            Cells(Target.Row, 6) = Date
        End If
    End If
    Application.EnableEvents = True
End Sub
 

Tweaker

Пользователь

Сообщений: 3
Регистрация: 05.06.2019

Юрий М, в данном случае получается идет проверка на изменение конкретной ячейки, а не всей строки таблицы. То есть пользователь может сначала заполнить хоть 1 ячейку и «дата внесения» появится и зафиксируется. Дальше пользователь может зайти и заполнить 2-ую ячейку в той же строке и это не будет считаться изменением. И только когда пользователь изменит данные в уже ранее заполненной ячейке, тогда уже появится «дата изменения». Это не совсем то, но хоть что-то.
Еще раз большое Вам спасибо за помощь.

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#6

05.06.2019 18:26:31

Цитата
Tweaker написал:
Это не совсем то

А как нужно?

 

art163

Пользователь

Сообщений: 9
Регистрация: 28.12.2019

#7

28.12.2019 15:33:50

Доброго времени , подскажите , можно ли этот код немного изменить , нужно чтобы он отслеживал изменение в ячейке которое вводиться не вручную , а получается в результате вычисления некой(любой) формулы.

Код
 If Target.Cells.Count > 1 Then Exit Sub 
    If Not Intersect(Target, Range("A2:D5")) Is Nothing Then
        Application.EnableEvents = False
        If Cells(Target.Row, 5) = "" Then
            Cells(Target.Row, 5) = Date
        Else
            Cells(Target.Row, 6) = Date
        End If
    End If
    Application.EnableEvents = True
End Sub

Изменено: art16328.12.2019 21:12:20

Содержание

  1. Вставка текущих даты и времени в ячейку
  2. Вставка фиксированного значения даты или времени в ячейку Excel
  3. Изменение формата даты и времени
  4. Вставка фиксированного значения даты или времени в ячейку Excel
  5. Изменение формата даты и времени
  6. Вставка фиксированного значения даты или времени в ячейку Excel
  7. Изменение формата даты и времени
  8. Вставка обновляемого значения даты или времени
  9. Дополнительные сведения
  10. Дата в эксель автоматически
  11. Автоматическая дата в Excel.
  12. Вставка текущих даты и времени в ячейку
  13. Вставка статических значений даты или времени
  14. Вставка обновляемых значений даты или времени
  15. Отмена автоматической замены чисел датами
  16. Дата в Excel. Формула.
  17. Последовательности дат и времен в MS EXCEL
  18. Автоматическая вставка текущей даты в ячейку при вводе данных
  19. Функции для работы с датами в Excel: примеры использования
  20. Как Excel обрабатывает время
  21. Пример функции ДАТА
  22. Функция РАЗНДАТ в Excel
  23. Функция ГОД в Excel
  24. Функция МЕСЯЦ в Excel: пример
  25. Примеры функций ДЕНЬ, ДЕНЬНЕД и НОМНЕДЕЛИ в Excel
  26. Автоматическая вставка текущей даты в ячейку при вводе данных

Вставка текущих даты и времени в ячейку

Допустим, вы хотите легко ввести текущие дату и время при создании журнала действий. Или, возможно, вам нужно автоматически отображать текущие дату и время в ячейке при каждом пересчете формул. Существует несколько способов вставки текущих даты и времени в ячейку.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

Чтобы вставить текущее время, нажмите клавиши CTRL+SHIFT+; (точка с запятой).

Чтобы вставить текущие дату и время, нажмите клавиши CTRL+; (точка с запятой), затем клавишу ПРОБЕЛ, а после этого — CTRL+SHIFT+; (точка с запятой).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

Чтобы вставить текущее время, нажмите + ; (точка с за semi-двоеточием).

Чтобы вставить текущие дату и время, нажмите CTRL+; (точка с за semi-двоеточием), затем нажмите пробел, а затем нажмите +; (точка с за semi-двоеточием).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить дату, введите дату (например, 2/2) и щелкните Главная > числовом формате (на вкладке Число) >Краткий формат даты или Длинный формат даты.

Чтобы вставить время, введите время, а затем щелкните Главная > числовом формате (на вкладке Число) > время.

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите числовом формате. Затем в диалоговом окне Числовом формате в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.

Вставка обновляемого значения даты или времени

Дата или время обновляемые при пересчете листа или открытии книги, считаются «динамическими», а не статическими. Наиболее распространенным способом получения динамической даты или времени в ячейке на листе является использование функции листа.

Для вставки обновляемой текущей даты или времени используются функции СЕГОДНЯ и ТДАТА, как показано в приведенном ниже примере. Дополнительные сведения об использовании этих функций см. в статьях Функция СЕГОДНЯ и Функция ТДАТА

Текущая дата (значения могут быть разными)

Текущие дата и время (значения могут быть разными)

Выделите текст в таблице, приведенной выше, и нажмите клавиши CTRL+C.

На пустом листе щелкните ячейку A1 один раз и нажмите CTRL+V. Если вы работаете в Excel в Интернете, повторите копирование и в копирование для каждой ячейки в примере.

Важно: Чтобы пример правильно работал, его нужно вставить в ячейку A1.

Чтобы переключиться между просмотром результатов и просмотром формул, возвращающих эти результаты, нажмите клавиши Ctrl+` (знак ударения) или на вкладке Формулы в группе Зависимости формул нажмите кнопку Показывать формулы.

Скопировав пример на пустой лист, можно настроить его в соответствии со своими потребностями.

Примечание: Результаты, возвращаемые функциями СЕГОДНЯ и ТДАТА, изменяются только при пересчете листа или при выполнении макроса, содержащего эту функцию. Постоянного обновления ячеек, содержащих эти функции, не происходит. В качестве значений даты и времени используются показания системных часов компьютера.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Источник

Дата в эксель автоматически

Автоматическая дата в Excel.

Вставка текущих даты и времени в ячейку

​Выберите ячейки, в которые​​ считаются динамическими, а​ Подробнее, смотрите в​ ячеек. Отпускаем мышку.​ в​ автоматически появлялись дата​ – дата в​Все аргументы обязательные. Их​ .Value = Now​B15​ ввести используя список​ текст Excel».​ умножение, деление в​ Нажимаем на эту​Если в ячейку В6​обращайте внимание.​ осталось до отпуска,​ необходимо ввести числа.​ не статическими. Чаще​ статье «Пузырьковая диаграмма​ В появившемся диалоговом​Excel​

​ и время его​ числовом формате. Аргумент​ можно задать числами​ .EntireColumn.AutoFit ‘выполняем автоподбор​, формулу нужно ввести​ автозаполения Кнопка Офис/​В Excel можно​ Excel».​ ячейку, делаем её​ поставим​1.​ посчитать возраст, расчитать​Щелкните​

Вставка статических значений даты или времени

​ всего для получения​ в Excel».​ окне нажимаем на​

​, смотрите в статье​ занесения:​ должен быть введен​ или ссылками на​

​ ширины для столбца​

​ в​ Параметры Excel/ Основные/​​ считать не только​​В Excel есть​​ активной. Заходим на​​текущую дату​​Разница дат в Excel​​ дату срока оплаты​​Главная​​ динамической даты или​​Примечание:​​ функцию «Прогрессия». Появится​

​ «Текущая дата в​Чтобы реализовать такой ввод​​ посредством функции ДАТА​​ ячейки с соответствующими​​ B, чтобы дата​​B16​​ Основные параметры работы​​ даты, но и​

Вставка обновляемых значений даты или времени

​ три функции, которые​ закладку «Формулы» в​, то сможем узнать​высчитывается так.​ счета или окончания​>​ времени в ячейке​Мы стараемся как​ такое диалоговое окно.​ Excel». Здесь рассмотрим,​

​ даты, нам потребуется​ или представлять результат​ числовыми данными: для​ умещалась в ячейке​​). Формула вернет результат​​ с Excel/ Изменить​​ время. Как высчитывать​​ выбирают из даты​ раздел «Библиотека функций»​ стаж по сегодняшнее​Столбец А –​ договора, посчитать рабочие​Числовой формат​

​ на листе используются​ ​ можно оперативнее обеспечивать​ ​Устанавливаем галочки у нужных​

​как заполнить таблицу​

​ простой макрос, который​

​ вычисления других формул.​ года – от​

​ в формате даты.​ списки (введите янв,​ время, читайте в​

​ или только число,​​ и выбираем функцию​​ число. Например, узнать​​ пишем дату начала​​ дни и многие,​​>​ функции.​ вас актуальными справочными​ функций, ставим шаг​Excel определенными датами​ надо добавить в​Пример использования функции ГОД:​ 1900 до 9999;​ If Next cell​Другая формула =ТЕКСТ(B15+1/24/60*15;»чч:мм») вернет​

Отмена автоматической замены чисел датами

​ затем Маркером заполнения​ статье «Как посчитать​ или только месяц,​ «Дата и время».​ стаж работника на​ периода, столбец В​ многие другие действия​Текст​Чтобы вставить текущую дату​ материалами на вашем​ (например, через какое​.​ модуль рабочего листа.​

​Возвращает месяц как целое​ для месяца –​ End Sub​ результат в текстовом​ скопируйте вниз).​ время в Excel»​ или год. Это​Или можно открыть​ предприятии. Каждый день​ – пишем дату​

​ или время, чтобы​​ языке. Эта страница​​ количество дней писать​​Можно установить последовательные​​ Для этого щелкните​​ число (от 1​​ от 1 до​

​При необходимости измените «чувствительный»​ формате.​Ячейки будут содержать не​ тут.​ функции «ГОД», «МЕСЯЦ»,​ мастер функций кнопкой​ стаж будет пересчитываться​

​ окончания периода. В​ временем можно проводить​Если вам нужно ввести​ он является обновляемым,​ переведена автоматически, поэтому​

​ даты, пример -​ даты в столбец,​ правой кнопкой мыши​ до 12) для​ 12; для дня​ диапазон​СОВЕТ:​ даты, как в​Как посчитать возраст,​ «ДЕНЬ».​ «Вставить функцию» (на​ на текущую дату.​

​ столбце А и​​ в Excel.​

​ всего несколько чисел,​ с помощью функции​ ее текст может​ с разницей в​ которые будут идти​ по ярлычку листа​ заданной в числовом​ – от 1​»А2:А100″​О текстовых последовательностях​

​ предыдущем случае, а​ смотрите в статье​Делаем активной ячейку​ закладке «Формулы») и​ Как установить текущую​ В устанавливаем формат​

​Все расчеты с​ можно отменить их​сегодня​ содержать неточности и​ два дня –​ по порядку по​ с таблицей и​ формате даты. Аргумент​

Дата в Excel. Формула.

Последовательности дат и времен в MS EXCEL

​ каждом пересчете формул.​ изменении даты в​ по столбцу. Ячейки​ справа ячейку дату​ недели.​код, обозначающий единицы подсчета​Программа Excel «воспринимает» дату​ в столбце B​ затем (предварительно выделив​ и свои особенности.​

​Конечно, можно изменить​ результат.​ три адреса ячейки​=РАЗНДАТ(A6;B6;»y»)&»г.»&РАЗНДАТ(A6;B6;»ym»)&»мес.»&РАЗНДАТ(A6;B6;»md»)&»дн.»​ сделать, читайте в​ ​или​ Вы можете вставить​ первой ячейке, изменятся​ заполнятся следующими датами.​ .Value = Now​

​Для отображения порядкового номера​ (дни, месяцы, годы​ и время как​ напротив введенного заказа​​ их) скопировать вниз​​Последовательность 01.01.09, 01.02.09, 01.03.09​ формат даты в​Такой расчет даты удобен​

​ одинаковые, т.к. дата​Эту формулу пишем​ статье «Преобразовать текст​Вместо апострофа можно использовать​​ТДАТА​​ значения, которые не​ даты в остальных​​ Получится так.​​ .EntireColumn.AutoFit ‘выполняем автоподбор​ недели для указанной​ и др.).​​ обычное число. Электронная​​ автоматически появлялись дата​ маркером заполнения. Ячейки​ (первые дни месяцев)​ ячейке или написать​ тем, что всегда​ записана в одной​ вручную (можно здесь​

​ в дату Excel»​ пробел, но если​, изменяются только при​ будут изменяться, или​ ячейках.​Все хорошо, но, нам​ ширины для столбца​

​ даты применяется функция​Способы измерения интервалов между​ таблица преобразует подобные​ и время его​ будут содержать текстовые​ можно сформировать формулой​ свой формат. Как​ можно изменить цифру​ ячейке. Здесь все​

​ скопировать, заменить адреса​ тут.​ вы планируете применять​ пересчете листа или​

​ же обновлять их.​Чтобы заполнить ячейки​ нужно заполнить ячейки​ B, чтобы дата​

​ НОМНЕДЕЛИ:​ заданными датами:​ данные, приравнивая сутки​ занесения:​ значения. Чтобы ячейки​

​ =ДАТАМЕС(B2;СТРОКА(A1)), в ячейке​ создать свой формат,​ месяца, не меняя​ верно. Получилось.​ ячеек), п.ч. в​

​Для подсчета дат​ функции поиска для​ выполнении макроса, содержащего​Статические значения не изменяются​ датами с промежутком​ только рабочими днями.​ умещалась в ячейке​Дата 24.05.2015 приходится на​для отображения результата в​ к единице. В​Чтобы реализовать такой ввод​ содержали даты, используйте​B2​ смотрите в статье​ формулы. Например, фирма​Таким же образом можно​​ русскоязычной версии Microsoft​​ нужно сделать таблицу​ этих данных, мы​​ ее. Постоянного обновления​​ при пересчете или​

​ 1 месяц, нужно​ Вот тут начинается​ End With End​ 22 неделю в​ днях – «d»;​​ результате значение времени​​ даты, нам потребуется​ формулу =ДАТАМЕС($G$16;(СТРОКА(A2)-СТРОКА($A$1))*3) Предполагается,​​должна находиться дата​​ «Как создать пользовательский​ не успевает сделать​​ прибавить года, изменив​​ Excel, она не​ в Excel и​

​ рекомендуем использовать апостроф.​ ячеек, содержащих эти​ открытии листа.​ в ячейке D21​ «волшебство» Excel. :)​ If Next cell​ году. Неделя начинается​в месяцах – «m»;​​ представляет собой долю​​ простой макрос, который​ что последовательность начинается​​ — первый элемент​​ формат в Excel»​ заказ вовремя, сроки​

​ чуть формулу. Смотрите​ видна в перечне​ установить в ней​

​ Такие функции, как​
​ функции, не происходит.​Выделите на листе ячейку,​ написать такую формулу.​Второй способ.​ End Sub​ с воскресенья (по​
​в годах – «y»;​ от единицы. К​ надо добавить в​ с ячейки​ последовательности (01.01.09).​ тут.​ окончания работы продлеваются.​ пример.​

Автоматическая вставка текущей даты в ячейку при вводе данных

​ функций, но работает.​ формулы. Этим мы​ ПОИСКПОЗ и ВПР,​ В качестве значений​ в которую вы​=ДАТА(ГОД(D20);МЕСЯЦ(D20)+1;ДЕНЬ(D20))​Автоматическая дата в Excel.​При необходимости измените «чувствительный»​ умолчанию).​в месяцах без учета​ примеру, 12.00 –​ модуль рабочего листа.​G16​Эту же последовательность можно​

​В Excel есть​ Меняем цифру в​=​Пояснения к формуле​ сейчас и займемся.​ не учитывают апострофы​ даты и времени​ хотите вставить текущую​В формуле мы​Выделяем ячейку с​ диапазон​​В качестве второго аргумента​ ​ лет – «ym»;​​ это 0,5.​

​ Для этого щелкните​, формулу нужно ввести​ сформировать используя правую​ функции, которыми можно​

​ ячейке G 13​ДАТА(ГОД(A13)+2;МЕСЯЦ(A13);ДЕНЬ(A13))​:​Как простыми способами​ при вычислении результатов.​ используются показания системных​ дату или время.​ написали — дату​ датой. Нажимаем на​»А2:А100″​ указана цифра 2.​в днях без учета​Значение даты электронная таблица​ правой кнопкой мыши​ в ячейку​ клавишу мыши. Пусть​ сложить данные из​ и формула расчитывает​Или прибавить сразу всё​РАЗНДАТ – это​ прибавить к дате​

​Если число в ячейке​ часов компьютера.​​Сделайте одно из следующего:​​ написать, как в​ квадратик в правом​на свой собственный.​ Поэтому формула считает,​ месяцев и лет​ преобразует в число,​​ по ярлычку листа​​G17​ в ячейку​

​ таблицы за конкретный​ новую дату. По​ – года, месяцы,​ название функции.​ или вычесть из​ выровнено по левому​

Функции для работы с датами в Excel: примеры использования

​Чтобы даты было проще​Чтобы вставить дату, введите​ ячейке D20, только​ нижнем углу ячейки​ Если необходимо вставлять​ что неделя начинается​ – «md»;​

Как Excel обрабатывает время

​ равное количеству дней​ с таблицей и​ (см. файл примера).​A2​ день, т.д. Этот​ такому принципу можно​ дни. По такой​y – считает​ даты дни, месяци​ краю, обычно это​ вводить, Excel Online​

​ дату (например,​ к месяцу прибавить​ ПРАВОЙ кнопкой мыши​ дату не в​ с понедельника (второй​в днях без учета​ от 1 января​ выберите в контекстном​Временную последовательность 09:00, 10:00,​введено значение 01.01.09.​ способ пригодится при​ прибавлять, отнимать по​

​ формуле можно рассчитать​ года​ или года, смотрите​ означает, что оно​ автоматически преобразует 2.12​2.2​ 1 месяц.​ и протягиваем вниз​

​ соседний столбец, а​

Пример функции ДАТА

​ день недели).​ лет – «yd».​ 1900 года (так​

​ 11:00, . можно​ Выделим ячейку​ проведении анализа в​ отдельности и вместе​ срок службы, срок​ym – считает​ в статье «Работа​ не отформатировано как​ в 2 дек.​) и нажмите​Получится так.​ по столбцу. Отпускаем​

​ правее — подставьте​Скачать примеры функций для​В некоторых версиях Excel​ решили разработчики) до​Исходный текст​ сформировать используя Маркер​A2​ таблице, т.д. Подробнее​ года, месяцы и​ окончания договора, проекта,​

​ с датами в​ число.​

​ Но это может​Главная​Чтобы прибавить год к​

Функция РАЗНДАТ в Excel

​ кнопку мыши. Появляется​ в оператор​

​ работы с датами​

  • ​ при использовании последних​
  • ​ заданной даты. Например,​
  • ​(View code)​ заполнения. Пусть в​. Удерживая правую клавишу​

​ о таком способе,​ дни.​

  • ​ отпуска, срок оплаты​md – считает​
  • ​ Excel».​
  • ​При введении в ячейку​
  • ​ сильно раздражать, если​>​
  • ​ дате, формулу используем​ такое диалоговое окно​Offset(0,1)​
  • ​Для указания текущей даты​ двух аргументов («md»,​

​ при преобразовании даты​.​ ячейку​ мыши, скопируем Маркером​ читайте в статье​Например, прибавим к​ счета, многое другое.​

​Как посчитать разные​ числа с буквой​ вы хотите ввести​Числовой формат​ как в предыдущем​ с предложенными вариантами​

Функция ГОД в Excel

​вместо 1 число​ используется функция СЕГОДНЯ​ «yd») функция может​ 13.04.1987 получается число​В открывшееся окно редактора​A2​ заполнения, значение из​ «Функция «СУММЕСЛИ» в​ дате 1 год,​Второй способ.​«г.», «мес.», «дн.»​ периоды стажа, других​

Функция МЕСЯЦ в Excel: пример

​ числа, которое не​>​ варианте, только число​ копирования даты.​ побольше.​ (не имеет аргументов).​ выдать ошибочное значение.​ 31880. То есть​ Visual Basic скопируйте​введено значение 09:00.​A2​

Примеры функций ДЕНЬ, ДЕНЬНЕД и НОМНЕДЕЛИ в Excel

​ 2 месяца и​Пишем формулу с​ написанные между знаками​ разных дат и,​ оно автоматически преобразуется​ нужно превращать в​Краткий формат даты​ «1» прибавляем к​

​Нажимаем на нужный вариант.​Закройте редактор Visual Basic​ Чтобы отобразить текущее​ Лучше применять альтернативные​

​ от 1.01.1900 прошло​ этот текст этого​ Выделим ячейку​

​в ячейки ниже.​В таблице Excel​ 11 дней. Пишем​ помощью функции «ДАТА».​

​ & — так​ затем, сложить их​ в научное число:​ даты. Хотя преобразование​или​

​ году. Получится такая​ Мы нажали на​ и попробуйте ввести​ время и дату,​ формулы.​ 31 880 дней.​

​ После того, как​ можно сравнить даты​ года, месяцы и​В ячейке А13​ будут подписаны года,​ вместе, чтобы узнать​ 1,00E+09. Чтобы избежать​

Автоматическая вставка текущей даты в ячейку при вводе данных

​ невозможно отключить его,​Длинный формат даты​ формула.​ слова «Заполнить по​ что-нибудь в диапазон​ применяется функция ТДАТА​Примеры действия функции РАЗНДАТ:​Этот принцип лежит в​Private Sub Worksheet_Change(ByVal​. Скопируем Маркером заполнения,​ отпустим правую клавишу​ из разных столбцов​ дни, которые будем​ пишем дату, к​

​ месяца и дни​ общее количество дней,​ этого, введите перед​ есть несколько способов,​.​=ДАТА(ГОД(D20)+1;МЕСЯЦ(D20);ДЕНЬ(D20))​ рабочим дням». Получилось​ А2:А100. В соседней​ ().​В версии Excel 2007​ основе расчетов временных​​ Target As Range)​ ​ значение из​​ мыши, появится контекстное​

​ и выделить разные​ прибавлять, в разных​ которой будем прибавлять.​ в итоговой дате.​

​ др., смотрите в​ числом апостроф: ‘1e9​ позволяющих обойти его.​Чтобы вставить время, введите​Получились такие даты.​ так.​ ячейке тут же​Предположим, у нас имеется​ данной функции нет​ данных. Чтобы найти​ For Each cell​A2​ меню, в котором​ даты. Как это​ ячейках.​ В примере прибавим​ Можно между кавычками​ статье «Как в​Сложить даты в Excel,​Если вам нужно сложить​ его и щелкните​

​Как автоматически заполнить список,​Вставить даты в​​ появится текущая дата-время!​​ таблица заказов, куда​ в справочнике, но​ количество дней между​ In Target ‘проходим​в ячейки ниже.​ нужно выбрать пункт​​ сделать, смотрите в​​Диалоговое окно заполним так.​ 3 месяца.​

​ написать по-разному –​ Excel посчитать стаж».​ вычесть даты, прибавить​ много значений, которые​Главная​ смотрите в статье​

Источник

Отображение даты и времени изменения ячейки

ArkaIIIa

Дата: Четверг, 05.06.2014, 16:34 |
Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Господа,

В приложенном файле есть готовый макрос, который показывает в столбце B даты и время изменения соответствующих строк столбца A.
Помогите, пожалуйста, преобразовать его таким образом, чтобы он просматривал столбцы, а не строки. Т.е., чтобы при изменении ячейки A1 — в ячейке A5 отображалась дата и время изменения, при изменении ячейки B1 — в B5 и т.д.

К сообщению приложен файл:

__01.xls
(40.5 Kb)

 

Ответить

Karbofox

Дата: Четверг, 05.06.2014, 16:42 |
Сообщение № 2

Группа: Проверенные

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

Сообщений: 69


Репутация:

16

±

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


Excel 2010

Это имелось в виду?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(«A1:IV1»)) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(4, 0)
If Target <> Old_Value Then
.Value = Now
.EntireColumn.AutoFit
End If
End With
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(«A1:IV1»)) Is Nothing Then
Old_Value = Target.Value
End If
End Sub

[/vba]

Сообщение отредактировал KarbofoxЧетверг, 05.06.2014, 16:43

 

Ответить

ArkaIIIa

Дата: Четверг, 05.06.2014, 16:44 |
Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Karbofox
Да, именно это, спасибо большое!

 

Ответить

Rioran

Дата: Четверг, 05.06.2014, 16:53 |
Сообщение № 4

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013

ArkaIIIa, здравствуйте.

Посмотрите на такую переделку. Принцип:

1). Поменял EntireColumn.AutoFit на EntireRow.Autofit
2). Поменял каждый Range с A1:A100… на B1:AA4 в обоих макросах листа
3). Поменял Target.Offset(0, 1) на Target.Offset(5 — ActiveCell.Row, 0)

***

По скорости ответа меня опередили =) однако замечу, что в моём решении будет проставляться время, если изменена любая из 4-х строк выше ячейки времени.

К сообщению приложен файл:

one_way.xls
(47.5 Kb)

Сообщение отредактировал RioranЧетверг, 05.06.2014, 16:55

 

Ответить

ArkaIIIa

Дата: Четверг, 05.06.2014, 17:13 |
Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Очень здорово. Но возник вопрос. Почему эти макросы (Ваш и Karbofox`а) работают только во вновь созданных книгах?
При переносе на ранее созданную — почему то они не работают :-(

 

Ответить

Rioran

Дата: Четверг, 05.06.2014, 17:20 |
Сообщение № 6

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013

ArkaIIIa, у них нет никакого якоря за книгой. В какой лист их вставите — там и будут работать, лишь бы Range, с которым работаем, на самом листе находился где надо.

***

Попробовал продублировать макросы внутри листа два раза — выдает ошибку. Значит, на одном листе в один и тот же момент должны быть только один Worksheet_Change и Worksheet_SelectionChange

Сообщение отредактировал RioranЧетверг, 05.06.2014, 17:22

 

Ответить

ArkaIIIa

Дата: Четверг, 05.06.2014, 17:28 |
Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Проблема вот в чем. У меня при помощи макроса, который прописан в модуле, из ячеек A1:A20 (условно) копируются и вставляются в ячейки B1:B20 (условно) данные.
Нужно, чтобы в B21 прописывалась дата и время вставки. Вот если руками менять данные в строке, на которую ссылается Ваш или Karbofox`а макрос — то всё ок, дата и время прописываются ниже. А если эти данные вставляются при помощи макроса — то VBA ругается.

Сообщение отредактировал ArkaIIIaЧетверг, 05.06.2014, 17:32

 

Ответить

ArkaIIIa

Дата: Четверг, 05.06.2014, 17:30 |
Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Я думал, что макросу все равно, каким образом вносятся изменения в ячейку, и важен сам факт изменения. Но, выходит, что это не так. Почему-то конфликтуют макросы.

Сообщение отредактировал ArkaIIIaЧетверг, 05.06.2014, 17:30

 

Ответить

ArkaIIIa

Дата: Четверг, 05.06.2014, 17:36 |
Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
В общем, если на живом примере, то вот это в модуле:

[vba]

Код

Sub Update_()
     Path_1 = «F:STALE_APP_REPORT.xls»
     iFileDateTime_1 = FileDateTime(Path_1)
     Cells(27, 11) = iFileDateTime_1
     ActiveWorkbook.UpdateLink Name:= _
         «F:STALE_APP_REPORT.xls», Type:=xlExcelLinks
     Dim r As Range
     Set r = Sheets(7).Rows(2).Find(Sheets(7).[B1].Text, , xlValues, xlWhole)
     If Not r Is Nothing Then
         Sheets(7).[B3:B140].Copy
         r.Offset(1).PasteSpecial Paste:=xlPasteValues
     End If
End Sub

[/vba]

Т.е.
1) Обновляются связи с исходником
2) Прописывается время обновления исходника
3) Данные из ячеек B3:B140 листа7 копируются в соответствующие ячейки на листе 7 (смотрит время обновления исходника и вставляет в столбец, где указано такое же время)
4) Нужно, чтобы в 141 строке тех столбцов, куда вставляются данные, указывалась дата и время этой вставки.

 

Ответить

Rioran

Дата: Четверг, 05.06.2014, 17:41 |
Сообщение № 10

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013

ArkaIIIa, Вам нужно чтобы одновременно менялось сразу два значения?

В следующем примере макросы уже, возможно, лишнее и разумнее было бы воспользоваться поиском максимального значения, но машина запущена и сделано макросом, посмотрите =)

 

Ответить

RAN

Дата: Четверг, 05.06.2014, 17:46 |
Сообщение № 11

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

Ранг: Экселист

Сообщений: 5645


то это в файле.
Ваша
[vba][/vba]
сама по себе, а ошибка возникает совсем в другом месте.

 

Ответить

Rioran

Дата: Четверг, 05.06.2014, 17:46 |
Сообщение № 12

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013

ArkaIIIa, понял, реальная задача оказалась другой. Подумаем.

 

Ответить

ArkaIIIa

Дата: Пятница, 06.06.2014, 08:11 |
Сообщение № 13

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

RAN
Рабочий файл — очень объемный, и там много конфиденциальной информации. Его очень сложно будет почистить, чтобы выложить для примера :-(

Rioran
Разве вставка новых данных в ячейку (т.е. замещение одних данных другими) — не является её изменением?
Мне важно, чтобы макрос вставлял дату и время обновления любой ячейки, в рамках указанного диапазона в одном столбце. Т.е. у меня данные из B3:B140, вставляются в C3:С140, D3:D140 и т.д.
Макрос уважаемого Karbofox`а корректно работает, если данные не копипастятся, а забиваются вручную. Вы могли бы помочь адаптировать его именно под вставляемые данные?
Либо добавить что-то в эту часть макроса:
[vba]

Код

Dim r As Range
      Set r = Sheets(7).Rows(2).Find(Sheets(7).[B1].Text, , xlValues, xlWhole)
      If Not r Is Nothing Then
          Sheets(7).[B3:B140].Copy
          r.Offset(1).PasteSpecial Paste:=xlPasteValues
      End If

[/vba]
, чтобы после вставки значений, строчкой ниже указывалась дата/время вставки?

Извиняюсь, что, возможно, как-то не так изначально сформулировал задачу и большое спасибо за попытку помочь.

Сообщение отредактировал ArkaIIIaПятница, 06.06.2014, 08:11

 

Ответить

ArkaIIIa

Дата: Пятница, 06.06.2014, 08:57 |
Сообщение № 14

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Попробовал смоделировать ситуацию на новом пустом файле.
Использовал макрос:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(«A1:IV1»)) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(4, 0)
If Target <> Old_Value Then
.Value = Now
.EntireColumn.AutoFit
End If
End With
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(«A1:IV1»)) Is Nothing Then
Old_Value = Target.Value
End If
End Sub

[/vba]
В случае, если копируется-вставляется 1 ячейка — все в порядке.
В случае, если копируется-вставляется более 1 ячейки — появляется меседжбокс с текстом «Run-time Error `13`: Type mismatch». И после этого в данной книге макрос перестает работать, подсвечивая желтым часть кода:
[vba]

Код

If Target <> Old_Value Then

[/vba]

 

Ответить

Rioran

Дата: Пятница, 06.06.2014, 10:38 |
Сообщение № 15

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013

ArkaIIIa, я попробовал кардинально другой подход.

В области А1:J10 (отгорожено серым в файле) вставляйте оптом и смотрите, как меняются подписи на серой панели.

[vba]

Код

Option Explicit
Public Stopper As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Dim rngX As Range
Dim X As Long

Set rngX = Selection

If Not Intersect(rngX, Range(«a1:j10»)) Is Nothing And Stopper = False Then
     Stopper = True
     For X = 1 To rngX.Columns.Count
         rngX.Cells(1, X).Offset(11 — rngX.Cells(1, X).Row).Value = Now
     Next X
     Stopper = False
End If

Application.ScreenUpdating = True

End Sub

[/vba]

 

Ответить

ArkaIIIa

Дата: Пятница, 06.06.2014, 11:03 |
Сообщение № 16

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Если руками копирую — вставляю — всё хорошо. Если использую макрос вставки, вот этот:
[vba]

Код

    Dim r As Range
     Set r = Sheets(7).Rows(2).Find(Sheets(7).[B1].Text, , xlValues, xlWhole)
     If Not r Is Nothing Then
         Sheets(7).[B3:B140].Copy
         r.Offset(1).PasteSpecial Paste:=xlPasteValues
     End If

[/vba]
, то выдает ошибку Run-time Error 1004: Method `Intersect` of object`_Global`failed
Т.е. я само-собой меняю указанный в Вашем макросе диапазон «a1:j10» на свой «c28:aj140» и строку с 11 на 141, и при вставке руками — все нормально работает. А вот, когда юзаю макрос вставки — беда.

 

Ответить

ArkaIIIa

Дата: Пятница, 06.06.2014, 11:14 |
Сообщение № 17

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Нет, Вы знаете, видимо конфликт не с макросом вставки. Попробовал сделать на новом файле — все нормально работает. Сейчас более расширенный пример попробую сделать и закинуть.

 

Ответить

Rioran

Дата: Пятница, 06.06.2014, 11:24 |
Сообщение № 18

Группа: Авторы

Ранг: Ветеран

Сообщений: 903


Репутация:

290

±

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


Excel 2013


Всё дело в том, что в моём макросе простановка изменений по столбцу привязана к выделению. Просто симитируйте выделение мышью, как например здесь:

[vba]

Код

Sub Data_Transition_2()

Range(«m1:N3»).Copy
Range(«F2»).Select
Worksheets(«Tryal»).Paste

End Sub

[/vba]
Файл с кнопкой для теста прилагаю.

К сообщению приложен файл:

2747659.xlsm
(22.3 Kb)

Сообщение отредактировал RioranПятница, 06.06.2014, 11:25

 

Ответить

ArkaIIIa

Дата: Пятница, 06.06.2014, 11:43 |
Сообщение № 19

Группа: Проверенные

Ранг: Ветеран

Сообщений: 894


Репутация:

115

±

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


2010

Rioran
Прикладываю файл. Голова кругом идет, не знаю, с чем связана ошибка :-(
Попробую еще раз по порядку описать ситуацию на примере файла из приложения.

— Есть файл (файл из приложения), в котороый по связям из другого файла подтягиваются данные. Файл исходник обновляется автоматически каждые полчаса. Таким образом, при каждом обновлении файла из примера раз в полчаса — он подтягивает обновленные данные.
— Есть 2 макроса, засунутых в один модуль:
Первый:
[vba]

Код

Sub Update_()
      Path_1 = «F:STALE_APP_REPORT.xls»
      iFileDateTime_1 = FileDateTime(Path_1)
      Cells(27, 11) = iFileDateTime_1
      ActiveWorkbook.UpdateLink Name:= _
          «F:STALE_APP_REPORT.xls», Type:=xlExcelLinks

[/vba]
Прописывает в ячейку K27 время последнего обновления файла-исходника, откуда тянутся данные в файл-пример.
Второй:
[vba]

Код

Dim r As Range
      Set r = Sheets(7).Rows(2).Find(Sheets(7).[B1].Text, , xlValues, xlWhole)
      If Not r Is Nothing Then
          Sheets(7).[B3:B140].Copy
          r.Offset(1).PasteSpecial Paste:=xlPasteValues
      End If
End Sub

[/vba]
Берет данные из ячеек столбца B3:B140, смотрит значение времени, указанное в ячейке B1, находит в строке 2 аналогичное время, и вставляет скопированные данные.
— Нужен третий макрос, который указывал бы строчкой ниже вставленных данных (т.е. 141-ой), дату и время этой вставки.

Ваш макрос (условно назовем его Макрос № 3) работает:
— Если копировать-вставлять руками
— Если копировать-вставлять макросом вставки (№2, из описания выше)
— Но вот если задействовано все 3 макроса — то возникает сообщение: Run-time Error 1004: Method `Intersect` of object`_Global`failed

Я не понимаю, на каком этапе возникает конфликт :-(

К сообщению приложен файл:

11.xlsm
(24.4 Kb)

Сообщение отредактировал ArkaIIIaПятница, 06.06.2014, 11:44

 

Ответить

RAN

Дата: Пятница, 06.06.2014, 12:19 |
Сообщение № 20

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

Ранг: Экселист

Сообщений: 5645

Ваш файлик как бы поломатый.

К сообщению приложен файл:

3474154.jpg
(18.9 Kb)

Сообщение отредактировал RANПятница, 06.06.2014, 12:21

 

Ответить

Получить и вставить время создания и время последнего изменения в ячейки

В этой статье будут рассказываться о способах получения времени создания и времени последнего изменения текущей информации книги, а также вставки времени создания и времени последнего изменения текущей информации книги в ячейки Excel.

Получите время создания и время последнего изменения в Excel с помощью команды Info

Получите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel хорошая идея3


стрелка синий правый пузырь Получите время создания и время последнего изменения в Excel с помощью команды Info

Мы можем узнать точное время создания и время последнего изменения текущей книги в представлении за кулисами Microsoft Excel 2010/2013.

Нажмите Файл > Инфо, а в правой части представления за кулисами отображается Связанные даты Информация. Под Связанные даты title, в нем указано время последнего изменения, время создания и время последней печати. См. Следующий снимок экрана:

Примечание: Этот способ доступен только в Microsoft Excel 2010/2013. Это недопустимо в Excel 2007.


стрелка синий правый пузырьПолучите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Фактически, мы можем получить как время создания, так и время последнего изменения текущей книги в диалоговом окне «Свойства документа».
Шаг 1: Открой Дополнительные свойства диалоговое окно:

В Excel 2007 щелкните значок Офисы кнопка> Подготовить > ПредложенияИ Свойства документа панель будет отображаться под панелью инструментов, щелкните Свойства документа > Дополнительные свойства, смотрите скриншоты:

В Excel 2010/2013 щелкните значок Файл > Инфо > Предложения > Дополнительные свойства.

документ-вставка-измененное время-4-4

Шаг 2: В Дополнительные свойства В диалоговом окне вы увидите время создания и время последнего изменения на вкладке Статистика. См. Следующий снимок экрана:

документ-вставка-измененное время-4-4


стрелка синий правый пузырь Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Следующие макросы VBA помогут вам напрямую вставить в ячейки время создания и время последнего изменения текущей информации книги.

Вставьте время создания и время последнего изменения в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Код VBA: вставьте время создания и время последнего изменения в Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Шаг 3:Нажмите F5 ключ для запуска этого макроса. И тогда дата создания и дата последнего изменения будут вставлены в ячейку A1 и ячейку A2 отдельно.

Внимание: вы можете изменить ячейку назначения в VB в соответствии с вашими потребностями.

Вставить время последнего изменения книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Шаг 3: Затем сохраните и закройте этот код и вернитесь на рабочий лист, в пустой ячейке введите формулу = ModDate (), и нажмите Enter ключ. Затем он вставляет в ячейку время последнего изменения.

-2

Вставить созданное время книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Шаг 3: Сохраните и закройте этот код, вернитесь на лист, в пустой ячейке введите формулу = CreateDate (), и нажмите Enter key. и созданная дата будет вставлена ​​в ячейку, как показано на следующих снимках экрана:

-2

Примечание: Если ваша ячейка не является форматом даты, она может отображать странное число. Просто отформатируйте эту ячейку как Время формат, он будет отображаться как обычная дата.


стрелка синий правый пузырь Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel

Могу я представить вам удобный инструмент —Kutools for Excel какие из более чем 300 полезных функций могут повысить эффективность вашей работы? С этими Вставить информацию о книге Вы можете быстро вставить путь к книге, имя книги / рабочего листа, имя пользователя или время создания и время последнего изменения в ячейки, верхний или нижний колонтитул.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:
doc последнее изменение name2

2. Затем в Вставить информацию о книге диалоговом окне, проверьте информацию, которую вы хотите вставить из раздела информации, затем перейдите, чтобы указать место, в которое вы хотите вставить, вы можете выбрать ячейки, нижний колонтитул (левый нижний колонтитул, центральный нижний колонтитул, правый нижний колонтитул) или заголовок (левый верхний колонтитул, центральный верхний колонтитул, правый заголовок). Смотрите скриншот:
вставка документа создана, время изменения 1

3. Нажмите Ok, и проверяемая вами информация была вставлена ​​в указанное вами место.

Наконечник. Если вы хотите получить бесплатную пробную версию функции «Вставить информацию о книге», пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

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


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Вставка текущих даты и времени в ячейку

​Смотрите также​​В представленной формуле для​ проверятся каждая дата​вместо 1 число​ местом для подписей​ программы функции: Date();Time();Now().​ данные трех столбцов.​ В появившемся диалоговом​ Excel». Здесь рассмотрим,​ ячейке D2.​ и ДЕНЬ можно​ номеров, что позволяет​ больше 9999, Microsoft​ в Excel можно​ нужно нажать кнопку​Внимание!​ считаются динамическими, а​Примечание:​ условного форматирования главную​ в столбце B.​ побольше.​ или печатей на​

​Колонтитулы позволяют установить текущую​ Подробнее, смотрите в​ окне нажимаем на​как заполнить таблицу​Функция ПСТР ссылается на​ создать дату годовщины,​ использовать их в​ Excel возвращает значение​ объединить три отдельных​ функции пересчета книги.​Эти функции не​ не статическими. Чаще​Мы стараемся как​

Вставка статических значений даты или времени

​ роль играет функция​ Во втором аргументе​Закройте редактор Visual Basic​

  1. ​ каждой странице в​ дату и время​ статье «Пузырьковая диаграмма​ функцию «Прогрессия». Появится​

  2. ​Excel определенными датами​

    • ​ ячейку C2. Она​ основанную на другой​​ вычислениях. Дате 1​​ ошибки #ЧИСЛО!.​​ значения в дату.​​ Эта функция находится​​ подходят при заполнении​​ всего для получения​​ можно оперативнее обеспечивать​​ =МЕСЯЦ(), которая определяет​​ обязательно следует указать​​ и попробуйте ввести​

    • ​ полностью автоматическом режиме.​ в верхних или​​ в Excel».​​ такое диалоговое окно.​​.​​ получает 2 знака​​ ячейке. Например, допустим,​​ января 1900 года​

Вставка обновляемых значений даты или времени

​Месяц​Функция​ на закладке «Формулы»​ таблицы, когда даты​ динамической даты или​ вас актуальными справочными​ номер месяца исходной​ число 2, чтобы​ что-нибудь в диапазон​Предположим, у нас имеется​

  • ​ нижних частях страниц​Самый простой и быстрый​Устанавливаем галочки у нужных​Можно установить последовательные​​ справа от 5-го​​ что Иван начал​​ соответствует номер 1,​​    — обязательный аргумент. Положительное​ДАТА​ в разделе «Вычисления».​ не должны меняться.​ времени в ячейке​ материалами на вашем​

​ даты. Ссылка на​ ​ функция правильно выдавала​ ​ А2:А100. В соседней​

​ таблица заказов, куда​

​ документа, который будет​

​ способ ввести в​ функций, ставим шаг​

​ даты в столбец,​

​ знака. При этом​ работать 10.01.2016. С​ а 1 января​

​ или отрицательное целое​​возвращает порядковый номер​​Нажимаем на кнопку​​Функция «СЕГОДНЯ» в Excel.​​ на листе используются​​ языке. Эта страница​ ячейку в аргументе​ нам очередности дней​ ячейке тут же​ пользователь вводит номер​ выводиться на принтер.​ ячейку текущую дату​ (например, через какое​ которые будут идти​ значение «03» становится​

support.office.com

Текущая дата в Excel.

​ помощью функции ДАТА​​ 2008 года — 39448,​ число в диапазоне​​ определенной даты.​ функции «Пересчет» (калькулятор​​Устанавливаем курсор в​ функции.​ переведена автоматически, поэтому​​ первого раза использования​​ недели (1-понедельник, 2-вторник​ появится текущая дата-время!​
​ заказа, имя клиента,​ Кроме того, колонтитул​ или время –​ количество дней писать​ по порядку по​ месяцем преобразованной даты​ можно рассчитать пятилетний​ так как интервал​ от 1 (январь)​
​Синтаксис​
​ нарисован). Или нажимаем​ ячейку, в которой​Чтобы вставить текущую дату​ ее текст может​
​ функции МЕСЯЦ –​
​ и т.д.). Если​Допустим поставки товаров от​ сумму и т.д.​ позволяет нам пронумеровать​ это нажать комбинацию​ даты, пример -​ возрастанию. Для этого​ в ячейке D2.​​ юбилей его работы.​​ между этими датами​ до 12 (декабрь),​
​: ДАТА(год;месяц;день)​ на кнопку функции​ будем устанавливать дату.​ или время, чтобы​ содержать неточности и​
​ относительная, так как​ не указать второй​ поставщика 1 раз​ Необходимо сделать так,​ все страницы документа.​ горячих клавиш CTRL+«;»​ с разницей в​ есть функция автозаполнения​ «0» не включается​
​Функция ДАТА формирует дату.​ составляет 39 447 дней.​ представляющее месяц года.​Аргументы функции ДАТА описаны​ «Параметры вычислений» ->​ На закладке «Формулы»​ он является обновляемым,​ грамматические ошибки. Для​ проверятся будут несколько​
​ аргумент, то функция​
​ в неделю. Банковские​ чтобы при внесении​Чтобы сделать текущую дату​ (текущая дата) и​ два дня –​ даты в Excel.​ в результат из-за​=ДАТА(ГОД(C2)+5;МЕСЯЦ(C2);ДЕНЬ(C2))​ Чтобы вывести правильную​Если значение аргумента​ ниже.​ «Автоматически».​ в разделе «Библиотека​ с помощью функции​ нас важно, чтобы​
​ ячеек в столбце​ будет считать дни​ транзакции взаиморасчетов с​
​ номера заказа в​ в Excel и​ CTRL+SHIFT+«;» (текущее время).​ 12, 14, 16,​Можно установить даты​ формата​Функция ГОД получает значение​ дату, нужно изменить​месяц​Год​А проще всего​ функций» выбираем функцию​
​сегодня​ эта статья была​ C. После функции​ в английском формате:​ поставщиком товаров производятся​ столбец А -​
​ нумерацию страниц с​Гораздо эффективнее использовать функцию​ т.д.). Нажимаем «ОК».​ с определенным периодом​
​Дата​ «2012» из ячейки​ формат ячейки.​больше 12, аргумент​    — обязательный аргумент. Значение​
​ обновить данные даты​ «Дата и время»​и​
​ вам полезна. Просим​ стоит оператор сравнения​ 1-sanday (неделя), 2-Monday​ регулярно каждый вторник.​
​ в столбце B​ помощью колонтитулов сделайте​ СЕГОДНЯ(). Ведь она​Второй вариант.​ или, только, рабочими​, заданного для ячейки​ C2.​Синтаксис​
​месяц​ аргумента​ и времени, нажав​ . Нажимаем​ТДАТА​ вас уделить пару​ с номером текущего​ (понедельник) и т.д.​

excel-office.ru

Функция ДАТА

​ Необходимо быстро проверить​​ напротив введенного заказа​ так:​ не только устанавливает,​Вставить даты в​ днями, т.д.​ D2.​К этому значению прибавляется​: ДАТА(год;месяц;день)​добавляет число месяцев​год​ на клавишу «F9».​функцию Excel «Сегодня»​, как показано​ секунд и сообщить,​ месяца. Там уже​Дальше идет оператор сравнения​ в какие дни​ автоматически появлялись дата​Откройте окно «Параметры страницы»​ но и автоматически​Excel с определенным периодом​

​Автозаполнение даты в​Функция ПРАВСИМВ получает первые​ пять лет («+5»),​Например,​

Технические подробности

​ к первому месяцу​​может содержать от​​Как посчитать возраст​, затем, нажимаем​

​ в таблице ниже.​​ помогла ли она​

​ используется абсолютная ссылка​ с числом 2.​

  • ​ дата поставки товара​​ и время его​ и выберите закладку​​ обновляет значение ячейки​​ формулой.​Excel.​ 2 знака в​ после чего в​​=ДАТА(C2;A2;B2)​​ указанного года. Например,​ одной до четырех​ на текущую дату,​ «ОК».​ Просмотреть дополнительные сведения​ вам, с помощью​ (значение аргумента неизменяемое).​ Если возвращаемое число​ совпадает с датой​ занесения:​

    ​ «Колонтитулы».​​ каждый день без​Например, нам нужно​Первый способ.​​ ячейке C2 от​​ ячейке D2 выводится​объединяет значение года​ функция ДАТА(2008;14;2) возвращает​ цифр. Excel интерпретирует​ смотрите в статье​В ячейке появилась​

    • ​ о том, как​​ кнопок внизу страницы.​​ Если результаты вычислений​ функцией = 2​ взаиморасчетов. Это позволит​Чтобы реализовать такой ввод​Нажмите на кнопку создать​ участия пользователя.​ заполнить ячейки столбца​Как заполнить последующими​ правого края и​ «2017».​

    • ​ из ячейки C2,​​ число, соответствующее 2​​ аргумент​ «Как посчитать возраст​ сегодняшняя дата, которая​ использовать эти функции​ Для удобства также​ по обе стороны​ значит формула возвращает​ предоставить ежемесячный отчет​

    • ​ даты, нам потребуется​​ нижний колонтитул.​​Чтобы вставить текущую дату​ датами с промежутком​ датами ячейки мы​ добавляет «14» в​

  • ​Функция МЕСЯЦ получает значение​​ месяца из ячейки​ февраля 2009 года.​год​ в Excel».​ будет меняться каждый​ сегодня и ТДАТА.​

    • ​ приводим ссылку на​​ оператора сравнения совпадают,​​ значение ИСТИНА и​​ за прошлый месяц​​ простой макрос, который​В появившемся окне щелкните​ в Excel воспользуйтесь​ 7 дней. В​ знаем. Нужно выделить​ ячейку D2 в​

    • ​ «3» из ячейки​​ A2 и дня​​Если значение аргумента​​в соответствии с​​Можно настроить формат​ день, при открытии​Какие​ оригинал (на английском​ тогда формула возвращает​ к текущей ячейке​ о взаиморасчетах поставщику​ надо добавить в​

  • ​ по полю «В​​ функцией СЕГОДНЯ(). Для​ ячейке D20 написали​ ячейку с датой.​ качестве значения дня.​ C2 и добавляет​ из ячейки B2​

    • ​месяц​​ используемой системой дат,​​ ячейки, чтобы были​ книги Excel.​Чтобы добавить​​ языке) .​​ значение ИСТИНА и​ применяется пользовательский формат​ в день поставки​ модуль рабочего листа.​ центре:». На панели​ этого выберите инструмент​

    • ​ дату – 12.01.2016.​​ Нажать квадратик в​​Чтобы увеличить или уменьшить​​ его в ячейку​​ и помещает их​меньше 1, аргумент​ используемой на вашем​ видны одни часы.​Можно быстро установить сегодняшнюю​Ячейка​Предположим, что вы хотите​ к текущей ячейке​

​ (красная заливка).​​ товара и сэкономить​ Для этого щелкните​ выберите вторую кнопку​ «Формулы»-«Дата и время»-«СЕГОДНЯ».​ В ячейке D​ правом нижнем углу​ дату на определенное​ D2 в качестве​ в одну ячейку​месяц​ компьютере. По умолчанию​Подробнее о форматах ячейки​ дату сочетанием клавиш​Результат​ быстро вводить текущие​

Функция ДАТА, пример 1

​ присваивается пользовательский формат​​​

​ на курьерских услугах.​​ правой кнопкой мыши​​ ««Вставить номер страницы»».​ Данная функция не​ 21 написали такую​ ячейки ЛЕВОЙ кнопкой​ количество дней, просто​ значения месяца.​ в виде даты.​вычитает значение этого​ в Microsoft Excel​ читайте в статье​ «Shift» + «Ctrl»​

Функция ДАТА, пример 2

​=СЕГОДНЯ()​ дату и время​​ (заливка зеленым цветом).​В таблице представлен список​ Для этого следует​ по ярлычку листа​ Потом выберите первую​ имеет аргументов, поэтому​ формулу. =D20+7 Копируем​

Изменение формата даты

  1. ​ мыши.​ добавьте его к​Функция ДЕНЬ получает значение​ В примере ниже​ числа месяцев, увеличенное​ для Windows используется​

  2. ​ «Число Excel. Формат»​​ + «4» или​​Текущая дата (значения могут​​ при записи действий​​Теперь усложним задачу. Допустим​​ проектов, которые должны​​ выделить все даты​​ с таблицей и​​ кнопку «Формат текста»​ вы можете просто​

  3. ​ эту формулу вниз​​Указатель мышки превратится в​​ значению либо ссылке​

  4. ​ «14» из ячейки​ показан результат в​ на 1, из​ система дат 1900,​

    Форматирование ячейки как даты

Расчет даты на основе другой даты

​ здесь.​ «Ctrl» +»Ж». О​ быть разными)​ в журнал или​ у нас список​ быть реализованные на​ предполагаемых поставок, припадающие​ выберите в контекстном​ и задайте формат​ ввести в ячейку:​ по столбцу. Получится​ черный крестик. Тянем​ на ячейку с​ C2 и добавляет​ ячейке D2.​

Расчет даты на основе другой даты

  1. ​ первого месяца указанного​

    ​ то есть первой​

  2. ​Даты можно складывать,​ других сочетаниях клавиш​=ТДАТА()​

  3. ​ сделать так, чтобы​ проектов охватывает не​ протяжении текущего полугодия.​ на вторник.​ меню команду​

  4. ​ для отображения номеров​ «=СЕГОДНЯ()» и нажать​ так.​ этот крестик вниз​ датой или вычтите​ его в ячейку​

  5. ​Необходимо вводить даты без​ года. Например, функция​ датой считается 1​ вычитать, прибавлить к​ смотрите в статье​Текущие дата и время​

Преобразование текстовых строк и чисел в даты

​ они автоматически выводились​ полугодие, а несколько​ Список большой, но​Для решения выше описанной​Исходный текст​ страниц (например, полужирный​ ВВОД.​Использование формулы для заполнения​ по столбцу. Ячейки​ его.​ D2 в качестве​ формулы?​ ДАТА(2008;-3;2) возвращает число,​ января 1900 г.​ ним дни, месяцы,​ «Горячие клавиши Excel»​ (значения могут быть​ в ячейке при​ лет:​ нас интересуют только​ задачи мы, используя​(View code)​ шрифт, а размер​Текущая дата в ячейке:​ ячеек датами хорошо​ заполнятся следующими датами.​В приведенном ниже примере​

Преобразование текстовых строк и чисел в даты

  1. ​ значения дня.​

    ​Ничего. Вы можете​

  2. ​ соответствующее 2 сентября​Совет:​ т.д. Как работать​ тут.​ разными)​ каждом пересчете формул.​Тогда возникает сложность ведь​

  3. ​ те проекты, которые​ специальную формулу в​.​ шрифта 14 пунктов).​Если же необходимо чтобы​ тем, что при​ Получится так.​ ячейка A5 содержит​Если открыть файл, полученный​ Вставить текущую дату,​ 2007 года.​​ Во избежание непредвиденных результатов​​ с датами, смотрите​Как с помощью​

  4. ​Примечание:​ Вы можете вставить​ в разные года​ должны быть реализованы​ условном форматировании выполним​В открывшееся окно редактора​Для установки текущей даты​

Увеличение или уменьшение даты на указанное количество дней

​ в ячейке автоматически​ изменении даты в​Все хорошо, но, нам​ дату, которую нужно​ из другой программы,​ или вы можете​День​ используйте в качестве​

​ в статье «Работа​ функции «СЕГОДНЯ» настроить​ Результаты, возвращаемые функцией​ значения, которые не​ номера месяцев будут​​ в текущем месяце.​​ поиск ближайшей даты​ Visual Basic скопируйте​

Увеличение или уменьшение даты на указанное количество дней

См. также

​ и времени щелкните​

​ обновлялось значение не​ первой ячейке, изменятся​

​ нужно заполнить ячейки​ увеличить или уменьшить​

​ Excel попытается распознать​

​ Вставить дату, которая​

​    — обязательный аргумент. Положительное​

​ значения аргумента​

​ с датами в​

​ таблицу, чтобы никто​СЕГОДНЯ​

​ будут изменяться, или​ совпадать и условное​

​ Визуально искать в​ в Excel для​

support.office.com

Автоматическая дата в Excel.

​ этот текст этого​ по полю «Справа:»,​ только текущей даты,​ даты в остальных​ только рабочими днями.​ на​ даты в данных.​​ обновляется. Также можно​ или отрицательное целое​ ​год​​ Excel».​ не смог исправить​или​​ же обновлять их.​ ​ форматирование будет выделять​​ списке даты текущего​
​ вторников и выделим​ макроса:​ а затем щелкните​ но и времени​ ячейках.​ Вот тут начинается​7​
​ Но иногда это​ выполнять Автоматическое заполнение​ число в диапазоне​четыре цифры. Например,​
​Часы и дату​ ​ данные в таблице,​
​ТДАТА​
​Статические значения не изменяются​ лишние даты. Поэтому​ месяца – весьма​ цветом эти ячейки.​Private Sub Worksheet_Change(ByVal​ по кнопке «Вставить​ тогда лучше использовать​Чтобы заполнить ячейки​
​ «волшебство» Excel. :)​дней (значение в​ не удается сделать.​ данными ячейки листа​ от 1 до​ значение «07» может​​ можно установить в​ смотрите в статье​, изменяются только при​ при пересчете или​ необходимо модернизировать формулу:​
​ неудобно. Можно использовать​
​ Автоматическое выделения цветом​
​ Target As Range)​ дату» (при необходимости​ функцию «=ТДАТА()».​ датами с промежутком​Второй способ.​ ячейке C5).​ Возможно, это связано​Щелкните правой кнопкой мыши​ 31, представляющее день​ интерпретироваться как «1907»​ колонтитул (это отдельное​​ «Чтобы не исправляли​ пересчете листа или​ открытии листа.​Готово:​ условное форматирование, чтобы​
​ календарных дат:​ ​ For Each cell​​ щелкните на кнопку​
​Текущая дата и время​
​ 1 месяц, нужно​Автоматическая дата в Excel.​Сложение или вычитание дат​ с тем, что​ ячейки, которые вы​ месяца.​ или «2007». Четырехзначное​ поле на странице).​ данные в таблице​ выполнении макроса, содержащего​Выделите на листе ячейку,​​Мы добавили в формулу​ Excel нам автоматически​Выделите диапазон ячеек B2:B10​ In Target ‘проходим​ «Вставить время»). И​ в ячейке.​ в ячейке D21​Выделяем ячейку с​Вставка текущих даты и​
​ числа не похожи​
​ хотите изменить. На​ ​Если значение аргумента​ обозначение года предотвращает​
​ Смотрите статью о​ Excel задним числом».​ ее. Постоянного обновления​ в которую вы​ две функции, которые​ выделил цветом интересующие​ и выберите инструмент:​ по всем измененным​ нажмите ОК на​​ написать такую формулу.​ датой. Нажимаем на​
​ времени в ячейку​ на обычные даты​ компьютере Mac щелкните​день​ возникновение путаницы.​ колонтитулах «Как создать​Текущая дата в Excel.​
​ ячеек, содержащих эти​ хотите вставить текущую​ позволяют нам выбрать​ нас даты в​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​
​ ячейкам If Not​
​ обоих диалоговых окнах.​Вставка текущей даты в​=ДАТА(ГОД(D20);МЕСЯЦ(D20)+1;ДЕНЬ(D20))​ квадратик в правом​Автоматическое заполнение ячеек листа​ или отформатированы как​
​ ячейки, удерживая нажатой​
​больше числа дней​Если аргумент​ фирменный бланк. Колонтитулы​Если нужно установить​ функции, не происходит.​ дату или время.​ дни определенного месяца​
​ списке. Пример таблицы​
​Выберите: «Использовать формулу для​
​ Intersect(cell, Range(«A2:A100»)) Is​ В данных полях​ Excel реализуется несколькими​В формуле мы​
​ нижнем углу ячейки​ данными​ текст. В таком​ клавишу CTRL.​ в указанном месяце,​год​ в Excel».​ не только сегодняшнее​ В качестве значений​

excel-office.ru

Вставка текущей даты в Excel разными способами

​Сделайте одно из следующего:​ и года:​ проектов на текущий​ определения форматируемых ячеек».​ Nothing Then ‘если​ можно вводить свой​ способами:​ написали — дату​

​ ПРАВОЙ кнопкой мыши​Функция ГОД​ случае их можно​На вкладке​ аргумент​находится в диапазоне​Примечание:​

Как поставить текущую дату в Excel

​ число, но и​ даты и времени​Чтобы вставить дату, введите​=ГОД() – функция работает​ месяц в Excel:​Чтобы выбрать дни вторников​ изменененная ячейка попадает​ текст.​Задав параметры колонтитулов. Преимущество​ написать, как в​ и протягиваем вниз​

​Функция МЕСЯЦ​

СЕГОДНЯ.

​ преобразовать в даты​Главная​день​ от 0 (нуль)​Мы стараемся как​ время, то вместо​ используются показания системных​

ТДАТА.

​ дату (например,​ по тому же​

​Нам необходимо из целой​

Как установить текущую дату в Excel на колонтитулах

​ в Excel для​ в диапазон A2:A100​Нажмите на кнопку ОК​

  1. ​ данного способа в​ ячейке D20, только​ по столбцу. Отпускаем​Функция ДЕНЬ​ с помощью функции​щелкните​
  2. ​добавляет это число​
  3. ​ до 1899 (включительно),​ можно оперативнее обеспечивать​ функции «Сегодня» выберем​ часов компьютера.​2.2​ принципу что и​ таблицы выбрать дату​ поля ввода введите​ With cell.Offset(0, 1)​ и обратите на​ том, что текущая​ к месяцу прибавить​ кнопку мыши. Появляется​Функция СЕГОДНЯ​
  4. ​ ДАТА. Например, на​Формат​ дней к первому​

​ Excel для вычисления​ вас актуальными справочными​ – «ТДата». В​Рассмотрим​) и нажмите​ =МЕСЯЦ(). Разница только​ в Excel на​ формулу: =ДЕНЬНЕД(B2;2)=2 и​ ‘вводим в соседнюю​

​ предварительный результат отображения​ дата и время​ 1 месяц.​ такое диалоговое окно​Функция ДАТАЗНАЧ​

  1. ​ приведенном ниже рисунке​>​ дню месяца. Например,​Параметры страницы.
  2. ​ года прибавляет это​ материалами на вашем​Нижний колонтитул.
  3. ​ ячейке будет стоять​функции «Сегодня»»Текушая дата» в​Главная​ в том, что​ текущий месяц:​ нажмите на кнопку​ справа ячейку дату​ колонтитула. Ниже выпадающего​ проставляются сразу на​Получится так.​ с предложенными вариантами​Функции даты и времени​
  4. ​ ячейка C2 содержит​Формат ячеек​ функция ДАТА(2008;1;35) возвращает​ значение к числу​ языке. Эта страница​ и текущая дата,​ Excel​>​ возвращает из даты​Выделите диапазон ячеек B2:B11​ «Формат», чтобы задать​ .Value = Now​ списка «Нижний колонтитул».​Нижний колонтитул.
  5. ​ все страницы одновременно.​Чтобы прибавить год к​ копирования даты.​ (справка)​ дату, которая имеет​Результат1.
  6. ​или нажмите клавиши​ число, соответствующее 4​ 1900. Например, функция​ переведена автоматически, поэтому​ и текущее время,​

Слева.

​Функция Excel «Текущая​Числовой формат​ номер года.​ и выберите инструмент:​ желаемый цвет заливки​ .EntireColumn.AutoFit ‘выполняем автоподбор​Для предварительного просмотра колонтитулов​Используя функцию СЕГОДНЯ().​ дате, формулу используем​Нажимаем на нужный вариант.​

Слева. Результат2.

​Все функции Excel (по​ формат ГГГГММДД. Она​CTRL+1​ февраля 2008 года.​ ДАТА(108;1;2) возвращает 2​ ее текст может​

exceltable.com

Автоматическая вставка текущей даты в ячейку при вводе данных

​ получились электронные часы​ дата»​>​=И() – данное имя​ «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».​ для ячеек. Например,​ ширины для столбца​ перейдите в меню​Используя комбинацию горячих клавиш​ как в предыдущем​ Мы нажали на​ категориям)​ также отформатирована как​(COMMAND+1 на компьютере​

Текущая дата эксель

​Если значение аргумента​ января 2008 (1900+108)​ содержать неточности и​ с календарем. Дата​устанавливает в ячейке​Краткий формат даты​ функции говорит само​Снова выбираем: «Использовать формулу​ зеленый. Нажмите ОК​ B, чтобы дата​ «Вид»-«Разметка страницы». Там​​ CTRL+; – для​ ​ варианте, только число​​ слова «Заполнить по​

​Все функции Excel (по​ текст. Для ее​ Mac).​день​

​ года.​ грамматические ошибки. Для​ и часы в​ текущее число и​или​ за себя. То​ для определения форматируемых​ на всех открытых​ умещалась в ячейке​ же можно их​ установки текущей даты​ «1» прибавляем к​ рабочим дням». Получилось​ алфавиту)​ преобразования в дату​3. Выберите нужный​меньше 1, аргумент​Если аргумент​ нас важно, чтобы​ таблице Excel стоят​ время.​

​Длинный формат даты​ есть должны совпадать​​ ячеек».​​ окнах.​ End With End​ редактировать.​ и CTRL+SHIFT+; –​ году. Получится такая​ так.​​Дату в Excel​​ функция ДАТА используется​язык (местоположение)​

​день​год​ эта статья была​ такие же, как​Функция Excel «Сегодня»​.​

planetaexcel.ru

Как выбрать дату на текущий месяц во всех ячейках таблицы Excel

​ и номера месяцев​В поле ввода введите​Результат выделения цветом каждого​ If Next cell​Колонтитулы позволяют нам не​ для установки текущего​ формула.​Вставить даты в​ можно установить несколькими​ в сочетании с​и формат даты.​вычитает значение этого​находится в диапазоне​ вам полезна. Просим​ на ноутбуке (ПК).​устанавливает в ячейке​Чтобы вставить время, введите​ и их номера​ формулу: =МЕСЯЦ(B2)=МЕСЯЦ($C$2) и​ вторника в списке​ End Sub​

Поиск даты в диапазоне дат Excel

​ только устанавливать даты​ времени. Недостаток –​=ДАТА(ГОД(D20)+1;МЕСЯЦ(D20);ДЕНЬ(D20))​Excel с определенным периодом​ способами — вставить​ функциями ЛЕВСИМВ, ПСТР​Дополнительные сведения о форматировании​ числа дней, увеличенное​ от 1900 до​ вас уделить пару​

Даты доставки.

  1. ​Как обновить текущую дату​ текущую дату.​ его и щелкните​Создание правила.
  2. ​ годов.​ нажмите на кнопку​ДЕНЬНЕД.
  3. ​ дат поставок товаров:​При необходимости измените «чувствительный»​ и нумерации страниц.​ в данном способе​Получились такие даты.​.​ текущую дату, заполнить​ и ПРАВСИМВ.​ дат см. в​ на 1, из​ 9999 (включительно), Excel​

Зеленый.

​ секунд и сообщить,​ и время в​Эти функции применяются​

выделение цветом каждого вторника.

​Главная​Вся формула достаточно просто​ «Формат», чтобы задать​В формуле мы использовали​ диапазон​ Так же можно​ не будет автоматически​Как автоматически заполнить список,​Первый вариант.​ таблицу датами с​Функция ДАТА формирует дату.​ статье Пользовательское форматирование​ первого дня указанного​ использует это значение​ помогла ли она​ Excel.​ в Excel, чтобы​>​ читается и ее​ желаемый цвет заливки​ функцию =ДЕНЬНЕД(), которая​»А2:А100″​ добавить место для​ обновляться значение ячейки​

​ смотрите в статье​Выделяем ячейку с​ определенным периодом, т.​=ДАТА(ЛЕВСИМВ(C2;4);ПСТР(C2;5;2);ПРАВСИМВ(C2;2))​ даты.​ месяца. Например, функция​ как год. Например,​ вам, с помощью​В Excel дата​

​ установить текущюю дату​

Выделения дат цветом только текущего месяца

​Числовой формат​ легко использовать для​ для ячеек. Например,​ возвращает номер дня​на свой собственный.​ подписи ответственного лица​ на текущие показатели,​ «Заполнить автоматически список​ датой. Нажимаем ПРАВОЙ​ д.​Функция ЛЕВСИМВ получает первые​Функцию ДАТА можно использовать​ ДАТА(2008;1;-15) возвращает число,​ функция ДАТА(2008;1;2) возвращает​ кнопок внизу страницы.​ и время автоматически​ в таблице, которая​>​ решения похожих задач​ зеленый. Нажмите ОК​

список проектов.

​ недели для исходной​ Если необходимо вставлять​ за отчет. Например,​ при открытии документа.​

  1. ​ в Excel».​ мышкой на квадратик​Как вставить текущую дату​Создать правило.
  2. ​ 4 знака слева​ для формирования даты​ соответствующее 16 декабря​МЕСЯЦ.
  3. ​ 2 января 2008​ Для удобства также​ обновляется только при​ будет обновляться при​Время​ с помощью условного​ на всех открытых​ даты. В первом​ дату не в​

Зеленый.

​ отредактируем теперь левую​ Но в некоторых​В Excel можно​

дни текущего месяца.

​ в правом нижнем​ в​ в ячейке C2.​ на основе даты​ 2007 года.​ года.​ приводим ссылку на​ открытии книги. Если​ открытии таблицы, или​.​ форматирования.​ окнах.​ аргументе функции указываем​ соседний столбец, а​ нижнюю часть страницы​ случаях данных недостаток​ сделать много разных​ углу и протягиваем​Excel​ При этом значение​ в другой ячейке.​Примечание:​Если значение аргумента​ оригинал (на английском​ нужно обновить дату​ для расчета дат,​

​Дата и время, обновляемые​Читайте так же: как​В результате визуально отчетливо​ ссылку на исходную​ правее — подставьте​

список проектов на несколько лет.

​ в области колонтитулов:​ является преимуществом.​ графиков. Рассмотрим еще​ на нужное количество​, смотрите в статье​ «2014» становится годом​ Например, с помощью​

ГОД.

​ В Excel даты хранятся​

Пример.

​год​ языке) .​ или время в​ стажа, возраста, других​ при пересчете листа​

  1. ​ посчитать разницу между​ видно дни текущего​ дату. Ссылка относительная​ в оператор​Таким образом, можно создавать​С помощью VBA макросов​ один вид диаграммы,​
  2. ​ ячеек. Отпускаем мышку.​ «Текущая дата в​ преобразованной даты в​ функций ГОД, МЕСЯЦ​ в виде порядковых​меньше 0 или​С помощью функции ДАТА​

​ течение дня, то​ настроек таблицы.​ или открытии книги,​ датами в днях.​ месяца:​ так как будет​

​Offset(0,1)​ документы с удобным​ используя в коде​

exceltable.com

​ которая будет сравнивать​

Самый простой и быстрый способ ввести в ячейку текущую дату или время – это нажать комбинацию горячих клавиш CTRL+«;» (текущая дата) и CTRL+SHIFT+«;» (текущее время).

Гораздо эффективнее использовать функцию СЕГОДНЯ(). Ведь она не только устанавливает, но и автоматически обновляет значение ячейки каждый день без участия пользователя.

Как поставить текущую дату в Excel

Чтобы вставить текущую дату в Excel воспользуйтесь функцией СЕГОДНЯ(). Для этого выберите инструмент «Формулы»-«Дата и время»-«СЕГОДНЯ». Данная функция не имеет аргументов, поэтому вы можете просто ввести в ячейку: «=СЕГОДНЯ()» и нажать ВВОД.

Текущая дата в ячейке:

СЕГОДНЯ.

Если же необходимо чтобы в ячейке автоматически обновлялось значение не только текущей даты, но и времени тогда лучше использовать функцию «=ТДАТА()».

ТДАТА.

Текущая дата и время в ячейке.



Как установить текущую дату в Excel на колонтитулах

Вставка текущей даты в Excel реализуется несколькими способами:

  1. Задав параметры колонтитулов. Преимущество данного способа в том, что текущая дата и время проставляются сразу на все страницы одновременно.
  2. Используя функцию СЕГОДНЯ().
  3. Используя комбинацию горячих клавиш CTRL+; – для установки текущей даты и CTRL+SHIFT+; – для установки текущего времени. Недостаток – в данном способе не будет автоматически обновляться значение ячейки на текущие показатели, при открытии документа. Но в некоторых случаях данных недостаток является преимуществом.
  4. С помощью VBA макросов используя в коде программы функции: Date();Time();Now().

Колонтитулы позволяют установить текущую дату и время в верхних или нижних частях страниц документа, который будет выводиться на принтер. Кроме того, колонтитул позволяет нам пронумеровать все страницы документа.

Чтобы сделать текущую дату в Excel и нумерацию страниц с помощью колонтитулов сделайте так:

  1. Откройте окно «Параметры страницы» и выберите закладку «Колонтитулы».
  2. Параметры страницы.

  3. Нажмите на кнопку создать нижний колонтитул.
  4. Нижний колонтитул.

  5. В появившемся окне щелкните по полю «В центре:». На панели выберите вторую кнопку ««Вставить номер страницы»». Потом выберите первую кнопку «Формат текста» и задайте формат для отображения номеров страниц (например, полужирный шрифт, а размер шрифта 14 пунктов).
  6. Для установки текущей даты и времени щелкните по полю «Справа:», а затем щелкните по кнопке «Вставить дату» (при необходимости щелкните на кнопку «Вставить время»). И нажмите ОК на обоих диалоговых окнах. В данных полях можно вводить свой текст.
  7. Нижний колонтитул.

  8. Нажмите на кнопку ОК и обратите на предварительный результат отображения колонтитула. Ниже выпадающего списка «Нижний колонтитул».
  9. Результат1.

  10. Для предварительного просмотра колонтитулов перейдите в меню «Вид»-«Разметка страницы». Там же можно их редактировать.

Слева.

Колонтитулы позволяют нам не только устанавливать даты и нумерации страниц. Так же можно добавить место для подписи ответственного лица за отчет. Например, отредактируем теперь левую нижнюю часть страницы в области колонтитулов:

Слева.
Результат2.

Таким образом, можно создавать документы с удобным местом для подписей или печатей на каждой странице в полностью автоматическом режиме.

Содержание

  • Использование оператора СЕГОДНЯ
    • Способ 1: введение функции вручную
    • Способ 2: применение Мастера функций
    • Способ 3: изменение формата ячейки
    • Способ 4: использование СЕГОДНЯ в комплексе с другими формулами
  • Вопросы и ответы

Функция СЕГОДНЯ в Microsoft Excel

Одной из интересных функций Microsoft Excel является СЕГОДНЯ. С помощью этого оператора производится ввод в ячейку текущей даты. Но его можно также применять и с другими формулами в комплексе. Рассмотрим основные особенности функции СЕГОДНЯ, нюансы ее работы и взаимодействия с другими операторами.

Использование оператора СЕГОДНЯ

Функция СЕГОДНЯ производит вывод в указанную ячейку даты, установленной на компьютере. Она относится к группе операторов «Дата и время».

Но нужно понимать, что сама по себе данная формула не будет обновлять значения в ячейке. То есть, если вы через несколько дней откроете программу и не пересчитаете в ней формулы (вручную или автоматически), то в ячейке будет установлена все та же дата, а не актуальная на данный момент.

Для того, чтобы проверить установлен ли автоматический пересчет в конкретном документе нужно выполнить ряд последовательных действий.

  1. Находясь во вкладке «Файл», переходим по пункту «Параметры» в левой части окна.
  2. Переход в параметры в Microsoft Excel

  3. После того, как активировалось окно параметров, переходим в раздел «Формулы». Нам понадобится самый верхний блок настроек «Параметры вычислений». Переключатель параметра «Вычисления в книге» должен быть установлен в позицию «Автоматически». Если он находится в другой позиции, то следует его установить так, как было сказано выше. После изменения настроек нужно нажать на кнопку «OK».

Установка автоматического пересчета формул в Microsoft Excel

Теперь при любом изменении в документе будет выполняться его автоматический пересчет.

Если по каким-то причинам вы не желаете устанавливать автоматический пересчет, то для того, чтобы актуализировать на текущую дату содержимое ячейки, которая содержит функцию СЕГОДНЯ, нужно её выделить, установить курсор в строку формул и нажать кнопку Enter.

Пересчет формулы в Microsoft Excel

В этом случае, при отключении автоматического пересчета он будет выполнен только относительно данной ячейки, а не по всему документу.

Способ 1: введение функции вручную

Данный оператор не имеет аргумента. Синтаксис его довольно прост и выглядит следующим образом:

=СЕГОДНЯ()

  1. Для того, чтобы применить данную функцию достаточно просто вставить это выражение в ячейку, в которой хотите видеть снимок сегодняшней даты.
  2. Ввод функции СЕГОДНЯ в Microsoft Excel

  3. Для того, чтобы произвести расчет и вывести результат на экран, жмем на кнопку Enter.

Результат функции СЕГОДНЯ в Microsoft Excel

Lumpics.ru

Урок: Функции даты и времени в Excel

Способ 2: применение Мастера функций

Кроме того, для введения этого оператора можно использовать Мастер функций. Такой вариант особенно подойдет начинающим пользователям Excel, которые ещё путаются в названиях функций и в их синтаксисе, хотя в данном случае он максимально прост.

  1. Выделяем ячейку на листе, в которую будет выводиться дата. Кликаем по пиктограмме «Вставить функцию», расположенной у строки формул.
  2. Перемещение в Мастер функций в Microsoft Excel

  3. Происходит запуск Мастера функций. В категории «Дата и время» или «Полный алфавитный перечень» ищем элемент «СЕГОДНЯ». Выделяем его и жмем на кнопку «OK» в нижней части окна.
  4. СЕГОДНЯ в Мастере функций в Microsoft Excel

  5. Открывается небольшое информационное окошко, в котором сообщается о назначении данной функции, а также говорится о том, что она не имеет аргументов. Жмем на кнопку «OK».
  6. Информационное сообщение в Microsoft Excel

  7. После этого дата, установленная на компьютере пользователя в данный момент, будет выведена в предварительно указанную ячейку.

Вывод сегодняшней даты через Мастер функций в Microsoft Excel

Урок: Мастер функций в Excel

Способ 3: изменение формата ячейки

Если перед вводом функции СЕГОДНЯ ячейка имела общий формат, то она автоматически будет переформатирована в формат даты. Но, если диапазон был уже отформатирован под другое значение, то оно не изменится, а значит, формула будет выдавать некорректные результаты.

Для того, чтобы посмотреть значение формата отдельной ячейки или области на листе, нужно выделить нужный диапазон и находясь во вкладке «Главная» взглянуть, какое значение установлено в специальной форме формата на ленте в блоке инструментов «Число».

Некорректное отображение функции в Microsoft Excel

Если после ввода формулы СЕГОДНЯ в ячейке автоматически не был установлен формат «Дата», то функция будет некорректно отображать результаты. В этом случае необходимо произвести изменение формата вручную.

  1. Кликаем правой кнопкой мыши по ячейке, в которой нужно изменить формат. В появившемся меню выбираем позицию «Формат ячеек».
  2. Переход в формат ячеек в Microsoft Excel

  3. Открывается окно форматирования. Переходим во вкладку «Число» в случае, если оно было открыто в другом месте. В блоке «Числовые форматы» выделяем пункт «Дата» и жмем на кнопку «OK».
  4. Формат ячеек в Microsoft Excel

  5. Теперь ячейка отформатирована правильно и в ней отображается именно сегодняшняя дата.

Ячейка правильно отформатирована в Microsoft Excel

Кроме того, в окне форматирования также можно поменять представление сегодняшней даты. По умолчанию установлен формат по шаблону «дд.мм.гггг». Выделяя различные варианты значений в поле «Тип», которое расположено в правой части окна форматирования, можно изменять внешний вид отображения даты в ячейке. После изменений не забывайте жать на кнопку «OK».

Изменение типа отображения даты в Microsoft Excel

Способ 4: использование СЕГОДНЯ в комплексе с другими формулами

Кроме того, функцию СЕГОДНЯ можно использовать, как составляющую часть комплексных формул. В данном качестве этот оператор позволяет решать гораздо более широкие задачи, чем при самостоятельном использовании.

Оператор СЕГОДНЯ очень удобно применять для вычисления временных интервалов, например, при указании возраста человека. Для этого в ячейку записываем выражение такого типа:

=ГОД(СЕГОДНЯ())-1965

Для применения формулы жмем на кнопку ENTER.

Расчет количества лет при помощи функции СЕГОДНЯ в Microsoft Excel

Теперь в ячейке при правильной настройке пересчета формул документа постоянно будет отображаться актуальный возраст человека, который был рожден в 1965 году. Аналогичное выражение можно применить и для любого другого года рождения или для вычисления годовщины события.

Существует также формула, которая в ячейке отображает значения на несколько дней вперед. Например, для отображения даты через три дня она будет выглядеть следующим образом:

=СЕГОДНЯ()+3

Расчет даты на 3 дня вперед в Microsoft Excel

Если нужно постоянно иметь на виду дату на три дня назад, то формула будет выглядеть так:

=СЕГОДНЯ()-3

Расчет даты на 3 дня назад в Microsoft Excel

Если нужно отобразить в ячейке только номер текущего числа в месяце, а не дату полностью, то применяется такое выражение:

=ДЕНЬ(СЕГОДНЯ())

Указание текущего номера дня в месяце в Microsoft Excel

Аналогичная операция для показа номера актуального месяца будет выглядеть следующим образом:

=МЕСЯЦ(СЕГОДНЯ())

Указание текущего месяца в году в Microsoft Excel

То есть, в феврале в ячейке будет стоять цифра 2, в марте – 3 и т.д.

С помощью более сложной формулы можно вычислить, сколько дней пройдет от сегодняшнего дня до наступления конкретной даты. Если настроить правильно пересчет, то таким способом можно создать своеобразный обратный таймер отсчета до заданной даты. Шаблон формулы, которая имеет подобные возможности, выглядит следующим образом:

=ДАТАЗНАЧ("заданная_дата")-СЕГОДНЯ()

Количество дней до конретной даты в Microsoft Excel

Вместо значения «Заданная дата» следует указать конкретную дату в формате «дд.мм.гггг», до которой нужно организовать отсчет.

Обязательно следует отформатировать ячейку, в которой будет выводиться данный расчет, под общий формат, иначе отображение результата будет некорректным.

Установка общего формата в ячейке в Microsoft Excel

Существует возможность комбинации и с другими функциями Excel.

Как видим, с помощью функции СЕГОДНЯ можно не только просто выводить актуальную на текущий день дату, но и производить многие другие вычисления. Знание синтаксиса этой и других формул поможет моделировать различные комбинации применения данного оператора. При правильной настройке пересчета формул в документе его значение будет обновляться автоматически.

Дата в эксель автоматически

10 популярных функций даты и времени в Microsoft Excel

Одной из самых востребованных групп операторов при работе с таблицами Excel являются функции даты и времени. Именно с их помощью можно проводить различные манипуляции с временными данными. Дата и время зачастую проставляется при оформлении различных журналов событий в Экселе. Проводить обработку таких данных – это главная задача вышеуказанных операторов. Давайте разберемся, где можно найти эту группу функций в интерфейсе программы, и как работать с самыми востребованными формулами данного блока.

Работа с функциями даты и времени

Группа функций даты и времени отвечает за обработку данных, представленных в формате даты или времени. В настоящее время в Excel насчитывается более 20 операторов, которые входят в данный блок формул. С выходом новых версий Excel их численность постоянно увеличивается.

Любую функцию можно ввести вручную, если знать её синтаксис, но для большинства пользователей, особенно неопытных или с уровнем знаний не выше среднего, намного проще вводить команды через графическую оболочку, представленную Мастером функций с последующим перемещением в окно аргументов.

  1. Для введения формулы через Мастер функций выделите ячейку, где будет выводиться результат, а затем сделайте щелчок по кнопке «Вставить функцию». Расположена она слева от строки формул.

После этого происходит активация Мастера функций. Делаем клик по полю «Категория».

Из открывшегося списка выбираем пункт «Дата и время».

Кроме того, Мастер функций можно активировать, выделив ячейку на листе и нажав комбинацию клавиш Shift+F3. Существует ещё возможность перехода во вкладку «Формулы», где на ленте в группе настроек инструментов «Библиотека функций» следует щелкнуть по кнопке «Вставить функцию».

Имеется возможность перемещения к окну аргументов конкретной формулы из группы «Дата и время» без активации главного окна Мастера функций. Для этого выполняем перемещение во вкладку «Формулы». Щёлкаем по кнопке «Дата и время». Она размещена на ленте в группе инструментов «Библиотека функций». Активируется список доступных операторов в данной категории. Выбираем тот, который нужен для выполнения поставленной задачи. После этого происходит перемещение в окно аргументов.

Одной из самых простых, но вместе с тем востребованных функций данной группы является оператор ДАТА. Он выводит заданную дату в числовом виде в ячейку, где размещается сама формула.

Его аргументами являются «Год», «Месяц» и «День». Особенностью обработки данных является то, что функция работает только с временным отрезком не ранее 1900 года. Поэтому, если в качестве аргумента в поле «Год» задать, например, 1898 год, то оператор выведет в ячейку некорректное значение. Естественно, что в качестве аргументов «Месяц» и «День» выступают числа соответственно от 1 до 12 и от 1 до 31. В качестве аргументов могут выступать и ссылки на ячейки, где содержатся соответствующие данные.

Для ручного ввода формулы используется следующий синтаксис:

Близки к этой функции по значению операторы ГОД, МЕСЯЦ и ДЕНЬ. Они выводят в ячейку значение соответствующее своему названию и имеют единственный одноименный аргумент.

Своего рода уникальной функцией является оператор РАЗНДАТ. Он вычисляет разность между двумя датами. Его особенность состоит в том, что этого оператора нет в перечне формул Мастера функций, а значит, его значения всегда приходится вводить не через графический интерфейс, а вручную, придерживаясь следующего синтаксиса:

Из контекста понятно, что в качестве аргументов «Начальная дата» и «Конечная дата» выступают даты, разницу между которыми нужно вычислить. А вот в качестве аргумента «Единица» выступает конкретная единица измерения этой разности:

  • Год (y);
  • Месяц (m);
  • День (d);
  • Разница в месяцах (YM);
  • Разница в днях без учета годов (YD);
  • Разница в днях без учета месяцев и годов (MD).

В отличии от предыдущего оператора, формула ЧИСТРАБДНИ представлена в списке Мастера функций. Её задачей является подсчет количества рабочих дней между двумя датами, которые заданы как аргументы. Кроме того, имеется ещё один аргумент – «Праздники». Этот аргумент является необязательным. Он указывает количество праздничных дней за исследуемый период. Эти дни также вычитаются из общего расчета. Формула рассчитывает количество всех дней между двумя датами, кроме субботы, воскресенья и тех дней, которые указаны пользователем как праздничные. В качестве аргументов могут выступать, как непосредственно даты, так и ссылки на ячейки, в которых они содержатся.

Синтаксис выглядит таким образом:

Оператор ТДАТА интересен тем, что не имеет аргументов. Он в ячейку выводит текущую дату и время, установленные на компьютере. Нужно отметить, что это значение не будет обновляться автоматически. Оно останется фиксированным на момент создания функции до момента её перерасчета. Для перерасчета достаточно выделить ячейку, содержащую функцию, установить курсор в строке формул и кликнуть по кнопке Enter на клавиатуре. Кроме того, периодический пересчет документа можно включить в его настройках. Синтаксис ТДАТА такой:

Очень похож на предыдущую функцию по своим возможностям оператор СЕГОДНЯ. Он также не имеет аргументов. Но в ячейку выводит не снимок даты и времени, а только одну текущую дату. Синтаксис тоже очень простой:

Эта функция, так же, как и предыдущая, для актуализации требует пересчета. Перерасчет выполняется точно таким же образом.

Основной задачей функции ВРЕМЯ является вывод в заданную ячейку указанного посредством аргументов времени. Аргументами этой функции являются часы, минуты и секунды. Они могут быть заданы, как в виде числовых значений, так и в виде ссылок, указывающих на ячейки, в которых хранятся эти значения. Эта функция очень похожа на оператор ДАТА, только в отличии от него выводит заданные показатели времени. Величина аргумента «Часы» может задаваться в диапазоне от 0 до 23, а аргументов минуты и секунды – от 0 до 59. Синтаксис такой:

Кроме того, близкими к этому оператору можно назвать отдельные функции ЧАС, МИНУТЫ и СЕКУНДЫ. Они выводят на экран величину соответствующего названию показателя времени, который задается единственным одноименным аргументом.

Функция ДАТАЗНАЧ очень специфическая. Она предназначена не для людей, а для программы. Её задачей является преобразование записи даты в обычном виде в единое числовое выражение, доступное для вычислений в Excel. Единственным аргументом данной функции выступает дата как текст. Причем, как и в случае с аргументом ДАТА, корректно обрабатываются только значения после 1900 года. Синтаксис имеет такой вид:

Задача оператора ДЕНЬНЕД – выводить в указанную ячейку значение дня недели для заданной даты. Но формула выводит не текстовое название дня, а его порядковый номер. Причем точка отсчета первого дня недели задается в поле «Тип». Так, если задать в этом поле значение «1», то первым днем недели будет считаться воскресенье, если «2» — понедельник и т.д. Но это не обязательный аргумент, в случае, если поле не заполнено, то считается, что отсчет идет от воскресенья. Вторым аргументом является собственно дата в числовом формате, порядковый номер дня которой нужно установить. Синтаксис выглядит так:

Предназначением оператора НОМНЕДЕЛИ является указание в заданной ячейке номера недели по вводной дате. Аргументами является собственно дата и тип возвращаемого значения. Если с первым аргументом все понятно, то второй требует дополнительного пояснения. Дело в том, что во многих странах Европы по стандартам ISO 8601 первой неделей года считается та неделя, на которую приходится первый четверг. Если вы хотите применить данную систему отсчета, то в поле типа нужно поставить цифру «2». Если же вам более по душе привычная система отсчета, где первой неделей года считается та, на которую приходится 1 января, то нужно поставить цифру «1» либо оставить поле незаполненным. Синтаксис у функции такой:

Оператор ДОЛЯГОДА производит долевой расчет отрезка года, заключенного между двумя датами ко всему году. Аргументами данной функции являются эти две даты, являющиеся границами периода. Кроме того, у данной функции имеется необязательный аргумент «Базис». В нем указывается способ вычисления дня. По умолчанию, если никакое значение не задано, берется американский способ расчета. В большинстве случаев он как раз и подходит, так что чаще всего этот аргумент заполнять вообще не нужно. Синтаксис принимает такой вид:

Мы прошлись только по основным операторам, составляющим группу функций «Дата и время» в Экселе. Кроме того, существует ещё более десятка других операторов этой же группы. Как видим, даже описанные нами функции способны в значительной мере облегчить пользователям работу со значениями таких форматов, как дата и время. Данные элементы позволяют автоматизировать некоторые расчеты. Например, по введению текущей даты или времени в указанную ячейку. Без овладения управлением данными функциями нельзя говорить о хорошем знании программы Excel.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Вставка текущих даты и времени в ячейку

Предположим, что вы хотите просто ввести текущую дату и время в журнал событий. Или, возможно, требуется автоматически отобразить текущую дату и время в ячейке при каждом пересчете формул. Существует несколько способов вставки в ячейку текущих даты и времени.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Поскольку значение ячейки не меняется, оно считается статичным.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

Чтобы вставить текущее время, нажмите клавиши CTRL+SHIFT+; (точка с запятой).

Чтобы вставить текущие дату и время, нажмите клавиши CTRL+; (точка с запятой), затем клавишу ПРОБЕЛ, а после этого — CTRL+SHIFT+; (точка с запятой).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите команду Формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке число в разделе Категориявыберите пункт Дата или время , а затем в списке тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Поскольку значение ячейки не меняется, оно считается статичным.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).

Чтобы вставить текущее время, нажмите клавиши +; (точка с запятой).

Чтобы вставить текущие дату и время, нажмите клавиши CTRL +; (точка с запятой), нажмите клавишу пробел, а затем — клавишу +; (точка с запятой).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите команду Формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке число в разделе Категориявыберите пункт Дата или время , а затем в списке тип выберите тип и нажмите кнопку ОК.

Вставка фиксированного значения даты или времени в ячейку Excel

Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Поскольку значение ячейки не меняется, оно считается статичным.

Выделите на листе ячейку, в которую требуется вставить текущую дату или время.

Выполните одно из действий, указанных ниже.

Чтобы вставить дату, введите дату (например, 2/2) и нажмите кнопку раскрывающегося списка Формат номерадома > (на вкладке число ) >Краткая дата или длинный день.

Чтобы вставить время, введите время и нажмите кнопку раскрывающегося списка Формат номерадома > (на вкладке число ) >time (время).

Изменение формата даты и времени

Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите пункт Числовой Формат. Затем в диалоговом окне Формат номера в разделе Категориявыберите значение Дата или время , а затем в списке тип выберите тип и нажмите кнопку ОК.

Вставка обновляемого значения даты или времени

Дата или время обновляемые при пересчете листа или открытии книги, считаются «динамическими», а не статическими. Наиболее распространенным способом получения динамической даты или времени в ячейке на листе является использование функции листа.

Для вставки обновляемой текущей даты или времени используются функции СЕГОДНЯ и ТДАТА, как показано в приведенном ниже примере. Дополнительные сведения об использовании этих функций см. в статьях Функция СЕГОДНЯ и Функция ТДАТА

Текущая дата (значения могут быть разными)

Текущие дата и время (значения могут быть разными)

Выделите текст в таблице, приведенной выше, и нажмите клавиши CTRL+C.

На пустом листе выберите один раз в ячейке a1, а затем нажмите клавиши CTRL + V. Если вы работаете в Excel Online, повторите копирование и вставку для каждой ячейки в примере.

Важно: Чтобы пример правильно работал, его нужно вставить в ячейку A1.

Чтобы переключиться между просмотром результатов и просмотром формул, возвращающих эти результаты, нажмите клавиши Ctrl+` (знак ударения) или на вкладке Формулы в группе Зависимости формул нажмите кнопку Показывать формулы.

Скопировав пример на пустой лист, можно настроить его в соответствии со своими потребностями.

Примечание: Результаты, возвращаемые функциями СЕГОДНЯ и ТДАТА, изменяются только при пересчете листа или при выполнении макроса, содержащего эту функцию. Постоянного обновления ячеек, содержащих эти функции, не происходит. В качестве значений даты и времени используются показания системных часов компьютера.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Автоматически ставить дату

Автоматическая подстановка даты и времени во всех версиях Excel может быть сделана с помощью горячих клавиш, или с использованием специальных функций.
С помощью горячих клавиш можно вставлять текущие значения даты и времени.

Такая комбинация вставляет в активную ячейку текущую дату.

А с помощью этих клавиш подставляется текущее время.
Специальные функции дают возможность вставлять в ячейки обновляемые значения даты и времени. Эти значения будут автоматически обновляться при каждом открытии файла.
Функция «=СЕГОДНЯ()» вставляет обновляемую дату.

А функция «=ТДАТА()» — время и дату.

Покоряйте Excel и до новых встреч!

Комментарии:

  1. Вася-хлеборез — 19.01.2015 12:37

Спасибо. Огромное спасибо. 1111

Нарик — 10.03.2015 05:06

Саша — 30.09.2015 15:13

Ввод даты с помощью горячих клавиш в 2010 версии не работает

Oleg — 25.01.2016 19:52

А вот такой случай; есть таблица для списка (1 столбец — список, 2 столбец — дата). Хотелось бы, чтобы при заполнении ячейки 1 столбца в ячейке второго столбца проставлялась дата, но потом она не менялась на следующий день…
=ЕСЛИ(А1=»»;»»;СЕГОДНЯ()), но сегодня обновляется каждый день.

Добавление времени и даты в Microsoft Excel

При работе с документами в Microsoft Excel иногда возникает необходимость добавить время или дату, либо обе эти величины. К сожалению, не все пользователи знают о специальных средствах, реализованных в Экселе, которые позволяют быстро решить эту проблему. В этой статье рассмотрим, как вставить время или дату в Excel. Давайте разбираться. Поехали!

Для добавления данных используют дополнительный функционал

Для того чтобы решить поставленную задачу, необходимо воспользоваться одной из двух функций программы: «Текущая дата» либо «Сегодня». Обратите внимание, что приведённые инструменты не подходят для случаев, когда число должно быть фиксированным, то есть не меняться каждый новый день.

Первым делом определите ячейку, с которой будете работать. Далее, перейдите на вкладку «Формулы». В блоке «Библиотека функций» нажмите «Дата и время». Затем выберите «Сегодня» и кликните по кнопке «ОК». После этого выбранная вами область будет содержать текущее значение, которое будет изменяться каждый день. То же самое можно проделать при помощи комбинации клавиш Ctrl+Shift+4, в некоторых случаях Ctrl+Ж либо ввести «=СЕГОДНЯ()» в специальное поле для формул.

Для добавления времени в том же разделе ленты инструментов кликните по пункту «Время». Обратите внимание, что все значения будут выставлены в соответствии с информацией из календаря и часов вашего компьютера.

Установленные вами значения будут обновляться каждый раз при открытии книги, но, если необходимо обновить данные в процессе работы с книгой, перейдите на вкладку «Формулы» и нажмите кнопку «Пересчёт», расположенную в блоке ленты инструментов «Вычисления». Также можно использовать кнопку «Параметры вычислений», затем нужно выбрать пункт «Автоматически». Существует более простой и быстрый вариант — воспользоваться клавишей F9 на клавиатуре.

В том случае, если необходимо, чтобы в поле отображались только часы, откройте окно «Формат ячеек». В разделе «Числовые форматы» укажите «Время», а в пункте «Тип» нажмите на подходящий вариант отображения часов. Альтернативный способ — воспользоваться комбинацией клавиш Ctrl+Shift+6.

Как видите, подобная проблема решается достаточно просто. Разобравшись как вставить календарь в Excel при помощи специальных функций, вы сможете быстрее и эффективнее работать с документами и таблицами. Пишите в комментариях была ли статья полезной для вас, а также задавайте вопросы по теме, которые могли у вас возникнуть в процессе прочтения статьи.

Вставка текущей даты в Excel разными способами

Самый простой и быстрый способ ввести в ячейку текущую дату или время – это нажать комбинацию горячих клавиш CTRL+«;» (текущая дата) и CTRL+SHIFT+«;» (текущее время).

Гораздо эффективнее использовать функцию СЕГОДНЯ(). Ведь она не только устанавливает, но и автоматически обновляет значение ячейки каждый день без участия пользователя.

Как поставить текущую дату в Excel

Чтобы вставить текущую дату в Excel воспользуйтесь функцией СЕГОДНЯ(). Для этого выберите инструмент «Формулы»-«Дата и время»-«СЕГОДНЯ». Данная функция не имеет аргументов, поэтому вы можете просто ввести в ячейку: «=СЕГОДНЯ()» и нажать ВВОД.

Текущая дата в ячейке:

Если же необходимо чтобы в ячейке автоматически обновлялось значение не только текущей даты, но и времени тогда лучше использовать функцию «=ТДАТА()».

Текущая дата и время в ячейке.

Как установить текущую дату в Excel на колонтитулах

Вставка текущей даты в Excel реализуется несколькими способами:

  1. Задав параметры колонтитулов. Преимущество данного способа в том, что текущая дата и время проставляются сразу на все страницы одновременно.
  2. Используя функцию СЕГОДНЯ().
  3. Используя комбинацию горячих клавиш CTRL+; – для установки текущей даты и CTRL+SHIFT+; – для установки текущего времени. Недостаток – в данном способе не будет автоматически обновляться значение ячейки на текущие показатели, при открытии документа. Но в некоторых случаях данных недостаток является преимуществом.
  4. С помощью VBA макросов используя в коде программы функции: Date();Time();Now() .

Колонтитулы позволяют установить текущую дату и время в верхних или нижних частях страниц документа, который будет выводиться на принтер. Кроме того, колонтитул позволяет нам пронумеровать все страницы документа.

Чтобы сделать текущую дату в Excel и нумерацию страниц с помощью колонтитулов сделайте так:

  1. Откройте окно «Параметры страницы» и выберите закладку «Колонтитулы».
  2. Нажмите на кнопку создать нижний колонтитул.
  3. В появившемся окне щелкните по полю «В центре:». На панели выберите вторую кнопку ««Вставить номер страницы»». Потом выберите первую кнопку «Формат текста» и задайте формат для отображения номеров страниц (например, полужирный шрифт, а размер шрифта 14 пунктов).
  4. Для установки текущей даты и времени щелкните по полю «Справа:», а затем щелкните по кнопке «Вставить дату» (при необходимости щелкните на кнопку «Вставить время»). И нажмите ОК на обоих диалоговых окнах. В данных полях можно вводить свой текст.
  5. Нажмите на кнопку ОК и обратите на предварительный результат отображения колонтитула. Ниже выпадающего списка «Нижний колонтитул».
  6. Для предварительного просмотра колонтитулов перейдите в меню «Вид»-«Разметка страницы». Там же можно их редактировать.

Колонтитулы позволяют нам не только устанавливать даты и нумерации страниц. Так же можно добавить место для подписи ответственного лица за отчет. Например, отредактируем теперь левую нижнюю часть страницы в области колонтитулов:

Таким образом, можно создавать документы с удобным местом для подписей или печатей на каждой странице в полностью автоматическом режиме.

ArtistJoker

0 / 0 / 0

Регистрация: 18.11.2015

Сообщений: 2

1

18.11.2015, 17:43. Показов 9164. Ответов 11

Метки нет (Все метки)


Студворк — интернет-сервис помощи студентам

Привет, форумчане!

Очень прошу помочь. На работе заполняю отчёт, в котором вручную приходится вставлять дату изменений строки(не просто ячейки) с информацией по клиенту. Искал в сети помощь, нашёл только вот такой код (внесение даты изменений соседней ячейки):
———————————————————————————————————————

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub

———————————————————————————————————————-
Может быть в этом коде можно внести изменения, чтобы при изменении строки автоматически вставлялась дата в первую ячейку строки. Как это сделать?

Заранее благодарен!

Вложения

Тип файла: xlsx Пример отчёта.xlsx (10.1 Кб, 39 просмотров)



0



Vlad999

3827 / 2254 / 751

Регистрация: 02.11.2012

Сообщений: 5,928

18.11.2015, 17:58

2

Лучший ответ Сообщение было отмечено ArtistJoker как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Application.EnableEvents = False
For Each cell In Target 'проходим по всем измененным ячейкам
  If Not Intersect(cell, Range("B2:H100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
     With Cells(cell.Row, 1) 'вводим в первый столбец текущей строки ячейку дату
     .Value = Now
     .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
     End With
   End If
Next cell
Application.EnableEvents = True
End Sub



1



pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

18.11.2015, 18:59

3

Альтернативный вариант (на основании выложенного примера)

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
       Application.EnableEvents = False
       With Intersect(Target.EntireRow, [A:A])
            .Value = Date
            .Columns.AutoFit
       End With: [H1] = Now
       Application.EnableEvents = True
    End If
End Sub

или

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 4 Then
       Application.EnableEvents = False
       Intersect(Target.EntireRow, [A:A]) = Date
       [H1] = Now: Columns(1).AutoFit
       Application.EnableEvents = True
    End If
End Sub



1



0 / 0 / 0

Регистрация: 18.11.2015

Сообщений: 2

23.11.2015, 17:10

 [ТС]

4

Спасибо, огромное! Всё работает как надо!



0



0 / 0 / 0

Регистрация: 12.02.2020

Сообщений: 23

07.07.2020, 20:58

5

Подскажите как подкорректировать для моего случая:
На первом листе книги имеется диапазон ячеек например А2:V20. В каждую ячейку которого вносятся числовые значения.
Нужно зеркально в те же ячейки на втором листе книги вносить дату и время изменения значения ячеек на первом листе книги.



0



4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

07.07.2020, 21:00

6

gpetrv, Скажите чей вариант Вы выбрали ?



0



0 / 0 / 0

Регистрация: 12.02.2020

Сообщений: 23

07.07.2020, 22:38

7

pashulka, Мне все равно чей вариант, лишь бы рабочий……и универсальный (изменять диапазоны ячеек)



0



pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

07.07.2020, 22:40

8

Next — следующий лист.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal r As Range)
   Set r = Intersect(r, [A2:V20])
   If r Is Nothing Then Exit Sub
   
   Application.EnableEvents = False
   With Me.Next.Range(r.Address)
        .Value = Now
        .Columns.AutoFit
   End With
   Application.EnableEvents = True
End Sub



1



0 / 0 / 0

Регистрация: 12.02.2020

Сообщений: 23

07.07.2020, 22:51

9

pashulka, А на первом листе?



0



4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

07.07.2020, 23:18

10

gpetrv, В модуле первого листа — событие Worksheet_Change. Тогда на следующем — будет выводиться дата+время изменения данных ячеек диапазона A2:V20

Если месторасположение второго рабочего листа, в дальнейшем, может меняться, то можно использовать имя этого листа или кодовое(программное) имя. Т.е. вместо Me.Next написать Worksheets(«Лист2») или Лист2 . Разумеется, имена нужно указать свои.



1



0 / 0 / 0

Регистрация: 12.02.2020

Сообщений: 23

29.07.2020, 21:21

11

pashulka, не могу скомпоновать со своим кодом. Не силен…. Помогите..



0



pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

29.07.2020, 22:24

12

Это тоже мой код, но там всего один рабочий лист. Если в реальности появится второй, то между первой и второй

перерывчик небольшой

строкой просто добавьте

Visual Basic
1
2
3
4
5
6
    Application.EnableEvents = False '1
    With Me.Next.Range(r.Address)
        .Value = Now
        .Columns.AutoFit
    End With
    For Each c In r '2



1



IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.07.2020, 22:24

12

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Excel дата начала недели по дате
  • Excel дата начала года
  • Excel дата минус дни
  • Excel дата минус дата месяцев
  • Excel дата минус год

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии