Добрый день.
Решение pache у меня не сработало..
Зато нашелся такой простой и изящный, а главное, универсальный способ очистить все поля сводной таблицы, в том числе вычисляемые:
может быть, кому-нибудь пригодится)
Решение pache у меня не сработало..
Зато нашелся такой простой и изящный, а главное, универсальный способ очистить все поля сводной таблицы, в том числе вычисляемые:
| Код |
|---|
Dim p As PivotTable
Dim f As PivotField
Set p = ActiveSheet.PivotTables("Pivot1")
For Each f In p.PivotFields
If f.Orientation <> xlHidden Then
f.Orientation = xlHidden
End If
Next f
For Each f In p.DataFields
If f.Orientation <> xlHidden Then
f.Orientation = xlHidden
End If
Next f |
может быть, кому-нибудь пригодится)
