Автоматические отчеты в Excel

Дата: Вторник, 14.03.2017, 09:12 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Добрый день!
Имеется нетривиальная задача - генерация отчётов по выполненной работе предполагаемого штата сотрудников.
Есть таблица, заполненная по каждому отдельному факту выполнения работ, данные пополняются периодически.
Примерный вид полей:
ID | Время выполнения | Сотрудник | Статус
01 09.03.2017 08:49 Петров А. Выполнен
02 09.03.2017 12:49 Семенов Б. Просрочено

И так далее в подобном порядке.

В настоящий момент при формировании отчета создается новая сводная таблица, по данным строится сводная диаграмма.
Ввиду большого количества данных и необходимости генерировать отчет часто, встаёт вопрос об автоматизации процесса.

Подскажите, пожалуйста, как сделать автоматическое обновление данных в сводных таблицах при добавлении в общую базу новых записей? Необходимо, также, обновление графиков.

Спасибо!

Дата: Вторник, 14.03.2017, 09:33 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

как-то так, наверное [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PivotTables("Сводная таблица1").PivotCache.Refresh
End Sub

[/vba]

Сообщение отредактировал buchlotnik - Вторник, 14.03.2017, 10:01

Дата: Вторник, 14.03.2017, 11:16 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Не работает)

Дата: Вторник, 14.03.2017, 11:23 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Что не работает? Где не работает? Где файл?

Дата: Вторник, 14.03.2017, 12:05 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Собственно, файл во вложениях.
Данные не обновляются, для отображения новых нужно генерировать новую сводную таблицу, что в принципе возвращает к вопросу, заданному изначально.

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

Дата: Вторник, 14.03.2017, 12:28 | Сообщение № 6

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

Данные не обновляются

ещё бы - обработчик события листа в отдельный модуль засунули. Исходные отформатил как таблицу, сводная обновляется при активации Лист4!

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

Дата: Среда, 15.03.2017, 06:49 | Сообщение № 7

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Спасибо, это полезно.
Подскажите ещё, пожалуйста, что нужно было сделать? Если я захожу в Вид -> Макросы , то в списке у меня пусто, хотя ваш макрос выполняется, как тогда его сделать и чтобы он работал?
И вопрос номер два - как нужно оформлять таблицу, и привязывать макрос к ней?

Дата: Среда, 15.03.2017, 07:31 | Сообщение № 8

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

как нужно оформлять таблицу

вставка - таблица или Ctrl+T или Ctrl+L

Цитата

привязывать макрос к ней

не нужно - таблицу нужно использовать как источник для сводной

Цитата

в списке у меня пусто

да, потому что он Private и лежит в модуле Лист4! и открывать его надо не по Alt+F8 (Вид - Макросы или Разработчик - Макросы), а по Alt+F11 (Разработчик - Visual basic)