ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / метаданные сводной таблицы
10 сообщений из 10, страница 1 из 1
метаданные сводной таблицы
    #39114696
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
Всем привет!
Подскажите как на уровне кода(макроса) определить какие поля используются в сводной таблице? И какие являются активными?
...
Рейтинг: 0 / 0
27.11.2015, 11:11
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39114700
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
Yagrus2,
На приведенном скрине, поле бригадир используется для "строк", КолвоГруз - для значений и так далее.
...
Рейтинг: 0 / 0
27.11.2015, 11:14
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39114871
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Yagrus2какие поля используются в сводной таблице? И какие являются активными?А какое поле считать активным в сводной, а какое используемым?

Можно пройтись по структуре сводной - но я вот не понимаю что значит активное поле. Сначала была мысль, что это поле, которое применено в сводной. Но тогда вопрос - что такое используемое?
...
Рейтинг: 0 / 0
27.11.2015, 13:37
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39114979
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
The_Prist,
Активное = применено в сводной.
...
Рейтинг: 0 / 0
27.11.2015, 15:07
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115010
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Yagrus2,

На Вашем скрине получается, что активные: Филиал, Месяц, Бригадир, Значения, КолвоГруз, КолвоПробл

Ну а используемое тогда что?
...
Рейтинг: 0 / 0
27.11.2015, 15:35
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115070
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
Все что без галочки
...
Рейтинг: 0 / 0
27.11.2015, 16:24
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115093
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Yagrus2,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub test()
    Dim oPT_F As PivotField, oPT As PivotTable
    Dim x
    
    Set oPT = ActiveSheet.PivotTables(1)
    For Each x In Array(oPT.RowFields, oPT.ColumnFields, oPT.DataFields, oPT.PageFields)
        If Not x Is Nothing Then
            For Each oPT_F In x
                Debug.Print oPT_F.Orientation & " -- " & oPT_F.Caption
            Next
        End If
    Next x
End Sub



Все те, что выводятся в Debug - те участвуют в текущем макете сводной таблицы.
...
Рейтинг: 0 / 0
27.11.2015, 16:43
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115514
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
The_PristYagrus2,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub test()
    Dim oPT_F As PivotField, oPT As PivotTable
    Dim x
    
    Set oPT = ActiveSheet.PivotTables(1)
    For Each x In Array(oPT.RowFields, oPT.ColumnFields, oPT.DataFields, oPT.PageFields)
        If Not x Is Nothing Then
            For Each oPT_F In x
                Debug.Print oPT_F.Orientation & " -- " & oPT_F.Caption
            Next
        End If
    Next x
End Sub



Все те, что выводятся в Debug - те участвуют в текущем макете сводной таблицы.
Спасибо! Только я не пойму как происходит инициализация перменной х . Ведь нет ни одной строчки типа х= Не могли бы пояснить этот момент?
...
Рейтинг: 0 / 0
28.11.2015, 23:25
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115603
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Yagrus2,

В этом случае надо литературку почитать :)
Цикл For Each инициализирует переменную внутри себя, назначая ей последовательно каждое значение из массива, указанного после In - Array(oPT.RowFields, oPT.ColumnFields, oPT.DataFields, oPT.PageFields).

Наберите в поисковике хотя бы - Работа с циклами For Each в VB(хотя оно справедливо и для других языков - в С тот же принцип).
...
Рейтинг: 0 / 0
29.11.2015, 11:56
| Ответить | Цитировать | Написать  
метаданные сводной таблицы
    #39115893
Фотография Yagrus2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yagrus2
Участник
The_Prist,
Спасибо
...
Рейтинг: 0 / 0
29.11.2015, 23:40
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / метаданные сводной таблицы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39115603&tid=2173272]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 13ms
total:  140ms
созд. / загр.: 140ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]