Запуск макроса по одной из кнопок среза сводной таблицы

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запуск макроса по одной из кнопок среза сводной таблицы (Макросы/Sub)

PomorNick

Дата: Четверг, 24.12.2015, 06:19 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2010

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

Пробовал вот так, но не работает:

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Boolean)
If ActiveWorkbook.SlicerCaches("Срез_1").SlicerItem("МЛ").Selected = True Then
ActiveWorkbook.SlicerCaches("Срез_2").SlicerItem("МЛ").Selected = True
End If
End Sub

[/vba]

Ответить

PomorNick

Дата: Четверг, 24.12.2015, 08:26 | Сообщение № 2

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

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

Сообщений: 4

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

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

Excel 2010

Другой вариант, но тоже не выходит:
[vba]

Код

Private Sub Срез1_Change()
If ActiveWorkbook.SlicerCaches("Срез1").SlicerItems("МЛ").Selected = True Then
ActiveWorkbook.SlicerCaches("Срез2").SlicerItems("МЛ").Selected = True
End If
End Sub

[/vba]
[moder]Коды макросов нужно обрамлять специальными тегами - кнопка #
На первый раз поправил Вам оба поста

Сообщение отредактировал PomorNick - Четверг, 24.12.2015, 09:55

Ответить

_Boroda_

Дата: Четверг, 24.12.2015, 09:31 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
В модуль листа.
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    If ActiveWorkbook.SlicerCaches("Срез_й").SlicerItems("а").Selected = True Then
        Application.EnableEvents = 0
        ActiveWorkbook.SlicerCaches("Срез_яыу").SlicerItems("а").Selected = True
        Application.EnableEvents = 1
    End If
End Sub

[/vba]
Поскольку Вы свою таблицу не приложили, то названия срезов и полей у меня свои

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

PomorNick

Дата: Четверг, 24.12.2015, 09:52 | Сообщение № 4

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

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

Сообщений: 4

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

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

Excel 2010

К сожалению, PowerPivot на рабочей машине нет возможности поставить, иначе именно этим методом бы и воспользовался. Речь идет о стандартной сводной таблице.

Ответить

_Boroda_

Дата: Четверг, 24.12.2015, 10:39 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Цитата PomorNick, 24.12.2015 в 09:52, в сообщении № 4

PowerPivot на рабочей машине нет возможности поставить

И не нужно. Вы увидели в коде буковки PivotTable и решили, что работать не будет? Вы посмотрите у себя список событий листа.

Ответить

PomorNick

Дата: Пятница, 25.12.2015, 05:14 | Сообщение № 6

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

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

Сообщений: 4

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

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

Excel 2010

Ух ты, здорово, работает! Спасибо огромное!

Ответить

skais675

Дата: Вторник, 14.02.2017, 17:37 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 138

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

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

Excel 2010

Boroda_
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
ActiveWorkbook.Sheets("Sheet1").PivotTables("PivotTable1").PivotCache.Refresh
End Sub

[/vba]
А как сделать чтобы обновлялась другая сводная2 после обновления сводной1 - событие - дает ошибку!