|
aka.andrew  Пользователь Сообщений: 26 |
В шаблоне книги есть формула =СЕГОДНЯ. После сохранения мне нужно через несколько дней вернуться в файл для редактирования, но чтобы дата осталось той, когда он был сохранен. |
|
Alemox  Пользователь Сообщений: 2183 |
Перед сохранением файла надо скопировать эту ячейку и вставить в эту же ячейку как данные (123). Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. |
|
aka.andrew Пользователь Сообщений: 26 |
Alemox, я это понимаю. Я спрашивал как это можно делать автоматически (формулой/макросом) ?? чтобы не заниматься этими вставками вручную… |
|
Юрий М  Модератор Сообщений: 60570 Контакты см. в профиле |
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
Да, я лишь показал Вам вариант. По другому формулой не сделать. |
||
|
Юрий М Модератор Сообщений: 60570 Контакты см. в профиле |
aka.andrew, ответ на Ваш вопрос дан в другой Вашей теме — макросом это нужно делать. |
|
aka.andrew Пользователь Сообщений: 26 |
#12 31.05.2017 16:22:14
ну так текущая же дата также будет изменяться при повторном открытии файла в другой день?? |
||
|
JayBhagavan Пользователь Сообщений: 11833 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64 |
#13 31.05.2017 16:24:03
Моя выдержка исчерпана. Ушёл из темы. <#0> |
||
|
Юрий М Модератор Сообщений: 60570 Контакты см. в профиле |
#14 31.05.2017 16:30:02
Если Вы введёте эту дату вручную, а не формулой (о чём Вам и говорили в #9), то почему она должна измениться? |
||
|
aka.andrew Пользователь Сообщений: 26 |
Юрий М, создал т.к. немного не понял вашей претензии относительно нескольких вопросов в теме. учту. |
|
Юрий М Модератор Сообщений: 60570 Контакты см. в профиле |
#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, чтобы узнать, когда файл был недавно обновлен. Вы можете решить эту проблему с помощью методов, представленных в этой статье.
Вставьте последнюю сохраненную метку времени на лист с пользовательской функцией
Легко вставьте последнюю сохраненную метку времени на лист с помощью 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)
Оценок пока нет. Оцените первым!
как в ячейке (или в 2разных ячейках) excell хранить дату и время изменения файла (те что в свойствах файла)?
Нужно для решения проблемы — при работе с данными экселя в другом файле (сводн.табл.) — видеть дату последнего сохранения исходного файла. Чайник я в этом… не могу докопаться… вроде все перепробовал… Помогите!
6 ответов
275
03 ноября 2005 года
pashulka
985 / / 19.09.2004
Дело в том, что указанное Вами свойство, хранит время последнего сохранения рабочей книги, а значит Вы можете использовать соответствующее событие рабочей книги :
Код:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets(1).Range(«A1»).Value = Now ‘Now()
End Sub
Примечание : Разместить этот событие необходимо в модуле ThisWorkbook(ЭтаКнига) нужной рабочей книги.
405
03 ноября 2005 года
Dmitrii
554 / / 16.12.2004
Цитата:
Originally posted by ЖКа
как в ячейке (или в 2разных ячейках) excell хранить дату и время изменения файла (те что в свойствах файла)?
Нужно для решения проблемы — при работе с данными экселя в другом файле (сводн.табл.) — видеть дату последнего сохранения исходного файла. Чайник я в этом… не могу докопаться… вроде все перепробовал… Помогите!
Можете также воспользоваться для этого средствами VBS. Вот пример:
Код:
Function ShowFileModifiedInfo(ByVal fileSpec As String) As String
Dim myFSO As Object, myFile As Object
Set myFSO = CreateObject(«Scripting.FileSystemObject»)
If (myFSO.FileExists(fileSpec)) Then
Set myFile = myFSO.GetFile(fileSpec)
ShowFileModifiedInfo = myFile.DateLastModified
Else
ShowFileModifiedInfo = «Файл » & UCase(fileSpec) & » не найден.»
End If
End Function
Sub Test()
Dim timeModif As String
Const testFile = «c:tempbook.xls»
timeModif = ShowFileModifiedInfo(testFile)
MsgBox timeModif
End Sub
Такой способ избавляет от необходимости хранить нужные Вам значения в книге. Вы всегда сможете определить их «на лету».
275
11 ноября 2005 года
pashulka
985 / / 19.09.2004
Средствами VBA, также можно «на лету» определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime(«C:ArchiveTemp.xls»)
305
12 ноября 2005 года
Kashuk
385 / / 21.02.2003
Цитата:
Originally posted by pashulka
Средствами VBA, также можно «на лету» определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime(«C:ArchiveTemp.xls»)
А как это можно применить в ворде? Как «ThisWorkbook.FullName» заменить на текущий документ ворда?
305
12 ноября 2005 года
Kashuk
385 / / 21.02.2003
Цитата:
Originally posted by pashulka
Средствами VBA, также можно «на лету» определять дату и время последнего сохранения файла, например :
Код:
iFileDateTime = FileDateTime(ThisWorkbook.FullName)
iFileDateTime = FileDateTime(ActiveWorkbook.FullName)
iFileDateTime = FileDateTime(«C:ArchiveTemp.xls»)
А как это можно применить в ворде? Как «ThisWorkbook.FullName» заменить на текущий документ ворда?
275
12 ноября 2005 года
pashulka
985 / / 19.09.2004
Код:
iFileDateTime = FileDateTime(ThisDocument.FullName) ‘ActiveDocument
Примечание : Только документ должен быть сохранён, иначе Вы получите ошибку.
Вставка текущих даты и времени в ячейку
Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Еще…Меньше
Допустим, вы хотите легко ввести текущие дату и время при создании журнала действий. Или, возможно, вам нужно автоматически отображать текущие дату и время в ячейке при каждом пересчете формул. Существует несколько способов вставки текущих даты и времени в ячейку.
Вставка фиксированного значения даты или времени в ячейку Excel
Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.
-
Выделите на листе ячейку, в которую требуется вставить текущую дату или время.
-
Выполните одно из действий, указанных ниже.
-
Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).
-
Чтобы вставить текущее время, нажмите клавиши CTRL+SHIFT+; (точка с запятой).
-
Чтобы вставить текущие дату и время, нажмите клавиши CTRL+; (точка с запятой), затем клавишу ПРОБЕЛ, а после этого — CTRL+SHIFT+; (точка с запятой).
-
Изменение формата даты и времени
Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.
Вставка фиксированного значения даты или времени в ячейку Excel
Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.
-
Выделите на листе ячейку, в которую требуется вставить текущую дату или время.
-
Выполните одно из действий, указанных ниже.
-
Чтобы вставить текущую дату, нажмите клавиши CTRL+; (точка с запятой).
-
Чтобы вставить текущее время, нажмите
+ ; (точка с за semi-двоеточием). -
Чтобы вставить текущие дату и время, нажмите CTRL+; (точка с за semi-двоеточием), затем нажмите пробел, а затем нажмите
+; (точка с за semi-двоеточием).
-
+ ; (точка с за semi-двоеточием).Изменение формата даты и времени
Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите формат ячеек. Затем в диалоговом окне Формат ячеек на вкладке Число в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.
Вставка фиксированного значения даты или времени в ячейку Excel
Фиксированное значение на листе не изменяется при пересчете или открытии листа. При нажатии клавиш CTRL+; для вставки текущей даты в ячейку Excel «делает снимок» текущей даты, который вставляется в ячейку. Так как значение этой ячейки не меняется, оно считается статическим.
-
Выделите на листе ячейку, в которую требуется вставить текущую дату или время.
-
Выполните одно из действий, указанных ниже.
-
Чтобы вставить дату, введите дату (например, 2/2) и щелкните Главная > числовом формате (на вкладке Число) >Краткий формат даты или Длинный формат даты.
-
Чтобы вставить время, введите время, а затем щелкните Главная > числовом формате (на вкладке Число) >время.
-
Изменение формата даты и времени
Чтобы изменить формат даты или времени, щелкните ячейку правой кнопкой мыши и выберите числовом формате. Затем в диалоговом окне Числовом формате в списке Категория выберитедата или время, а затем в списке Тип выберите тип и нажмите кнопку ОК.
Вставка обновляемого значения даты или времени
Дата или время обновляемые при пересчете листа или открытии книги, считаются «динамическими», а не статическими. Наиболее распространенным способом получения динамической даты или времени в ячейке на листе является использование функции листа.
Для вставки обновляемой текущей даты или времени используются функции СЕГОДНЯ и ТДАТА, как показано в приведенном ниже примере. Дополнительные сведения об использовании этих функций см. в статьях Функция СЕГОДНЯ и Функция ТДАТА
Например:
|
Формула |
Описание (результат) |
|
=СЕГОДНЯ() |
Текущая дата (значения могут быть разными) |
|
=ТДАТА() |
Текущие дата и время (значения могут быть разными) |
-
Выделите текст в таблице, приведенной выше, и нажмите клавиши CTRL+C.
-
На пустом листе щелкните ячейку A1 один раз и нажмите CTRL+V. Если вы работаете в Excel в Интернете, повторите копирование и в копирование для каждой ячейки в примере.
Важно: Чтобы пример правильно работал, его нужно вставить в ячейку A1.
-
Чтобы переключиться между просмотром результатов и просмотром формул, возвращающих эти результаты, нажмите клавиши Ctrl+` (знак ударения) или на вкладке Формулы в группе Зависимости формул нажмите кнопку Показывать формулы.
Скопировав пример на пустой лист, можно настроить его в соответствии со своими потребностями.
Примечание: Результаты, возвращаемые функциями СЕГОДНЯ и ТДАТА, изменяются только при пересчете листа или при выполнении макроса, содержащего эту функцию. Постоянного обновления ячеек, содержащих эти функции, не происходит. В качестве значений даты и времени используются показания системных часов компьютера.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Нужна дополнительная помощь?
|
Ячейка содержит дату последнего сохранения |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
