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

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

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

Ну а используемое тогда что?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2015, 16:24
    #39115070
Yagrus2
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
метаданные сводной таблицы
Все что без галочки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2015, 16:43
    #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
| Ответить | Цитировать | Написать  
28.11.2015, 23:25
    #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
| Ответить | Цитировать | Написать  
29.11.2015, 11:56
    #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, 23:40
    #39115893
Yagrus2
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
метаданные сводной таблицы
The_Prist,
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / метаданные сводной таблицы / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 417ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2173272]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 286ms
total:  417ms
x
x
Закрыть


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