Отображение последней сохраненной даты на листе

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

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

13
excel

4 ответов

думал, что я обновлю об этом.

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

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

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

код

Function LastSavedTimeStamp() As Date
  LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
  1. сохраните модуль, закройте редактор и вернитесь на рабочий лист.
  2. Нажмите в Ячейка, в которой должна отображаться дата, и введите следующую формулу:

код

=LastSavedTimeStamp()
16

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

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

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

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

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

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

перед сохранением модуля обязательно сохраните файл Excel как книгу с поддержкой макросов Excel.

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

=ModDate()

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

0

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

-1