Во многих случаях вам может потребоваться показать дату и время последнего сохранения файла Excel, чтобы узнать, когда файл был недавно обновлен. Вы можете решить эту проблему с помощью методов, представленных в этой статье.
Вставьте последнюю сохраненную метку времени на лист с пользовательской функцией
Легко вставьте последнюю сохраненную метку времени на лист с помощью Kutools for Excel
Вставьте последнюю сохраненную метку времени на лист с пользовательской функцией
Вы можете использовать следующую определяемую пользователем функцию, чтобы вставить последнюю сохраненную метку времени книги на определенный рабочий лист.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: вставьте последнюю сохраненную метку времени на лист
Function LastSavedTimeStamp() As Date
LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function3. Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно и вернитесь к рабочему листу.
4. Выберите пустую ячейку, в которой будет отображаться последняя сохраненная метка времени книги, введите формулу. = LastSavedTimeStamp () и нажмите Enter нажмите клавишу, и отобразится номер.
5. Затем вам нужно отформатировать числовую ячейку как формат даты и времени, как показано на скриншоте ниже.
Теперь в выбранной ячейке отображается последняя сохраненная метка времени.
Примечание. Если вы хотите повторно использовать VBA в будущем, сохраните книгу как книгу Excel с поддержкой макросов.
Легко вставьте последнюю сохраненную метку времени на лист с помощью Kutools for Excel
Наблюдения и советы этой статьи мы подготовили на основании опыта команды Вставить информацию о книге полезности Kutools for Excel поможет вам быстро вставить последнюю сохраненную или измененную метку времени не только в указанную ячейку, но и в верхний или нижний колонтитул по мере необходимости.
1. Выберите пустую ячейку для отображения последней сохраненной метки времени, затем щелкните Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:
2. в Вставить информацию о книге в диалоговом окне выберите Дата изменена вариант в Информация раздел, затем выберите нужный вариант в Вставить в (в данном случае я выбираю вариант диапазона) и, наконец, щелкаю OK кнопку.
Затем на листе отображается последняя сохраненная метка времени.
Внимание: Если вам нужно вставить последнюю сохраненную метку времени в верхний или нижний колонтитул текущего рабочего листа, выберите заголовок or нижний колонтитул опцию.
Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Легко вставьте последнюю сохраненную метку времени на лист с помощью Kutools for Excel
Статьи по теме:
- Как получить и вставить последнее измененное имя пользователя в Excel?
- Как распечатать имя листа или список имен листов в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (11)
Оценок пока нет. Оцените первым!
У меня есть диапазон данных, который содержит несколько повторяющихся значений в столбце A, а столбец B заполнен некоторой датой, теперь мне нужно удалить повторяющиеся строки в столбце A, но сохраните самую последнюю дату из соответствующего столбца B, как показано на следующем снимке экрана. Есть ли у вас какие-нибудь хорошие идеи, чтобы быстро и легко решить эту проблему в Excel?
Удалите повторяющиеся значения и сохраните самая последняя дата в другом столбце с кодом VBA
Удалите повторяющиеся значения и сохраните самую последнюю дату в другом столбце с помощью Kutools for Excel
Содержание
- Удалите повторяющиеся значения и сохраните самая последняя дата в другом столбце с кодом VBA
- Удалите повторяющиеся значения и оставьте самую последнюю дату в другом столбце с помощью Kutools for Excel
- Демо: удалите повторяющиеся значения и сохраните самую последнюю дату в другом столбце с помощью Kutools for Excel
Удалите повторяющиеся значения и сохраните самая последняя дата в другом столбце с кодом VBA
Следующий код VBA может помочь вам удалить повторяющиеся ячейки и сохранить самую последнюю дату из другого столбца, пожалуйста, сделайте следующее:
1 . Удерживая нажатыми клавиши ALT + F11 , откроется окно Microsoft Visual Basic для приложений .
2 . Нажмите Вставить > Module , а затем вставьте следующий макрос в окно Module .
Код VBA: удалите повторяющиеся значения и сохраните самую последнюю дату.
3. Затем нажмите F5 , чтобы выполнить этот код, и появится диалоговое окно с напоминанием о выборе диапазона данных, который вы хотите использовать, см. Снимок экрана:
. Затем нажмите OK , повторяющиеся значения в столбце A были удалены, а самая последняя дата в столбце B сохранена по мере необходимости. См. Снимок экрана:
Примечание : для успешного применения приведенного выше кода столбец, содержащий повторяющиеся значения, должен располагаться слева от столбца даты.
Удалите повторяющиеся значения и оставьте самую последнюю дату в другом столбце с помощью Kutools for Excel
Если вы не знакомы с кодом, не волнуйтесь, мощная утилита – Расширенные строки комбинирования из Kutools for Excel могут помочь вам с легкостью решить эту задачу.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, можно бесплатно попробовать без ограничений в течение 30 дней . |
|
Перейти к загрузке |
После установки Kutools for Excel , пожалуйста, сделайте следующее:
1 . Выберите диапазон данных, в котором вы хотите удалить дубликаты, и сохранить самую последнюю дату из другого столбца.
2. Затем нажмите Kutools > Объединить и разделить > Расширенные строки объединения , см. снимок экрана:
3 . В диалоговом окне Объединить строки на основе столбца щелкните имя столбца, в котором вы хотите удалить повторяющиеся значения, затем щелкните Первичный ключ , см. Снимок экрана:
4 . Продолжайте щелкать имя другого столбца, в котором вы хотите сохранить самую последнюю дату, а затем щелкните Рассчитать > Max , см. Снимок экрана:
5 . Затем нажмите кнопку Ok , чтобы закрыть это диалоговое окно, и теперь вы можете увидеть, что повторяющиеся имена в столбце A были удалены, и в соответствующем столбце B сохраняется только самая последняя дата, см. Снимок экрана:
Загрузить и бесплатную пробную версию Kutools for Excel Now !
Демо: удалите повторяющиеся значения и сохраните самую последнюю дату в другом столбце с помощью Kutools for Excel
Kutools for Excel : с более чем 300 удобными надстройками Excel, можете попробовать без ограничений через 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!
|
Отображение последней даты в ячейке списка из массива |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
|
aka.andrew  Пользователь Сообщений: 26 |
В шаблоне книги есть формула =СЕГОДНЯ. После сохранения мне нужно через несколько дней вернуться в файл для редактирования, но чтобы дата осталось той, когда он был сохранен. |
|
Alemox  Пользователь Сообщений: 2183 |
Перед сохранением файла надо скопировать эту ячейку и вставить в эту же ячейку как данные (123). Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. |
|
aka.andrew Пользователь Сообщений: 26 |
Alemox, я это понимаю. Я спрашивал как это можно делать автоматически (формулой/макросом) ?? чтобы не заниматься этими вставками вручную… |
|
Юрий М  Модератор Сообщений: 60585 Контакты см. в профиле |
aka.andrew, у Вас две практически одинаковых темы. |
|
vikttur Пользователь Сообщений: 47199 |
Ограничение заданной датой: |
|
aka.andrew Пользователь Сообщений: 26 |
vikttur, не совсем понятно, в формуле дату 31.05.2017 вручную нужно прописывать?? |
|
JayBhagavan  Пользователь Сообщений: 11833 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64 |
#7 31.05.2017 15:43:46
По какому событию макрос должен в книге фиксировать дату? <#0> |
||
|
aka.andrew Пользователь Сообщений: 26 |
JayBhagavan, не совсем понимаю вопрос. |
|
JayBhagavan Пользователь Сообщений: 11833 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64 |
aka.andrew, я не понимаю зачем Вам формула СЕГОДНЯ()? Почему просто не поставить текущую дату? Тем более, если Вы не можете сказать когда СЕГОДНЯ() заменить на значение, то Вам никто не поможет. Задача Ваша и Вам в неё вникать. Наше дело помочь в решении конкретного вопроса, а не сделать всё за Вас. Тут не джины, а люди. <#0> |
|
vikttur Пользователь Сообщений: 47199 |
#10 31.05.2017 16:14:52
Да, я лишь показал Вам вариант. По другому формулой не сделать. |
||
|
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
aka.andrew, ответ на Ваш вопрос дан в другой Вашей теме — макросом это нужно делать. |
|
aka.andrew Пользователь Сообщений: 26 |
#12 31.05.2017 16:22:14
ну так текущая же дата также будет изменяться при повторном открытии файла в другой день?? |
||
|
JayBhagavan Пользователь Сообщений: 11833 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64 |
#13 31.05.2017 16:24:03
Моя выдержка исчерпана. Ушёл из темы. <#0> |
||
|
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#14 31.05.2017 16:30:02
Если Вы введёте эту дату вручную, а не формулой (о чём Вам и говорили в #9), то почему она должна измениться? |
||
|
aka.andrew Пользователь Сообщений: 26 |
Юрий М, создал т.к. немного не понял вашей претензии относительно нескольких вопросов в теме. учту. |
|
Юрий М Модератор Сообщений: 60585 Контакты см. в профиле |
#16 31.05.2017 20:57:51
Вы пробовали записать макрос сохранения значений? |
||
|
RAN  Пользователь Сообщений: 7091 |
aka.andrew, Функция СЕГОДНЯ() на то и существует, чтобы показывать СЕГОДНЯ, а не вчера. И она каждый день будет именно СЕГОДНЯ. И никто, и ничто, вам тут не поможет, если вы не откажетесь от ее использования. |
|
kuklp Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
#18 31.05.2017 21:51:10 aka.andrew, але, дружище — исчерпывающий ответ был в посте №2 темы.
Что неясно? Делается это макросом по событию сохранения или закрытия книги. КОТОРУЮ ВЫ НАМ НЕ ПОКАЗЫВАЕТЕ! Я сам — дурнее всякого примера! … |
||
кто-нибудь знает, как отобразить последнюю сохраненную дату электронной таблицы 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»).