PivotTable / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / PivotTable

2 сообщений из 2, страница 1 из 1

PivotTable

#39116220

Yagrus2

Участник

Откуда: Москва

Сообщения: 894

Рейтинг: 0 / 0

Всем привет!
Объект PivotTable содержит PageFields, то есть коллекцию полей источника, которые мы сделали фильтрами. На примере из скриншота, я выделил их красным маркером.
Для каждого такого поля, значения хранятся в PivotItems.

На MSDN нашел такое описание для PivotItems: https://msdn.microsoft.com/en-us/library/office/ff840045.aspx
В учебном примере для PivotItems используется Visible (наверное сво-во), хотя ни в свойствах ми в методах его нет.

В данном скрипте я определяю все значения, для полей фильтров.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Sub Q()
Set nwSheet = Worksheets.Add
Set pvtTable = Worksheets("Лист33").Range("B2").PivotTable
rw = 0
i = 1
For Each pvtField In pvtTable.PageFields
    rw = rw + 1
    Do While i < pvtField.PivotItems.Count + 1
    nwSheet.Cells(i, 1).Value = pvtField.Name
    nwSheet.Cells(i, 2).Value = pvtField.PivotItems(i).Visible
    nwSheet.Cells(i, 3).Value = pvtField.PivotItems(i).Name
    i = i + 1
    Loop
Next pvtField
End Sub

Часть из них неактивные Visible = ложь.

Подскажите где можно увидеть полное описание объектной модели?
Как сформировать список активных значений для полей фильтров?

...

Рейтинг:

0 / 0

30.11.2015, 12:32

| Ответить | Цитировать | Написать

PivotTable

#39116241