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

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

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

Связать кнопку со срезом сводной таблицы (Сводные таблицы/Pivot Table)

Sema3030

Дата: Среда, 29.05.2024, 14:47 | Сообщение № 1

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

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

Сообщений: 2

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

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

13

Доброго дня!
Подскажите возможно ли сделать кнопку при нажатии которой активировалась строчка в срезе сводной таблицы

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

Ответить

Pelena

Дата: Среда, 29.05.2024, 15:04 | Сообщение № 2

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

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

Сообщений: 19281

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Принцип такой
[vba]

Код

Sub Кнопка2_Щелчок()
    Dim slit As SlicerItem
    For Each slit In ActiveWorkbook.SlicerCaches("Срез_Наименование").SlicerItems
        If slit.Caption = "Позиция 1" Then slit.Selected = True Else slit.Selected = False
    Next slit
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Sema3030

Дата: Четверг, 30.05.2024, 10:49 | Сообщение № 3

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

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

Сообщений: 2

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

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

13

Спасибо получилось!!!
Sub Кнопка2_Щелчок()
Dim slit As SlicerItem
For Each slit In ActiveWorkbook.SlicerCaches("Срез_Наименование").SlicerItems
If slit.Caption = "Позиция 1" Then slit.Selected = True Else slit.Selected = False
Next slit
End Sub

Но возникла другая проблема, при нажатии на 2-ую кнопку (для перехода на Позицию 2) выделяется и Позиция 1 и только после повторного нажатия 1-я позиция сбрасывается

Ответить

Связать кнопку со срезом сводной таблицы (Сводные таблицы/Pivot Table)

Страница 1 из 1
1