Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое обновление сводной таблицы
 
#1
17.04.2024 19:33:41
Добрый день,
Помогите написать код vba, суть его в следующем
Есть диапазон куда руками вносятся данные, например A2:D2
На основе Этого диапазона строится сводная таблица PivotTable1
Как написать код, который запускал бы автоматом обновление сводной таблицы PivotTable1 как только значения любой ячейки в диапазоне A2:D2 изменилось бы

Спасибо
 
 
 
#2
17.04.2024 20:10:45
Здравствуйте, в модуль листа:

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng  As Range
    Dim sh  As Worksheet

    Set sh = ActiveWorkbook.Worksheets("ИмяЛиста") ' имя листа сводной таблицы
    Set rng = Range("A2:D2")

    If Not Intersect(Target, rng) Is Nothing Then
        sh.PivotTables("PivotTable1").RefreshTable
    End If
End Sub
Изменено: Behruz A.N. - 17.04.2024 20:14:24 (Дополнение)
Вредить легко, помогать трудно.
 
 
 
#3
18.04.2024 08:11:07
Автообновляемая сводная таблица
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
18.04.2024 09:12:37
Behruz A.N., Дмитрий(The_Prist) Щербаков, Спасибо!
 
 
 
#5
18.04.2024 09:27:06
Друзья, подскажите, почему я могу обновить стандартным способом сводную, а через код, выдает ошибку?  
Изменено: RayI - 18.04.2024 09:36:09
 
 
 
#6
18.04.2024 12:09:05
что за ошибка? Скорее всего таблицы с таким именем нет на листе.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
18.04.2024 15:14:10
Цитата
RayI написал:
выдает ошибку
Выложите файл-пример.
Владимир
 
 
 
Страницы: 1
Наверх