Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическая вставка даты и время в заданные ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая вставка даты и время в заданные ячейки (Макросы/Sub)
Автоматическая вставка даты и время в заданные ячейки
hathory Дата: Понедельник, 09.04.2018, 17:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

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


hathory

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

Автор - hathory
Дата добавления - 09.04.2018 в 17:26
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
 
Ответить
СообщениеДобрый день.
В модуль книги два макроса
на открытие
[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]
и на закрытие аналогичный

Автор - sboy
Дата добавления - 09.04.2018 в 17:51
hathory Дата: Понедельник, 09.04.2018, 17:57 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - hathory
Дата добавления - 09.04.2018 в 17:57
sboy Дата: Понедельник, 09.04.2018, 18:00 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
макрос на закрытие

книги


Яндекс: 410016850021169
 
Ответить
Сообщение
макрос на закрытие

книги

Автор - sboy
Дата добавления - 09.04.2018 в 18:00
hathory Дата: Понедельник, 09.04.2018, 18:01 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Извините, туплю под конец рабочего дня,еще раз спасибо


hathory
 
Ответить
СообщениеИзвините, туплю под конец рабочего дня,еще раз спасибо

Автор - hathory
Дата добавления - 09.04.2018 в 18:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая вставка даты и время в заданные ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!