Note: The other languages of the website are Google-translated. Back to English
Войти Регистрация

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

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

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

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

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

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

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

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

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

-2

 

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

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

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

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

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

 

В 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, с более чем 300 удобные функции, облегчающие вашу работу. 
Бесплатная загрузка
бесплатная полнофункциональная в 30 дня

После бесплатная установка 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% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Старейший первый
Новички вперед
Комментарии (21)
Оценок пока нет. Оцените первым!
Сайед Нехал
Сайед Нехал
Этот комментарий был сведен к минимуму модератором на сайте
Полезная информация.... :-)
Ответить
0
0
Брайан
Брайан
Этот комментарий был сведен к минимуму модератором на сайте
Это было прекрасно. Именно то, что я искал. Огромное спасибо!!
Ответить
0
0
Халид
Халид
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за помощь, это то, что нам нужно. коды работают правильно, но без обновления, значит, не обновлять дату модификации после сохранения. у вас есть какое-нибудь решение для этого? я пробовал много раз, сохранить, закрыть, а затем снова открыть, без обновления даты.
Ответить
0
0
Алекс
Алекс     Халид
Этот комментарий был сведен к минимуму модератором на сайте
Привет Халид,

У меня была такая же проблема, и я добавил в код строку «Application.Volatile», и когда я нажму F9, она обновит информацию.
Я видел это в видео "Learn Excel - "Function for Last Saved Time": Podcast #1725" Билла Джелена.
@Bill: Большое спасибо за видео!

https://www.youtube.com/watch?v=KnSA6xdmc2Q

С Уважением,
Алекс
Ответить
0
0
Ларри С. Пит
Ларри С. Пит
Этот комментарий был сведен к минимуму модератором на сайте
Привет: я сделал это по-другому, но также с помощью кодирования. Поскольку я добавил код, это заставляет меня сохранять книгу с макросами и, следовательно, в виде *.XLSM. Это хорошо, но во многих местах такие макросы не разрешены. Есть ли способ получить это (или сохранить книгу с изменениями) в обычный .XLS? Я также предполагаю, что он попросит кого-то «Включить макросы», если у него включен этот параметр (я консультант, и в большинстве мест, где я работаю, это заставляет меня включать макросы, когда это применимо, после открытия книги). К вашему сведению: вот как я сделал это в макросе (не лучше, просто по-другому). Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Последнее обновление" и формат (Now(), "mm /дд/гггг") .RightHeader = "" .RightFooter = "Последнее обновление" и формат (сейчас(), "мм/дд/гггг") End With End Sub
Ответить
0
0
ЮМЭЙР
ЮМЭЙР
Этот комментарий был сведен к минимуму модератором на сайте
Эта информация очень полезна для меня. спасибо беспокойство
Ответить
0
0
ЮМЭЙР
ЮМЭЙР
Этот комментарий был сведен к минимуму модератором на сайте
спасибо за эту информацию
Ответить
0
0
Сваран
Сваран
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Здравствуйте: я сделал это по-другому, но также с помощью кодирования. Поскольку я добавил код, это заставляет меня сохранять книгу с макросами и, следовательно, в виде *.XLSM. Это хорошо, но во многих местах такие макросы не разрешены. Есть ли способ получить это (или сохранить книгу с изменениями) в обычный .XLS? Я также предполагаю, что он попросит кого-то «Включить макросы», если у него включен этот параметр (я консультант, и в большинстве мест, где я работаю, это заставляет меня включать макросы, когда это применимо, после открытия книги). К вашему сведению: вот как я сделал это в макросе (не лучше, просто по-другому). Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Последнее обновление" и формат (Now(), "mm /дд/гггг") .RightHeader = "" .RightFooter = "Последнее обновление" и формат (сейчас(), "мм/дд/гггг") End With End SubЛарри С. Питит[/quote] Привет, я успешно вставил дату и время последнего изменения, но они не обновляются при сохранении и повторном открытии книги. Пожалуйста, помогите здесь ...... я не знаю о кодировании, поэтому я в основном копирую любую информацию, предоставленную на таких форумах. Спасибо, Сваран.
Ответить
0
0
BillG
BillG     Сваран
Этот комментарий был сведен к минимуму модератором на сайте
Да, у меня такая же проблема - вчера все работало отлично, но сегодня это не изменилось при сохранении.
Ответить
0
0
Ашраф
Ашраф
Этот комментарий был сведен к минимуму модератором на сайте
Пожалуйста помоги!!! необходимо вернуть дату и время последнего изменения закрытого файла и вернуть эту информацию в ячейку в открытом файле
Ответить
0
0
DavidC
DavidC
Этот комментарий был сведен к минимуму модератором на сайте
Эй, это было потрясающе. Можно ли вставить дату создания и дату последнего изменения другой книги? Я хочу создать индексный файл, который сообщает мне, когда в последний раз обновлялись другие документы. Спасибо!!
Ответить
0
0
Джули Хьюз
Джули Хьюз
Этот комментарий был сведен к минимуму модератором на сайте
Привет, любовь, люблю это, но, к сожалению, дата появляется только в США, а в Австралии у нас есть дд / мм / гг. Я устал менять ее на этот формат, используя раздел «Дата», но мне не повезло. Любые идеи?
Ответить
0
0
МюррейБесплатно
МюррейБесплатно     Джули Хьюз
Этот комментарий был сведен к минимуму модератором на сайте
Джули - в коде VBA вместо этого используйте «дд/мм/гг чч: н». Это поставит дату в «правильный» порядок! :смешной:
Ответить
0
0
Mokhtar
Mokhtar
Этот комментарий был сведен к минимуму модератором на сайте
очень очень очень очень очень очень очень полезно спасибо
Ответить
0
0
Брюс
Брюс
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли изменить это, чтобы отображать дату создания Другие закрытые файлы? Я хотел бы сравнить дату создания файла на моем рабочем столе с файлом на общедоступном веб-сервере. Я мог бы создать формулу для использования ваших функций... CreateDate() локального файла для CreateDate() веб-файла... и предупредить меня об изменении. Я ценю вашу помощь. Брюс
Ответить
0
0
Кристофер Хьюэрго
Кристофер Хьюэрго
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за помощь, но у меня также была проблема с тем, что ячейка не обновлялась после сохранения без необходимости сначала закрывать и снова открывать книгу. Я добавил следующий код в рабочую книгу, которая обновляется после события сохранения: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub Это помогло мне. Надеюсь, поможет.
Ответить
0
0
Уэйн Эрфлинг
Уэйн Эрфлинг
Этот комментарий был сведен к минимуму модератором на сайте
Я вижу, что «Время последнего сохранения» упоминается в коде только ОДИН РАЗ. Я использую Excel 2010. Когда я помещаю «Время последнего сохранения» в функцию, даже с Application.Volatile(true), значение никогда не обновляется. Затем я заметил, что значение, возвращаемое «Время последнего сохранения», не отображается на странице «Свойства» Excel 2010 НИ на одной из вкладок в диалоговом окне «Дополнительные свойства». Может ли «Последнее время сохранения» быть какой-то реликвией?
Ответить
0
0
Уэйн Эрфлинг
Уэйн Эрфлинг
Этот комментарий был сведен к минимуму модератором на сайте
Я узнал, почему у меня не работает «Время последнего сохранения». Я поместил свою функцию в свой файл .XLA, а «ThisWorkbook» имел в виду сам файл .XLA. Поэтому мне нужно было получить Application.ActiveWorkbook (предположительно место вызова функции), в результате чего получилось: Function DocumentProperty(PropertyName As String) ''Вы можете обращаться к свойствам документа либо по значению индекса, либо по имени. В следующем списке показаны доступные встроенные имена свойств документа: 'Заголовок Тема Автор' Ключевые слова Шаблон комментариев 'Последний автор Номер редакции Название приложения 'Последняя печать Дата создания Дата последнего сохранения Время 'Общее время редактирования Количество страниц Количество слов 'Количество Символы Категория безопасности 'Format Manager Company' Количество байтов Количество строк Количество абзацев 'Количество слайдов Количество примечаний Количество скрытых слайдов 'Количество мультимедийных клипов Базовое количество символов гиперссылки (с пробелами) Call Application.Volatile(True) Dim ActiveUserWorkbook При ошибке Возобновить Далее Установить ActiveUserWorkbook = Application.ActiveWorkbook Если Err.Number 0 Тогда DocumentProperty = "!!! Ошибка получения Application.ActiveWorkbook: " & Err.Description Выход из функции End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Тогда DocumentProperty = "!!! Неизвестное имя свойства !!!" Выход из функции End If End Function
Ответить
0
0
Суджин Радж
Суджин Радж
Этот комментарий был сведен к минимуму модератором на сайте
Привет команда, мне нужна ваша помощь. У меня есть файл excel, я хочу найти дату изменения конкретной ячейки. Пожалуйста, помогите мне с кодировкой здесь, если это возможно. Заранее спасибо.
Ответить
0
0
разъем
разъем
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу автоматически создавать пространство между каждым клиентом в Excel, как мне это сделать??
Ответить
0
0
Габриель
Габриель
Этот комментарий был сведен к минимуму модератором на сайте
Я ТЕБЯ ОБОЖАЮ!!!! ТКССССССС
Ответить
0
0
Здесь еще нет комментариев
Оставляйте свои комментарии
GUEST
Публикация как гость
Логин
×
Оценить этот пост:
Сброс
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL