Показать все пункты в фильтре сводной таблицы - Microsoft Office Excel

agregator · 19.01.2011, 04:51

Здравствуйте, уважаемые программисты. Подскажите пожлуйста код, который может поставить галочку в фильтре столбца сводной таблицы перед "(Показать все)". Мой код не работает

Код:

Sub Все()
    With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("Дата выезда")
        .PivotItems("(Показать все)").Visible = True
    End With
End Sub

agregator · 19.01.2011, 14:42

Здесь есть сводники?

19.01.2011, 04:51	#1
agregator Форумчанин Регистрация: 09.05.2009 Сообщений: 370	Отобразить все пункты в фильтре сводной таблицы Здравствуйте, уважаемые программисты. Подскажите пожлуйста код, который может поставить галочку в фильтре столбца сводной таблицы перед "(Показать все)". Мой код не работает Код: `Sub Все() With ActiveSheet.PivotTables("СводнаяТаблица5").PivotFields("Дата выезда") .PivotItems("(Показать все)").Visible = True End With End Sub` Последний раз редактировалось agregator; 19.01.2011 в 14:58.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отметить даты в фильтре сводной таблицы	agregator	Microsoft Office Excel	5	20.01.2011 12:48
Удалить пункты автофильтра сводной таблицы.	agregator	Microsoft Office Excel	0	04.12.2009 13:02
Данные из двух полей исх. таблицы в одно поле сводной таблицы	Strelec79	Microsoft Office Excel	2	02.08.2009 13:59
Форматирование сводной таблицы	eda	Microsoft Office Excel	1	23.07.2009 11:16

19.01.2011, 14:42	#2
agregator Форумчанин Регистрация: 09.05.2009 Сообщений: 370	Здесь есть сводники?