Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2017, 23:22   #1
Sparta300
Новичок
Джуниор
 
Регистрация: 12.09.2017
Сообщений: 1
По умолчанию Фильтр в Олап - VBA

Добрый день!
Я не так давно изучаю vba и столкнулся с проблемой при работе с олап-кубом. Куб содержит артикулы товаров (более 10 000) и постоянно возникает необходимость фильтровать куб только по определенным артикулам. При записи макрорекодором выборки, например, 3-х артикулов код выглядит следующим образом:
Код:
Sub Коды()
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Товарный кл].[Код товара].[Код товара]").VisibleItemsList = Array( _
        "[Товарный кл].[Код товара].&[0230405026]", _
        "[Товарный кл].[Код товара].&[1100071922]", _
        "[Товарный кл].[Код товара].&[1100073043]")
End Sub
Я решил прописать макрос, который вытаскивает нужные коды из графы F. Макрос проходит по всем артикулам, но фильтр работает только для последнего артикула. Я полагаю, что последняя конструкция поочередно фильтрует по артикулам, но не сохраняет предыдущее условие в фильтре. Т.е. нет накопительного фильтра. Код написал на основании того, что получилось в макрорекодоре (выше). Как возможно скорректировать макрос, чтобы выборка производилась по всем артикулам из диапазона?
Код:
Sub SKU()
 
Dim MA(2) As Range
Dim x As Integer
    
    For x = 0 To 2
        Set MA(x) = Range("F" & x + 1)
    Next x
    
    For x = 0 To 2
        ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Товарный кл].[Код товара].[Код товара]").VisibleItemsList = Array("[Товарный кл].[Код товара].&[" & MA(x) & "]")
    Next x
    
End Sub
Sparta300 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтр даты в экзеле vba extozy Microsoft Office Excel 1 22.07.2014 10:35
Продвинутый фильтр с автопростановкой на VBA Lamo Microsoft Office Excel 15 26.07.2013 12:42
VBA расширенный фильтр rjaba123 Помощь студентам 1 16.04.2011 00:02
Расширенный фильтр (VBA) Flame811 Microsoft Office Excel 0 10.12.2009 15:46