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

Вход

Регистрация

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

 

= Мир MS Excel/Создание макроса хронометража рабочего времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание макроса хронометража рабочего времени (Макросы/Sub)
Создание макроса хронометража рабочего времени
yafreman Дата: Четверг, 15.12.2016, 15:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уважаемые коллеги, столкнулся с задачей детально зафиксировать действия рабочего персонала.
Есть проблема, что руками вбивать посекундные значения во-первых утомительно, во-вторых неэффективно( медленно).
В приложенном файле пример таблицы фиксации действий. нужно например при заполнении ячейки в столбце "индекс" фиксировать время начала напротив нее, либо время окончания предыдущего процесса. Вообще реально ли создание адекватно работающего процесса для этого дела?
второй день пытаюсь разобраться как подступиться к этой проблеме, но в VBA профан полный.
Буду благодарен за любую помощь.
К сообщению приложен файл: 2873356.xlsx (9.9 Kb)


Сообщение отредактировал yafreman - Четверг, 15.12.2016, 15:04
 
Ответить
СообщениеУважаемые коллеги, столкнулся с задачей детально зафиксировать действия рабочего персонала.
Есть проблема, что руками вбивать посекундные значения во-первых утомительно, во-вторых неэффективно( медленно).
В приложенном файле пример таблицы фиксации действий. нужно например при заполнении ячейки в столбце "индекс" фиксировать время начала напротив нее, либо время окончания предыдущего процесса. Вообще реально ли создание адекватно работающего процесса для этого дела?
второй день пытаюсь разобраться как подступиться к этой проблеме, но в VBA профан полный.
Буду благодарен за любую помощь.

Автор - yafreman
Дата добавления - 15.12.2016 в 15:03
nilem Дата: Четверг, 15.12.2016, 15:15 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Например, так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Len(Target(0, 1)) Then
    If Len(Target) Then
        Target(1, 2) = Now
        If Target.Row > 2 Then Target(0, 3) = Now
    End If
End If
End Sub
[/vba]
в файле попробуйте последовательно заполнять столбец А ("Индекс")
К сообщению приложен файл: _2873356.xlsm (14.8 Kb)


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеНапример, так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
If Len(Target(0, 1)) Then
    If Len(Target) Then
        Target(1, 2) = Now
        If Target.Row > 2 Then Target(0, 3) = Now
    End If
End If
End Sub
[/vba]
в файле попробуйте последовательно заполнять столбец А ("Индекс")

Автор - nilem
Дата добавления - 15.12.2016 в 15:15
yafreman Дата: Четверг, 15.12.2016, 15:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
в файле попробуйте последовательно заполнять столбец А ("Индекс")


К сожалению, не функционирует должным образом.

Может у меня не включены какие-то настройки?
 
Ответить
Сообщение
в файле попробуйте последовательно заполнять столбец А ("Индекс")


К сожалению, не функционирует должным образом.

Может у меня не включены какие-то настройки?

Автор - yafreman
Дата добавления - 15.12.2016 в 15:53
nilem Дата: Четверг, 15.12.2016, 16:12 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Макросы должны быть разрешены (при открытии файла нужно нажать Разрешить макросы)
После ввода значения в 1-й столбец и нажатия Ентер должны заполняться Время начала и Время окончания.


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеМакросы должны быть разрешены (при открытии файла нужно нажать Разрешить макросы)
После ввода значения в 1-й столбец и нажатия Ентер должны заполняться Время начала и Время окончания.

Автор - nilem
Дата добавления - 15.12.2016 в 16:12
yafreman Дата: Четверг, 15.12.2016, 17:25 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
После ввода значения в 1-й столбец и нажатия Ентер должны заполняться Время начала и Время окончания

БЛиииин !!!! это великолепно !!! Подскажите мне пожалуйста, если Вас не затруднит, как мне внести это в другую книгу Excel , какая строка за что отвечает. как определить ячейки.
Я Вам очень благодарен.
Хочу также уметь, может есть база (литература, уроки , основы) с которой стоит начать?
 
Ответить
Сообщение
После ввода значения в 1-й столбец и нажатия Ентер должны заполняться Время начала и Время окончания

БЛиииин !!!! это великолепно !!! Подскажите мне пожалуйста, если Вас не затруднит, как мне внести это в другую книгу Excel , какая строка за что отвечает. как определить ячейки.
Я Вам очень благодарен.
Хочу также уметь, может есть база (литература, уроки , основы) с которой стоит начать?

Автор - yafreman
Дата добавления - 15.12.2016 в 17:25
nilem Дата: Четверг, 15.12.2016, 19:00 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Литература вот здесь, например
Чтобы перенести в другую книгу, скопируйте код из сообщения №2 (или из файла во вложении) и вставьте его в модуль нужного листа другой книги.
Или можно перенести весь лист в другую книгу.


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеЛитература вот здесь, например
Чтобы перенести в другую книгу, скопируйте код из сообщения №2 (или из файла во вложении) и вставьте его в модуль нужного листа другой книги.
Или можно перенести весь лист в другую книгу.

Автор - nilem
Дата добавления - 15.12.2016 в 19:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание макроса хронометража рабочего времени (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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