Как автоматизировать сводную таблицу

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Незнакомка

Дата: Понедельник, 12.01.2015, 11:20 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 25

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

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

Excel 2013

Здравствуйте!! Помогите,пожалуйста,одна надежда на вас, я только начала работать с программой,возник вопрос как сделать автоматическое обновление сводной таблицы при изменении и добавлении данных в исходной. Пробывала при помощи макроса,но в силу моей неопытности не получилось. Не оставьте без внимания,спасибо. И извините за глупые вопросы,но для меня это очень важно.

К сообщению приложен файл: 8920025.xlsx (15.1 Kb)

Ответить

Gustav

Дата: Понедельник, 12.01.2015, 11:45 | Сообщение № 2

Группа: Админы

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

Сообщений: 2843

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Например, при помощи макроса вот так:
[vba]

Код

'Общий модуль1 в Modules
Sub UpdatePivot()
      ThisWorkbook.Worksheets("Лист2").PivotTables("СводнаяТаблица1").PivotCache.Refresh
End Sub

'Модуль Листа2
Private Sub Worksheet_Activate()
      Call UpdatePivot
End Sub

'Модуль Листа1
Private Sub Worksheet_Change(ByVal Target As Range)
      Call UpdatePivot  'можно закомментировать, если не предполагается работа в двух окнах
End Sub

[/vba]