Автоматическая вставка даты и время в заданные ячейки

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

Автоматическая вставка даты и время в заданные ячейки (Макросы/Sub)

hathory

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

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

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

Сообщений: 14

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

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

Excel 2010

Доброе время суток, господа. Помогите по следующему вопросу.
Есть форма ведения отработанного времени (прилагаю, внимание есть макрос), хотелось бы реализовать автоматизацию ведения учета рабочего времени, но не могу сообразить как заставить макрос вставлять время открытия формы в столбце "3" на текущую дату и соответственно время при закрытии формы в столбец "5" при закрытии формы кнопкой (в идеале при выключении компьютера с сохранением внесенных изменений).
Заранее спасибо.

К сообщению приложен файл: 2615943.xlsm (20.6 Kb)

hathory

Сообщение отредактировал hathory - Вторник, 10.04.2018, 09:07

Ответить

sboy

Дата: Понедельник, 09.04.2018, 17:51 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
В модуль книги два макроса
на открытие
[vba]

Код

Private Sub Workbook_Open()
    With Sheets(1).Range("A:A")
        Set r = .Find(Date)
            If Not r Is Nothing Then
                If IsEmpty(r.Offset(0, 2)) Then
                    r.Offset(0, 2) = Time
                End If
            End If
    End With
End Sub

[/vba]
и на закрытие аналогичный

К сообщению приложен файл: 6371149.xlsm (23.0 Kb)

Яндекс: 410016850021169

Ответить

hathory

Дата: Понедельник, 09.04.2018, 17:57 | Сообщение № 3

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

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

Сообщений: 14

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

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

Excel 2010

sboy, спасибо большое.
Можно только уточнить, макрос на закрытие будет срабатывать при выключении компьютера, или лучше сначала форму закрывать руками?

hathory