MyTetra Share
Делитесь знаниями!
Разобрать сводные таблицы
16.03.2019
23:43
Раздел: !Закладки - VBA - Сводные

'### Разобрать сводные таблицы

Function FnDelFieldsAllSh() '(ByVal strShName As String)


On Error Resume Next

For Each oSh In ThisWorkbook.Sheets 'цикл по всем листам книги


If oSh.PivotTables.Count > 0 Then

Debug.Print oSh.Name & " ======================================="

For Each oPt In oSh.PivotTables 'цикл по всем сводным таблицам

Set Pt = oPt


With Pt

' ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Месяц_Decl"). _

Orientation = xlHidden

For Each Pf In .PivotFields 'скинуть все поля

' dd = Pf.Orientation

' Debug.Print Pf & " ======= " & dd

Pf.Orientation = xlHidden

Next 'Pf

Set Pf = Nothing

End With

Next 'oPt

End If

Next 'oSh

End Function

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования