Фильтр в сводной таблице OLAP при наличии не совпадений с внешним списком - Microsoft Office Excel

Александр АлВлад · 23.12.2019, 19:54

Всем доброго дня!

Есть сводная таблица на основе OLAP с огромным списком всего, и есть определенный список, который необходимо отобразить в данной сводной таблице OLAP.

Во вложении файл с примером, в нем прописан макрос, который фильтрует по списку, но если в списке будет значение, которого нет в базе, то ошибка.

Просьба подсказать, как это можно поправить.

Aleksandr H. · 23.12.2019, 20:37

Тогда не добавляйте его в список фильтрации

Код:

Sub Макрос1()


Dim y As Integer
Dim arr(2 To 100)
  For y = 2 To 100
    If Sheets("1").Range("K" & y).Value <> 0 And _
        Application.WorksheetFunction.CountIf(Sheets("1").Range("A1:A5000"), Sheets("1").Range("K" & y).Value) > 0 Then
      arr(y) = "[Таблица1].[Код номенклатуры].&[" & Sheets("1").Range("K" & y).Value & "]"
    End If
  Next y
Sheets("1").PivotTables("1").PivotFields("[Таблица1].[Код номенклатуры].[Код номенклатуры]").VisibleItemsList = arr
End Sub

Александр АлВлад · 24.12.2019, 09:14

Aleksandr H., ОГРОМНОЕ СПАСИБО!

Все работает! Гениально! Теперь буду знать.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Фильтр в сводной таблице	danichca	Microsoft Office Excel	1	11.10.2013 20:18
Фильтр по пустым ячейкам в сводной таблице	AntonK	Microsoft Office Excel	4	13.08.2012 09:56
Множественный выбор в сводной таблице OLAP макросом	Zorg	Microsoft Office Excel	4	14.11.2011 10:51
вычисляемые объекты в сводной таблице отключают фильтр самой таблицы	ритузы	Microsoft Office Excel	0	21.04.2010 09:24
Итоги и фильтр данных в сводной таблице	ExcArt	Microsoft Office Excel	6	22.05.2008 01:56

24.12.2019, 09:14	#3
Александр АлВлад Новичок Джуниор Регистрация: 23.12.2019 Сообщений: 2	Aleksandr H., ОГРОМНОЕ СПАСИБО! Все работает! Гениально! Теперь буду знать.