Прескочи на основното съдържание

Вземете и вмъкнете създаденото време и последно модифицираното време в клетките

Автор: Кели Последна промяна: 2020-04-28

Тази статия ще говори за начини за получаване на времето на създаване и времето на последна промяна на информацията в текущата работна книга и вмъкване на времето на създаване и времето на последна промяна на информацията в текущата работна книга в клетки в Excel.

Вземете създаденото време и последно модифицираното време в Excel с команда Info

Вземете създаденото време и последно модифицираното време в Excel с функцията Разширени свойства

Вмъкнете създаденото време и последно модифицираното време в клетки в Excel с VBA код

Вмъкнете създаденото време и последното модифицирано време в клетки/заглавен/долен колонтитул с Kutools за Excel добра идея3


стрелка син десен балон Вземете създаденото време и последно модифицираното време в Excel с команда Info

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

Щракнете върху досие > Информация, а в дясната страна на изгледа зад кулисите показва Свързани дати информация. Под Свързани дати заглавие, той изброява времето на последна промяна, време на създаване и време на последно отпечатване. Вижте следната екранна снимка:

-2

 

Забележка: Този начин е наличен само в Microsoft Excel 2010/2013. Той е невалиден в Excel 2007.


стрелка син десен балонВземете създаденото време и последно модифицираното време в Excel с функцията Разширени свойства

Всъщност можем да получим както времето на създаване, така и времето на последната промяна на текущата работна книга в диалоговия прозорец Свойства на документа.
Стъпка : Отвори Разширени свойства диалогов прозорец:

В Excel 2007 щракнете върху Office бутон> Подгответе > ИмотиИ Свойства на документа лентата ще се покаже под лентата с инструменти, щракнете Свойства на документа > Разширени свойства, вижте екранни снимки:

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

 

В Excel 2010/2013 щракнете върху досие > Информация > Имоти > Разширени свойства.

doc-insert-modified-time-4-4

Стъпка : В Разширени свойства диалогов прозорец, ще видите времето на създаване и времето на последна промяна в раздела Статистика. Вижте следната екранна снимка:

doc-insert-modified-time-4-4


стрелка син десен балон Вмъкнете създаденото време и последно модифицираното време в клетки в Excel с VBA код

Следните макроси на VBA ще ви помогнат да вмъкнете времето на създаване и времето на последна промяна на информацията за текущата работна книга в клетки директно.

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

Стъпка : Задръжте натиснат ALT + F11 клавиши и отваря прозореца на Microsoft Visual Basic за приложения.

Стъпка : Щракнете Поставете >> Модулии поставете следния макрос в прозореца на модула.

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

Стъпка :Натисни F5 ключ за изпълнение на този макрос. И след това създадената дата и последната модифицирана дата ще бъдат вмъкнати в клетка A1 и клетка A2 отделно.

Забележка: можете да промените целевата клетка във VB според вашите нужди.

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

Стъпка : Задръжте натиснат ALT + F11 клавиши и отваря прозореца на Microsoft Visual Basic за приложения.

Стъпка : Щракнете Поставете >> Модулии поставете следния макрос в прозореца на модула.

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

Стъпка : След това запазете и затворете този код и се върнете в работния лист, в празна клетка въведете формулата на =ModDate(), и натиснете Въведете ключ. След това вмъква последния променен час в клетката.

-2

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

Стъпка : Задръжте натиснат ALT + F11 клавиши и отваря прозореца на Microsoft Visual Basic за приложения.

Стъпка : Щракнете Поставете >> Модулии поставете следния макрос в прозореца на модула.

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

Стъпка : Запазете и затворете този код, върнете се в работния лист, в празна клетка въведете формулата на =CreateDate(), и натиснете Въведете key.and създадената дата ще бъде вмъкната в клетката, както са показани следните екранни снимки:

-2

Забележка: Ако вашата клетка не е във формат за дата, тя може да покаже странно число. Просто форматирайте тази клетка като Дата формат, тя ще се покаже като нормална дата.


стрелка син десен балон Вмъкнете създаденото време и последното модифицирано време в клетки/заглавен/долен колонтитул с Kutools за Excel

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

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. кликване Kutools плюс > Workbook > Вмъкване на информация за работна книга. Вижте екранна снимка:
doc последно модифицирано име2

2. След това в Вмъкване на информация за работна книга диалоговия прозорец, проверете информацията, която искате да вмъкнете от секцията Информация, след това отидете, за да посочите местоположението, в което искате да вмъкнете, можете да изберете клетки, долен колонтитул (ляв долен колонтитул, централен долен колонтитул, десен долен колонтитул) или горен колонтитул (ляв горен колонтитул, централен колонтитул, дясно заглавие). Вижте екранна снимка:
doc вмъкване създадено модифицирано време 1

3. кликване Okи информацията, която проверявате, е вмъкната на посоченото от вас място.

Бакшиш. Ако искате да имате безплатна пробна версия на функцията Вмъкване на информация за работна книга, моля, отидете на безплатно изтегляне Kutools за Excel първо и след това преминете към прилагане на операцията според горните стъпки.

стрелка син десен балон Вмъкване на информация за работна книга


Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other 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
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
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!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations