Сортировка значений сводной таблицы в VBA - Microsoft Office Excel

Hoochara · 09.11.2012, 14:12

Всем добрый день.

Подскажите пожалуйста код, как можно сортировать сводку по определенному значению. Не могу понять, как можно в цикле перебирать все значения определенного столбца в сводке.Дайте подсказку.
Пример во вложении.
Нужно сортировать по первому параметру(по адресам)
Спасибо большое.

Hoochara · 09.11.2012, 15:34

Решил проблему вот так:
With ActiveSheet.PivotTables("СводнаяТаб лица1").PivotFields("(All)")
For x = 2 To .PivotItems.Count
msgbox .PivotItems(x).Name
.PivotItems(x).Visible = true
Next
End with ActiveSheet.PivotTables("СводнаяТаб лица1").PivotFields("(All)")

Цикл по всем значениям столбца "All"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA Exel 2010. Сортировка таблицы и закрашивание ячеек	mextako	Помощь студентам	0	31.10.2012 02:27
Есть ли способ редактирования значений сводной таблицы руками	Daren	Microsoft Office Excel	4	14.03.2011 13:47
5 максимальных значений в сводной таблице в новом Excel	Катик7	Microsoft Office Excel	2	03.09.2009 17:26
Данные из двух полей исх. таблицы в одно поле сводной таблицы	Strelec79	Microsoft Office Excel	2	02.08.2009 13:59

09.11.2012, 15:34	#2
Hoochara Пользователь Регистрация: 02.08.2011 Сообщений: 42	Решил проблему вот так: With ActiveSheet.PivotTables("СводнаяТаб лица1").PivotFields("(All)") For x = 2 To .PivotItems.Count msgbox .PivotItems(x).Name .PivotItems(x).Visible = true Next End with ActiveSheet.PivotTables("СводнаяТаб лица1").PivotFields("(All)") Цикл по всем значениям столбца "All"