Question

我正在尝试为数据透视表过滤器编写VBA代码，并完成了对它的研究。我有一个列命名为“名称”（H），并在“名称”上过滤了一个数据透视表。我正在尝试为代码编写vba代码，代码是根据“Name”（H）列的单元格值1更新过滤器1。我可以通过编写代码来实现将透视过滤器分配给单个单元格而不是整个名称1到1的范围。

但最终目标是：根据“名称”（H）列更改透视过滤器值1，并根据透视值过滤器更改表格并将这些表格粘贴到Powerpoint中。每个透视滤镜值为1张幻灯片。例如：名称列具有：x，y，z 在透视值过滤器中逐个放置这些值，并将表插入到powerpoint.1st x中以分配给透视值过滤器，表格会根据x进行更改并将此表格作为幻灯片放入Powerpoint，同样适用于y等等上。这对解决这个问题很有帮助。

提前致谢

Answer 1

这是相同的代码，它只将一个单元格值分配给数据透视表过滤器＆＃34; 小决赛（）

Dim PT As PivotTable
Dim pvtfield As PivotField

Set PT = Sheets("Sheet1").PivotTables("PivotTable2")
Set pvtfield = PT.PivotFields("Name")
pvtfield.CurrentPage = CStr(Range("H2").Value)

Set PT = Nothing

End Sub

用于根据列范围1 x更新数据透视表过滤器的vba代码

1 个答案: