Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Связать кнопку со срезом сводной таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Связать кнопку со срезом сводной таблицы
Sema3030 Дата: Среда, 29.05.2024, 14:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

13
Доброго дня!
Подскажите возможно ли сделать кнопку при нажатии которой активировалась строчка в срезе сводной таблицы
К сообщению приложен файл: kniga100500.xlsm (20.0 Kb)
 
Ответить
СообщениеДоброго дня!
Подскажите возможно ли сделать кнопку при нажатии которой активировалась строчка в срезе сводной таблицы

Автор - Sema3030
Дата добавления - 29.05.2024 в 14:47
Pelena Дата: Среда, 29.05.2024, 15:04 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19242
Репутация: 4433 ±
Замечаний: ±

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
 
Ответить
СообщениеЗдравствуйте.
Принцип такой
[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]

Автор - Pelena
Дата добавления - 29.05.2024 в 15:04
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-я позиция сбрасывается
 
Ответить
СообщениеСпасибо получилось!!!
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-я позиция сбрасывается

Автор - Sema3030
Дата добавления - 30.05.2024 в 10:49
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!