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

Вход

Регистрация

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

 

= Мир MS Excel/Событие slicer-а ломает его - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Событие slicer-а ломает его (Макросы/Sub)
Событие slicer-а ломает его
dsb75 Дата: Четверг, 28.05.2015, 13:06 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день,
пытаюсь использовать slicer (срез) в качестве некоего элемента управления для обычной таблицы. Мне надо всего - ничего, чтобы выбор в срезе фиксировался в ячейке листа. Срез настроен на вспомогательную умную таблицу, расположенную на другом листе. Назначил срезу событие по клику.
Событие вызывается и работает, но сам слайсер после первого вызова события блокируется и перестаёт давать себя изменить. Инет на эту тему пуст. Нет ли у кого каких мыслей?
К сообщению приложен файл: Slicer.xlsm (17.1 Kb)
 
Ответить
СообщениеДобрый день,
пытаюсь использовать slicer (срез) в качестве некоего элемента управления для обычной таблицы. Мне надо всего - ничего, чтобы выбор в срезе фиксировался в ячейке листа. Срез настроен на вспомогательную умную таблицу, расположенную на другом листе. Назначил срезу событие по клику.
Событие вызывается и работает, но сам слайсер после первого вызова события блокируется и перестаёт давать себя изменить. Инет на эту тему пуст. Нет ли у кого каких мыслей?
Автор - dsb75
Дата добавления - 28.05.2015 в 13:06
SLAVICK Дата: Четверг, 28.05.2015, 16:44 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Так? :D
Добавил еще одну ячейку с всеми элементами.

[vba]
Код
Private Sub Worksheet_Calculate()
   Dim oItem As SlicerItem, s$
   With ThisWorkbook.SlicerCaches(1)
     For Each oItem In .SlicerItems
       If oItem.Selected Then
         s = s & "|" & oItem.Value
       End If
     Next
   End With
   s = Right(s, Len(s) - 1)
   Лист1.Range("Выбор").Value = Split(s, "|")(0)
   Лист1.Range("Выбор").Offset(, 1).Value = s
End Sub
[/vba]
К сообщению приложен файл: Slicer-1-.xlsm (18.2 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 28.05.2015, 16:58
 
Ответить
СообщениеТак? :D
Добавил еще одну ячейку с всеми элементами.

[vba]
Код
Private Sub Worksheet_Calculate()
   Dim oItem As SlicerItem, s$
   With ThisWorkbook.SlicerCaches(1)
     For Each oItem In .SlicerItems
       If oItem.Selected Then
         s = s & "|" & oItem.Value
       End If
     Next
   End With
   s = Right(s, Len(s) - 1)
   Лист1.Range("Выбор").Value = Split(s, "|")(0)
   Лист1.Range("Выбор").Offset(, 1).Value = s
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 28.05.2015 в 16:44
dsb75 Дата: Четверг, 28.05.2015, 19:55 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SLAVICK, отличная идея!
Спасибо! Вы предложили событие, которое меня вполне удовлетворит. Насчёт множественного выбора тоже спасибо, но это бы я и сам осилил, а вот посоветовать альтернативное событие - это было очень ценно.
 
Ответить
СообщениеSLAVICK, отличная идея!
Спасибо! Вы предложили событие, которое меня вполне удовлетворит. Насчёт множественного выбора тоже спасибо, но это бы я и сам осилил, а вот посоветовать альтернативное событие - это было очень ценно.
Автор - dsb75
Дата добавления - 28.05.2015 в 19:55
dsb75 Дата: Четверг, 28.05.2015, 20:51 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Слона то я и не приметил! У вас ещё и формула с промежуточными итогами вставлена! Тонко hands
 
Ответить
СообщениеСлона то я и не приметил! У вас ещё и формула с промежуточными итогами вставлена! Тонко hands
Автор - dsb75
Дата добавления - 28.05.2015 в 20:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Событие slicer-а ломает его (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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