Дата и время в ячейку при закрытии файла

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Дата и время в ячейку при закрытии файла (Формулы/Formulas)

mikaelw

Дата: Понедельник, 25.08.2014, 00:26 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

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

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

Excel 2010, 2013, 2016

Если коротко!

Есть файл который при запуске автоматически запускает макрос(auto_open).
В результате создаются отчеты(макрос на 1000 строк) рекодером написан и подправлен.

Хочу чтобы на пустую страницу в файле вписывались по команде Now() дата и время закрытия(перед закрытием файл сохраняется).

можете подсказать как это делается
Писаться должно всегда в ячейку ниже.
А1
А2
А3
А4

Заранее спасибо!

Ответить

_Boroda_

Дата: Понедельник, 25.08.2014, 00:35 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Добавьте в книгу лист "Закрытия" (или назовите как-то еще) и в модуль книги вот это:
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Dim r_
     r_ = Sheets("Закрытия").Range("A" & Rows.Count).End(xlUp).Row + 1
     Sheets("Закрытия").Range("A" & r_) = Now
End Sub

[/vba]

К сообщению приложен файл: 887799.xls (25.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

mikaelw

Дата: Понедельник, 25.08.2014, 00:50 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

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

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

Excel 2010, 2013, 2016

Спасибо за код, он работает.

Только почему-то теперь перед закрытием программа спрашивает сохранить изменения или нет.
А раньше просто проходила мимо и выходила:

Windows("Sale_Report.xlsm").Activate

ActiveWorkbook.Save
' ActiveWindow.Close
Application.Quit

End Sub

Ответить

_Boroda_

Дата: Понедельник, 25.08.2014, 00:59 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата mikaelw, 25.08.2014 в 00:50, в сообщении № 3

почему-то теперь перед закрытием программа спрашивает сохранить изменения или нет.

Конечно. Мы ведь с Вами записали в ячейку время закрытия - изменили книгу.
Перепишите так
[vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Dim r_
      r_ = Sheets("Закрытия").Range("A" & Rows.Count).End(xlUp).Row + 1
      Sheets("Закрытия").Range("A" & r_) = Now
      ThisWorkbook.Save
End Sub

[/vba]

К сообщению приложен файл: 887799_1.xls (26.0 Kb)

Ответить

mikaelw

Дата: Понедельник, 25.08.2014, 09:59 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

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

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

Excel 2010, 2013, 2016

Спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Дата и время в ячейку при закрытии файла (Формулы/Formulas)

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