Note: The other languages of the website are Google-translated. Back to English

Отримайте та вставте створений час та час останньої зміни у клітинки

У цій статті буде розказано про способи отримання створеного часу та часу останньої зміни поточної інформації про книгу, а також вставлення створеного часу та часу останньої зміни поточної інформації про книги в клітинки Excel.

Отримайте створений час та час останньої зміни в Excel за допомогою команди "Інформація"

Отримайте створений час та час останньої зміни у програмі Excel за допомогою функції Розширені властивості

Вставте створений час та час останньої зміни у клітинки Excel із кодом VBA

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


стрілка синя права міхур Отримайте створений час та час останньої зміни в Excel за допомогою команди "Інформація"

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

Натисніть філе > інформація, а в правій частині перегляду за лаштунками відображається Пов’язані дати інформація. Під Пов’язані дати заголовок, у ньому перелічено час останньої модифікації, час створення та час останнього друку. Дивіться наступний знімок екрана:

-2

 

Примітка: Цей спосіб доступний лише в Microsoft Excel 2010/2013. Він недійсний у програмі Excel 2007.


стрілка синя права міхурОтримайте створений час та час останньої зміни у програмі Excel за допомогою функції Розширені властивості

Насправді ми можемо отримати як час створення, так і час останньої зміни поточної книги у діалоговому вікні Властивості документа.
крок 1: Відкрийте Додаткові властивості діалогове вікно:

У програмі Excel 2007 клацніть на офіс кнопка> Готувати > властивості, А в Властивості документа панель буде відображатися під панеллю інструментів, натисніть Властивості документа > Додаткові властивості, див. скріншоти:

doc-insert-modified-time-3-3
-1
doc-insert-modified-time-4-4

 

У програмі Excel 2010/2013 клацніть на філе > інформація > властивості > Додаткові властивості.

doc-insert-modified-time-4-4

крок 2: В Додаткові властивості у діалоговому вікні ви побачите створений час та час останньої зміни на вкладці Статистика. Дивіться наступний знімок екрана:

doc-insert-modified-time-4-4


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

Наступні макроси VBA допоможуть вам безпосередньо вставити створений час та час останньої зміни поточної інформації книги в комірки.

Вставте як створений час, так і час останньої зміни в Excel

крок 1: Утримуйте клавішу ALT + F11 клавіш, і відкриється вікно Microsoft Visual Basic for Applications.

крок 2: Натисніть Insert >> Модуліта вставте наступний макрос у вікно модуля.

Код 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 for Applications.

крок 2: Натисніть Insert >> Модуліта вставте наступний макрос у вікно модуля.

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

крок 3: Потім збережіть і закрийте цей код і поверніться до робочого аркуша, в пусту клітинку введіть формулу = ModDate (), і натисніть кнопку вводити ключ. Потім він вставляє останній змінений час у клітинку.

-2

Вставте створений час книги в Excel

крок 1: Утримуйте клавішу ALT + F11 клавіш, і відкриється вікно Microsoft Visual Basic for Applications.

крок 2: Натисніть Insert >> Модуліта вставте наступний макрос у вікно модуля.

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

крок 3: Збережіть і закрийте цей код, поверніться на робочий аркуш, у порожню комірку введіть формулу = Дата створення (), і натисніть кнопку вводити і створена дата буде вставлена ​​в клітинку, як показано на наступних знімках екрана:

-2

Примітка: Якщо ваша комірка не має формату дати, вона може відображати дивне число. Просто відформатуйте цю комірку як Дата формат, він відображатиметься як звичайна дата.


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

Дозвольте представити вам зручний інструмент--Kutools для Excel які з понад 300 корисних функцій можуть підвищити ефективність вашої роботи? З його Вставте інформацію про робочу книгу функцію, ви можете швидко вставити шлях до книги, ім'я книги, робочого аркуша, ім'я користувача або час створення та час останньої зміни у клітинки або верхній або нижній колонтитул.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. клацання Kutools Plus > робочий зошит > Вставте інформацію про робочу книгу. Дивіться знімок екрана:
doc остання зміна name2

2. Потім у Вставте інформацію про робочу книгу діалоговому вікні, перевірте інформацію, яку потрібно вставити з розділу Інформація, а потім перейдіть, щоб вказати місце, куди потрібно вставити, ви можете вибрати комірки, колонтитул (лівий колонтитул, центральний колонтитул, правий колонтитул) або верхній колонтитул (лівий колонтитул, центральний колонтитул, правий заголовок). Дивіться знімок екрана:
вставка документа створена змінений час 1

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

Порада. Якщо ви хочете отримати безкоштовну пробну версію функції Вставити інформацію про робочу книгу, будь ласка, перейдіть до безкоштовного завантаження Kutools для Excel спочатку, а потім перейдіть до застосування операції, як описано вище.

стрілка синя права міхур Вставте інформацію про робочу книгу



Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (21)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Корисна інформація.... :-)
Цей коментар був мінімізований модератором на сайті
Це було ідеально. Саме те, що я шукав. Дуже дякую!!
Цей коментар був мінімізований модератором на сайті
Дуже дякую за допомогу, це те, що нам потрібно. коди працюють належним чином, але без оновлення, означає не оновлювати дату зміни після збереження. у вас є рішення для цього? Я намагався багато разів зберегти, закрити, а потім знову відкрити, без оновлення для дати.
Цей коментар був мінімізований модератором на сайті
Привіт Халід!

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

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

З повагою,
Alex
Цей коментар був мінімізований модератором на сайті
Привіт: я зробив це іншим способом, але також за допомогою кодування. Оскільки я додав код, це змушує мене зберегти книгу за допомогою макросів і, отже, як *.XLSM. Це добре, але багато місць забороняють такі макроси. Чи є спосіб отримати це (або зберегти книгу зі змінами) у звичайний .XLS? Я також припускаю, що він попросить когось «Увімкнути макроси», якщо вони ввімкнули цей параметр (я консультант, і в більшості місць, де я працюю, це змушує мене вмикати макроси, коли це можливо після відкриття книги). FYI: Ось як я зробив це в макросі (не краще; просто інакше). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Останнє оновлення "( & Format() /dd/yyyy") .RightHeader = "" .RightFooter = "Останнє оновлено " & Format(Now(), "mm/dd/yyyy") Кінець Кінцевим підпорядком
Цей коментар був мінімізований модератором на сайті
Ця інформація дуже корисна для мене. дякую турботу
Цей коментар був мінімізований модератором на сайті
thanks for this info
Цей коментар був мінімізований модератором на сайті
[quote]Привіт: я зробив це іншим способом, але також за допомогою кодування. Оскільки я додав код, це змушує мене зберегти книгу за допомогою макросів і, отже, як *.XLSM. Це добре, але багато місць забороняють такі макроси. Чи є спосіб отримати це (або зберегти книгу зі змінами) у звичайний .XLS? Я також припускаю, що він попросить когось «Увімкнути макроси», якщо вони ввімкнули цей параметр (я консультант, і в більшості місць, де я працюю, це змушує мене вмикати макроси, коли це можливо після відкриття книги). FYI: Ось як я зробив це в макросі (не краще; просто інакше). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Останнє оновлення "( & Format() /dd/yyyy") .RightHeader = "" .RightFooter = "Останнє оновлення " & Format(Now(), "mm/dd/yyyy") Завершується кінцем підАвтор Ларрі С. Піт[/quote] Привіт, я успішно вставив дату та час останньої зміни, але вони не оновлюються, коли ви зберігаєте та знову відкриваєте книгу. Будь ласка, допоможіть тут ...... я не знаю про кодування, тому я в основному копіюю всю інформацію, надану на таких форумах, Дякую Swaran
Цей коментар був мінімізований модератором на сайті
Так, у мене така ж проблема - вчора вона працювала ідеально, але сьогодні вона не зміниться при збереженні.
Цей коментар був мінімізований модератором на сайті
Будь ласка, допоможіть!!! потрібно повернути дату та час останньої зміни закритого файлу та повернути цю інформацію в клітинку відкритого файлу
Цей коментар був мінімізований модератором на сайті
Гей, це було круто. Чи можна вставити створену дату та дату останньої зміни в іншу книгу? Я хочу створити файл індексу, який повідомляє мені, коли останнє оновлення інших документів. Спасибі!!
Цей коментар був мінімізований модератором на сайті
Привіт, люблю, люблю це, але, на жаль, дата з’являється лише в США, а в Австралії є dd/mm/yy. Я втомився змінювати її на цей формат за допомогою розділу «Дата», але мені не пощастило. Є ідеї?
Цей коментар був мінімізований модератором на сайті
Джулі - у коді VBA замість цього використовуйте "dd/mm/yy hh:n". Це поставить дату в «правильному» порядку! :Лол:
Цей коментар був мінімізований модератором на сайті
дуже дуже дуже дуже дуже дуже дуже корисно дякую
Цей коментар був мінімізований модератором на сайті
Чи можна це змінити, щоб відображати дату створення інший закриті файли? Я хотів би порівняти дату створення файлу на моєму робочому столі з файлом на загальнодоступному веб-сервері. Я міг би створити формулу для використання ваших функцій...CreateDate() локального файлу до CreateDate() веб-файлу...і попередити мене про зміну. Я вдячний за твою допомогу. Брюс
Цей коментар був мінімізований модератором на сайті
Дякую за допомогу, але у мене також виникла проблема з тим, що клітинка не оновлювалася після збереження без необхідності спочатку закривати та знову відкривати книгу. Я додав наступний код до книги, яка оновлюється після події збереження: Private Sub Workbook_AfterSave(ByVal Success As Boolean) Якщо успішно, то ActiveSheet.Calculate End If End Sub. Це допомогло мені. Сподіваюся, це допоможе.
Цей коментар був мінімізований модератором на сайті
Я бачу, що "Час останнього заощадження" в коді згадується лише РАЗ. Я використовую Excel 2010. Коли я вставляю «Час останнього збереження» у функцію, навіть із Application.Volatile(true), значення ніколи не оновлюється. Потім я помітив, що значення, яке повертає «Час останнього збереження», не відображається на сторінці «Властивості» Excel 2010 АНІ на жодній з вкладок у діалоговому вікні «Додаткові властивості». Чи може «Останній заощадження часу» бути якоюсь реліквією?
Цей коментар був мінімізований модератором на сайті
Я дізнався, чому «Останнє заощадження часу» не працює для мене. Я помістив свою функцію у свій файл .XLA, а «Ця книга» посилалася на сам файл .XLA. Тому мені потрібно було отримати Application.ActiveWorkbook (імовірно, місцезнаходження виклику функції), в кінцевому підсумку: Function DocumentProperty(PropertyName As String) ' ' 'Ви можете посилатися на властивості документа за значенням індексу або за назвою. У наведеному нижче списку показано доступні назви вбудованих властивостей документа: 'Заголовок Тема Автор 'Ключові слова Шаблон коментарів 'Останній номер редакції автора Ім'я програми 'Дата останнього друку Дата створення останнього часу збереження 'Загальний час редагування Кількість сторінок Кількість слів 'Кількість Категорія безпеки символів 'Компанія менеджера форматів 'Кількість байтів Кількість рядків Кількість абзаців 'Кількість слайдів Кількість приміток Кількість прихованих слайдів 'Кількість мультимедійних кліпів Основна кількість символів гіперпосилання (з пробілами) Виклик Застосунок. Нестійкий (Істина) Дім ActiveUserWorkbook про помилку Відновлення Далі Встановіть ActiveUserWorkbook = Application.ActiveWorkbook Якщо Err.Number 0 Тоді DocumentProperty = "!!! Помилка отримання Application.ActiveWorkbook: " & Err.Description Вихід із функції Кінець, якщо DocumentProperty = ActiveUserWorkmentNa.BuiltinPro. 0 Тоді DocumentProperty = "!!! Невідома назва властивості !!!" Вихід із функції End Якщо End Function
Цей коментар був мінімізований модератором на сайті
Привіт, команда, мені потрібна ваша допомога. У мене є файл Excel, там я хочу знайти дату змінення певної клітинки. Будь ласка, допоможіть мені з кодуванням, якщо можливо. Заздалегідь спасибі.
Цей коментар був мінімізований модератором на сайті
Я хочу автоматично створити пробіл між кожним клієнтом в Excel, як це зробити??
Цей коментар був мінімізований модератором на сайті
Я ОООООООООО ТЕБЕ!!!! TKSSSSSSS
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL