Показать последнюю сохраненную дату на листе

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

Я нашел способы сделать это с помощью макросов, но электронная таблица заполнена надстройкой под названием Jet Essentials, и это не похоже на макросы, поэтому решение здесь не должно использоваться.

Ответ 1

Думаю, что я обновил бы это.

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

Итак, вот решение:

Нажмите ALT + F11
Нажмите "Вставить" > "Модуль"
Вставьте в окно следующее:

код

Function LastSavedTimeStamp() As Date
  LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

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

код

=LastSavedTimeStamp()

Ответ 2

Может быть, этот штамп времени подходит вам лучше Код

Function LastInputTimeStamp() As Date
  LastInputTimeStamp = Now()
End Function

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

=IF(C36>0,LastInputTimeStamp(),"")

Ответ 3

Это может быть альтернативное решение. Вставьте следующий код в новый модуль:

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

Прежде чем сохранять свой модуль, обязательно сохраните файл Excel в качестве рабочей книги Excel Macro-Enabled.

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

=ModDate()

Я также хотел бы рекомендовать альтернативу Excel, позволяя легко добавлять время создания и время последней модификации. Не стесняйтесь проверять RowShare и эту статью я написал: https://www.rowshare.com/blog/en/2018/01/10/Displaying-Last-Modification-Time-in-Excel

Ответ 4

Я собираюсь сойти с ума.. Я попробовал этот код:

Функция LastSavedTimeStamp() As Date LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Время последнего сохранения") Функция завершения

with = LastSavedTimeStamp()

но время не обновляется автоматически при сохранении документа.

Я в основном ищу способ автоматического отображения даты и времени в определенной ячейке, когда весь документ (все листы в одной и той же книге) был сохранен в последний раз (иногда я открывал документ, и он отображал текущее время/дату) хотя я его не сохранил?!). Это существует? И почему код выше ничего не делает? Что я делаю неправильно?

ИЛИ еще лучше был бы код для отображения последнего сохраненного файла, только если произошла какая-либо модификация (где-либо в книге)... это было бы мечтой!

Спасибо Нина

Ответ 5

С этой возможностью нет встроенной функции. Закрытие будет состоять в том, чтобы сохранить файл в папке с именем текущей даты и использовать функцию = INFO ( "каталог" ).