Ячейка содержит дату последнего сохранения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Ячейка содержит дату последнего сохранения (Ячейка содержит дату последнего сохранения)

Ячейка содержит дату последнего сохранения

Ivav

Дата: Суббота, 09.06.2012, 04:43 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Всем доброго времени суток,

Кто сталкивался с необходимостью, проставлять в определенной ячейки дату последнего сохранения файла.

Ответить

Jhonson

Дата: Суббота, 09.06.2012, 07:47 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

В модуль "Эта Книга":
[vba]

Code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Суббота, 09.06.2012, 07:47

Ответить

Ivav

Дата: Суббота, 09.06.2012, 08:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Спасибо, все заработало!
hands

Ответить

Формуляр

Дата: Суббота, 09.06.2012, 14:10 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Позвольте, но это ж выходит дата предпоследнего сохранения, а не последнего.
А последнее - просто текущее время.

Excel 2003 EN, 2013 EN

Ответить

Jhonson

Дата: Суббота, 09.06.2012, 15:14 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Quote (Формуляр)

предпоследнего сохранения

Это как?

"Ничто не приносит людям столько неприятностей, как разум."

Ответить

Формуляр

Дата: Суббота, 09.06.2012, 15:58 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Quote (Jhonson)

Это как?

Процедура (теоретически, сам не проверял) активируется перед сохранением и пишет дату предыдущего сохранения, т.е. предпоследнего.

Excel 2003 EN, 2013 EN

Ответить

Jhonson

Дата: Суббота, 09.06.2012, 16:10 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 514

Репутация: 169 ±

Замечаний: 0% ±

Хм.. согласен, сначала выполняется процедура по событию, а уж потом само событие.
Так правильнее:
[vba]

Code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A1") = Now()
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Суббота, 09.06.2012, 16:14

Ответить

Ivav

Дата: Четверг, 14.06.2012, 11:15 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

А если книга состоит из нескольких листов, как применить это правило только к конкретному листу?

Сообщение отредактировал Ivav - Четверг, 14.06.2012, 11:15

Ответить

Формуляр

Дата: Четверг, 14.06.2012, 13:37 | Сообщение № 9

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Quote (Ivav)

А если книга состоит из нескольких листов, как применить это правило только к конкретному листу?

Указать лист в адресе ячейки.

Excel 2003 EN, 2013 EN

Ответить

Ячейка содержит дату последнего сохранения (Ячейка содержит дату последнего сохранения)

Страница 1 из 1
1