Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Считать количество открытий файла

Автор Химка, 03.05.2023, 11:57

« назад - далее »

Химка

Ребята!
Как можно сделать подсчет количества открытий рабочего файла?
Что бы в какой-то клеточки было количество?

Serge 007

Здравствуйте

Можно макросом на событие открытия книги:[a1]=[a1]+1
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Химка

Спасибо
Но как это использовать?

elovkov

Вкладка "Разработчик" (если ее нет - включить в настройках ленты)
Кликаем Visual Basic там в левом поле находим "Эта книга" двойной щелчок - в правое поле код
Private Sub Workbook_Open()
[a1] = [a1] + 1
End Sub
Где a1 - это соответственно адрес ячейки, в которой счетчик должен стоять
может быть соответственно
[Лист1!A1] = [Лист1!A1] + 1ну и так далее, какой адрес надо.
Ну и сохранять с поддержкой макросов файл
Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица. Улыбайтесь, господа, улыбайтесь!

Химка

Спасибо получилось как написали
Но так считает все открытия файла а надо что бы по сотруднику
Так можно сделать?  ???

Serge 007

Цитата: Химка от 05.05.2023, 09:36надо что бы по сотруднику
По какому ещё сотруднику?
Где об этом написано в топике?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Химка

Я объясню
Работают с файлом два сотрудника. Один сменяет другого, вводит в файл рабочую информацию. Чтобы понять кто больше работал надо посчитать кто из них сколько раз открывал файл потоум что ввод информации заканчивается закрытием файла.Это можно сделать? :'(

Serge 007

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

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

Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Химка

Да, они меняют другдруга.
Извините

Serge 007

Private Sub Workbook_Open()
    Select Case Environ("USERNAME")
        Case "Пользователь1"
            [a1] = [a1] + 1
        Case "Пользователь2"
            [b1] = [b1] + 1
    End Select
End Sub
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Химка

Serge 007 извините за долгий ответ

Макрос работает, но подсчет нужен каждый день...

Serge 007

Ну и считайте каждый день
Что не так?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Химка

Макрос продолжает считать на следующий день когда уже другой сотрудник работеат а надо что бы для каждого свой результат был

Татьянка

Химка, а если просто утром, когда наступает новая смена, вручную удалять цифру в ячейке подсчета?

Serge 007

Цитата: Химка от 21.06.2023, 20:27когда уже другой сотрудник работеат
Что должно происходить, когда начинается смена другого сотрудника?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390