Отображение последней сохраненной даты на листе
кто-нибудь знает, как отобразить последнюю сохраненную дату электронной таблицы Excel на одном из листов?
Я нашел способы сделать это с помощью макросов, но электронная таблица заполняется надстройкой под названием Jet Essentials, и это не нравится макросы, поэтому решение здесь не должно использовать один.
4 ответов
думал, что я обновлю об этом.
выяснил, что добавление в модуль VB за электронной таблицей фактически не регистрируется как макрос.
Итак, вот решение:
- Нажмите ALT + F11
- Нажать "Вставить" > Модуль
- вставьте в окно следующее:
код
Function LastSavedTimeStamp() As Date
LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
- сохраните модуль, закройте редактор и вернитесь на рабочий лист.
- Нажмите в Ячейка, в которой должна отображаться дата, и введите следующую формулу:
код
=LastSavedTimeStamp()
может быть, этот штамп времени подходит вам лучше Код
Function LastInputTimeStamp() As Date
LastInputTimeStamp = Now()
End Function
и каждый раз, когда вы вводите данные в определенную ячейку (в моем примере ниже это ячейка C36), вы получите новую постоянную отметку времени. В качестве примера в Excel файл может использовать это
=IF(C36>0,LastInputTimeStamp(),"")
Это может быть альтернативным решением. Вставьте следующий код в новый блок:
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
нет встроенной функции с этой возможностью. Закрытие будет заключаться в сохранении файла в папке с именем текущей даты и использовании функции =INFO("directory").