Установка фильтра сводной таблицы через vba по наименованию , а не по номеру элемента в списке

Анонимные

Ексель 2016. Сводная таблица подключена к олап Кубу. В сводной таблице есть поля. В т.ч. "контрагент", "товар" Оба поля содержат текст и находятся в области фильтра. Ставлю на запись макрос. Выбираю в фильтрах контрагент5 и товар25. Останавливаю запись. Смотрю макрос. Там: Фильтр по [контрагент5] (все в порядке) и , ВМЕСТО [товар25] написано [7] (просто число семь) - порядковый номер товара в списке в фильтре(именно порядковый номер, а не код элемента в олап кубе...).

Как выбрать товар по наименованию, а не по номеру в списке? Почему в некоторых полях наименования, а в некоторых- номера???

Заблокированный вопрос. Этот вопрос был перенесен из сообщества службы поддержки Майкрософт. Вы можете проголосовать о его полезности, но не можете добавлять комментарии или ответы, а также подписаться на этот вопрос.

Комментариев: 0

Ответы: 61

Анонимные

2019-06-04T07:32:57+00:00

Надо придумать, как при этом неразгласить коммерческую тайну :)

попробуем так:

код записанного макроса (проблемы в "регионе" и в "Продукте")

это результат (до записи макроса все фильтры были сняты). Фильтры ставились по порядку, сверху вниз

Это как выглядят сами фильтры (по порядку):

специально сделал варианты где "выделить несколько элементов" и "выделить 1 элемент" (от этого не зависит)
Этот ответ помог вам?

Комментариев: 0 Без комментариев
Анонимные

2019-06-03T14:16:16+00:00
Правильно оформленный вопрос, на 95% содержит ответ.
1. Я просил вас предоставить скриншот сводной таблицы Excel с подключённым кубом OLAP, где он?
В чём у вас заключается затруднение в предоставлении аналогичного скриншота?:
1. Почему вы не желаете предоставить код вашего макроса?
2. Проверяли ли вы выполнение вашего макроса, какой результат?
Для примера, код VBA:

Sub olap()

'

' olap Макрос

' макрос к фильтру

'

'

    ActiveSheet.PivotTables("BIWEB_SI_OLAP").PivotFields( _

        "[DimProduct].[Brends].[Product Z Brend]").VisibleItemsList = Array( _

        "[DimProduct].[Brends].[Product Z Brend].&[2520006093935]")

    ActiveSheet.PivotTables("BIWEB_SI_OLAP").PivotFields( _

        "[DimProduct].[Brends].[Product Brend]").VisibleItemsList = Array("")

    ActiveSheet.PivotTables("BIWEB_SI_OLAP").PivotFields( _

        "[DimProduct].[Brends].[Product Min]").VisibleItemsList = Array("")

End Sub

приводит сводную таблицу Excel с вида:

к виду:
Этот ответ помог вам?

Комментариев: 0 Без комментариев
Анонимные

2019-06-03T11:48:57+00:00

Почему Вы считаете, что это именно из-за олап???
Этот ответ помог вам?

Комментариев: 0 Без комментариев
Анонимные

2019-06-03T10:33:14+00:00

На наших Форумах отвечают в свободное от работы и семьи время, так что наберитесь терпения.

Дополнительно, наберите в поисковом окне строку OLAP куб. Допускаю, что аналогичные вопросы и ответы на них окажут вам помощь в решении вашей задачи:

На Форуме TechNet, также действуют ограничения на вставку ссылок и скриншотов, до подтверждения вашего профиля. Внимательно изучите статью "Правила оформления задаваемых вопросов", цитата из статьи: "Для подтверждения уч. записи пользователь может**оставить заявку** на проверку его аккаунта (на англоязычном форуме), и через некоторое время она будет подтверждена. Подобное обсуждение здесь.", может ускорить проверку вашего профиля для снятия ограничений.

Дополнительно, вы можете поискать ответ.
Этот ответ помог вам?

Комментариев: 0 Без комментариев
Анонимные

2019-06-03T10:10:56+00:00

Зачем? Там то же, что в первом моем сообщении на этом форуме...
Этот ответ помог вам?

Комментариев: 0 Без комментариев