Добрый день! Есть сводная таблица, в ней в фильтрах отчета нужно наложить фильтр, нужно выбрать 3 критерия. Макрорекодер записал вот такой код
Код |
---|
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вендор 0")
.PivotItems("Проктер Энд Гэмбл").Visible = False
.PivotItems("Яромирский мясной двор ООО").Visible = False
.PivotItems("Различные Поставщики").Visible = False
.PivotItems("ТД Холдинг").Visible = False
.PivotItems("Прод-Торг ООО").Visible = False
.PivotItems("Спп Юг ООО").Visible = False
.PivotItems("Тандем").Visible = False
.PivotItems("Лина").Visible = False
.PivotItems("Романцов С.В.").Visible = False
.PivotItems("Кубань Кк").Visible = False
.PivotItems("Цезарь").Visible = False
.PivotItems("Сабком").Visible = False
.PivotItems("Талосто").Visible = False
.PivotItems("Сопутствующие Товары").Visible = False
.PivotItems("Дансония ООО").Visible = False
.PivotItems("Элика").Visible = False
.PivotItems("Элис ООО").Visible = False
.PivotItems("Качественные продукты ЗАО").Visible = False
.PivotItems("Субботина Л.В ИП").Visible = False
.PivotItems("Каменский стеклотарный завод").Visible = False
.PivotItems("Сода ОАО").Visible = False
.PivotItems("Аллегро").Visible = False
.PivotItems("Архимед ООО (Непрофиль)").Visible = False
.PivotItems("Ляшенко ИП").Visible = False
.PivotItems("Смоленская Чулочная Фабрика ЗАО").Visible = False
.PivotItems("РУСАЛ Саянская фольга ООО").Visible = False
.PivotItems("Техпроект ТД").Visible = False
.PivotItems("Империал-Трейд ТД ООО").Visible = False
.PivotItems("Текос Индустрия").Visible = False
End With |
Я так понимаю этот код убирает значения которые мне не нужны, но этот список может измениться, но мне всегда нужны только 3 наименования. Я попробовал присвоить нужным мне позициям True, но т.к. все позиции на данный момент True, соответственно ничего и не произошло. Как модернизировать код чтобы присвоить всем позициям False, а потом нужным мне позициям True?
Опишу всю задачу, может есть решение проще, чем я его себе вижу.
Есть 2 сводных таблицы (на что они ссылаются я не знаю, приходит файл чисто в 2 сводными)
в первой мне нужно выбрать все позиции и которых уровень сервиса ниже 95%, для этого я выбираю в фильтре отчетов 3 производителя нужных мне, затем копирую список позиций у которых уровень сервиса ниже 95% на новый лист и к ним притягиваю значения с другой сводной, предварительно приведя ее в нужный мне вид
Либо как вариант решения - как получить нужные мне данные так сказать не из графически представленных данных, а запросом, не знаю как правильно это назвать...
К примеру получить список товаров, у которых "Вендор 0" или "Пластиктрейд", или "Новые Технологии", или "Новые технологии ООО", а так же УС < "0,95", дата = "03.12.2015"