#excel #vba #pivot #pivot-table
Вопрос:
Я пытаюсь развернуть столбец » Год » в сводных таблицах во всех листах, проходящих по рабочей книге.
Текущий у меня есть:
For Each ws In ThisWorkbook.Worksheets For Each Pt In ws.PivotTables Set Pf = pt.PivotField("[Report vwDimDate].[TheYear].[TheYear]") Pf.ShowDetail = True Next Next
но, к сожалению, это не работает, я получаю ошибку времени выполнения 438 Объект не поддерживает этот метод свойств, может кто-нибудь, пожалуйста, помогите мне в этом.
Спасибо.
Ответ №1:
Мне удалось заставить его работать, я настроил VBA на это:
For Each ws In ThisWorkbook.Worksheets For Each Pt In ws.PivotTables Pt.PivotFields("[Report vwDimDate].[TheYear].[TheYear]").DrilledDown = True Next Pt Next ws