Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: Химка от 03.05.2023, 11:57

Название: Считать количество открытий файла
Отправлено: Химка от 03.05.2023, 11:57
Ребята!
Как можно сделать подсчет количества открытий рабочего файла?
Что бы в какой-то клеточки было количество?
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 03.05.2023, 12:19
Здравствуйте

Можно макросом на событие открытия книги:[a1]=[a1]+1
Название: От: Считать количество открытий файла
Отправлено: Химка от 04.05.2023, 15:09
Спасибо
Но как это использовать?
Название: От: Считать количество открытий файла
Отправлено: elovkov от 04.05.2023, 16:36
Вкладка "Разработчик" (если ее нет - включить в настройках ленты)
Кликаем Visual Basic там в левом поле находим "Эта книга" двойной щелчок - в правое поле код
Private Sub Workbook_Open()
[a1] = [a1] + 1
End Sub
Где a1 - это соответственно адрес ячейки, в которой счетчик должен стоять
может быть соответственно
[Лист1!A1] = [Лист1!A1] + 1ну и так далее, какой адрес надо.
Ну и сохранять с поддержкой макросов файл
Название: От: Считать количество открытий файла
Отправлено: Химка от 05.05.2023, 09:36
Спасибо получилось как написали
Но так считает все открытия файла а надо что бы по сотруднику
Так можно сделать?  ???
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 05.05.2023, 10:53
Цитата: Химка от 05.05.2023, 09:36надо что бы по сотруднику
По какому ещё сотруднику?
Где об этом написано в топике?
Название: От: Считать количество открытий файла
Отправлено: Химка от 05.05.2023, 14:10
Я объясню
Работают с файлом два сотрудника. Один сменяет другого, вводит в файл рабочую информацию. Чтобы понять кто больше работал надо посчитать кто из них сколько раз открывал файл потоум что ввод информации заканчивается закрытием файла.Это можно сделать? :'(
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 05.05.2023, 15:37
Цитата: Химка от 05.05.2023, 14:10надо посчитать кто из них сколько раз открывал файл
Какие ещё сюрпризы будут?

Цитата: Химка от 05.05.2023, 14:10Работают с файлом два сотрудника
Каждый под своей учеткой?

Название: От: Считать количество открытий файла
Отправлено: Химка от 05.05.2023, 16:39
Да, они меняют другдруга.
Извините
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 05.05.2023, 18:08
Private Sub Workbook_Open()
    Select Case Environ("USERNAME")
        Case "Пользователь1"
            [a1] = [a1] + 1
        Case "Пользователь2"
            [b1] = [b1] + 1
    End Select
End Sub
Название: От: Считать количество открытий файла
Отправлено: Химка от 15.06.2023, 13:24
Serge 007 извините за долгий ответ

Макрос работает, но подсчет нужен каждый день...
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 15.06.2023, 15:28
Ну и считайте каждый день
Что не так?
Название: От: Считать количество открытий файла
Отправлено: Химка от 21.06.2023, 20:27
Макрос продолжает считать на следующий день когда уже другой сотрудник работеат а надо что бы для каждого свой результат был
Название: От: Считать количество открытий файла
Отправлено: Татьянка от 21.06.2023, 22:25
Химка, а если просто утром, когда наступает новая смена, вручную удалять цифру в ячейке подсчета?
Название: От: Считать количество открытий файла
Отправлено: Serge 007 от 22.06.2023, 09:17
Цитата: Химка от 21.06.2023, 20:27когда уже другой сотрудник работеат
Что должно происходить, когда начинается смена другого сотрудника?