Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

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

У цій статті буде розказано про способи отримання створеного часу та часу останньої зміни поточної інформації про книгу, а також вставлення створеного часу та часу останньої зміни поточної інформації про книги в клітинки 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-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 3 years ago
    I want to automatically create a space between each customer in excel how do i do this??
  • To post as a guest, your comment is unpublished.
    Sujin Raj · 4 years ago
    Hi Team,

    I need your help.

    I am having an excel file, there i want to find the modified date of a particular cell.

    Please help me with the coding here, if possible.

    Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with:

    Function DocumentProperty(PropertyName As String)

    '
    'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names:

    'Title Subject Author
    'Keywords Comments Template
    'Last Author Revision Number Application Name
    'Last Print Date Creation Date Last Save Time
    'Total Editing Time Number of Pages Number of Words
    'Number of Characters Security Category
    'Format Manager Company
    'Number of Bytes Number of Lines Number of Paragraphs
    'Number of Slides Number of Notes Number of Hidden Slides
    'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces)


    Call Application.Volatile(True)

    Dim ActiveUserWorkbook

    On Error Resume Next
    Set ActiveUserWorkbook = Application.ActiveWorkbook
    If Err.Number 0 Then
    DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description
    Exit Function
    End If
    DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName)
    If Err.Number 0 Then
    DocumentProperty = "!!! Unknown Property Name !!!"
    Exit Function
    End If

    End Function
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I see that "Last Save Time" is only referenced ONCE in the code.

    I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates.

    Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog.

    Could "Last Save Time" be some relic?
  • To post as a guest, your comment is unpublished.
    Christopher Huergo · 4 years ago
    Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event:

    Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then
    ActiveSheet.Calculate
    End If
    End Sub

    That did the trick for me. Hope it helps.
  • To post as a guest, your comment is unpublished.
    Bruce · 5 years ago
    Could this be modified to display the Created Date of [i]other[/i] closed files?

    I'd like to compare the Created Date of a file on my Desktop to a file on a public web server.

    I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change.

    I appreciate your help.

    Bruce
  • To post as a guest, your comment is unpublished.
    Mokhtar · 6 years ago
    very very very very very very very very helpful
    thanks
  • To post as a guest, your comment is unpublished.
    JulieHughes · 6 years ago
    Hiya
    Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy
    I've tired changing it to this format using the "Date" section but have not had any luck.
    Any ideas?
    • To post as a guest, your comment is unpublished.
      MurrayFree · 6 years ago
      Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order!
      :lol:
  • To post as a guest, your comment is unpublished.
    DavidC · 7 years ago
    Hey this was awesome.

    Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated.

    Thanks!!
  • To post as a guest, your comment is unpublished.
    Ashraf · 7 years ago
    Please help!!!

    need to return last modified date and time of a closed file, and return this info in a cell in the open file
  • To post as a guest, your comment is unpublished.
    Swaran · 7 years ago
    [quote name="Larry S. Peteet"]Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub[/quote]

    Hi

    I successfully inserted the Last modified Date and time, but it doesnt update when you save and re-open the workbook.

    Please help here......i dont know about coding so I basically copy whatever info is given on such forums

    Thanks
    Swaran
    • To post as a guest, your comment is unpublished.
      BillG · 7 years ago
      Yes I have same issue - it worked perfectly yesterday but then today it would not change when saved.
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    thanks for this info
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    This information is very helpful for me.
    thanks concern
  • To post as a guest, your comment is unpublished.
    Larry S. Peteet · 7 years ago
    Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Khalid · 7 years ago
    Thank you very much for help, these what we need.
    the codes work properly but without update, means do not update the date of modification once i save.
    do you have any solution for this?

    i tried many times, save, close then re-open, with no update for the date.
    • To post as a guest, your comment is unpublished.
      Alex · 5 years ago
      Hi Khalid,

      I had the same issue and I added the line "Application.Volatile" to the code and when I press F9 it will update the information.
      I saw it in the video "Learn Excel - "Function for Last Saved Time": Podcast #1725 " of Bill Jelen.
      @Bill: Thank so much for the video!

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

      Regards,
      Alex
  • To post as a guest, your comment is unpublished.
    Brian · 7 years ago
    This was perfect. Exactly what I was looking for. Thanks so much!!
  • To post as a guest, your comment is unpublished.
    Syed Nehal · 7 years ago
    Helpful information.... :-)