Я относительно новичок в VBA, и я хотел бы найти код для печати в PDF всех версий листов, проходящих по всем значениям поля сводной таблицы.
Каждый раз, когда я изменяю значение определенного поля сводной таблицы, обновляются все графики листа, и я хотел бы напечатать для каждой версии файл PDF, названный в качестве значения в сводной таблице.
В этом поле содержится около 300 значений, поэтому я должен получить 300 файлов PDF, сохраненных в определенной папке.
Я видел, что есть несколько похожих вопросов, я пытался использовать разные коды, просто вставляя их и изменение имен различных полей, таблиц и т. д. c. но он не работает, так как мой уровень в предмете не так хорош.
Кто-нибудь может мне помочь?
Это макрос, который я записал, выбрав одно значение и напечатав его.
Sub test1()
'
' test1 Macro
'
'
ActiveSheet.PivotTables("PT Sector").PivotFields("Fund Sector").ClearAllFilters
ActiveSheet.PivotTables("PT Sector").PivotFields("Fund Sector").CurrentPage = _
"Asset Allocation"
Calculate
Columns("U:Z").Select
Selection.ColumnWidth = 11.57
Range("AC23").Select
ActiveWindow.SmallScroll Down:=48
Range("AA77").Select
Selection.AutoFill Destination:=Range("AA77:AA79"), Type:=xlFillDefault
Range("AA77:AA79").Select
Calculate
ActiveWindow.SmallScroll Down:=-24
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Как я могу oop пройти через все значения?
Идеи, как это сделать с Python Istead?
Большое спасибо заранее!
Best, Ema