展开/折叠特定的数据透视字段

Question

我有问题，我对VBA了解不多。

我正在努力实现一些看似相当简单的事情。我需要一个分配给按钮的宏，任何点击都会折叠/展开数据透视表中的某个字段。

我有扩展代码，并单独折叠。

＆＃39;点击折叠字段 范围（＆＃34; B5：B8＆＃34）。选择 ActiveSheet.PivotTables（＆＃34; PivotTable1＆＃34;）。PivotFields（＆＃34; MD＆＃34;）。ShowDetail = False  ＆＃39;在另一次点击崩溃 范围（＆＃34; B5：B8＆＃34）。选择 ActiveSheet.PivotTables（＆＃34; PivotTable1＆＃34;）。PivotFields（＆＃34; MD＆＃34;）。ShowDetail = True

有人可以帮忙吗？

谢谢你， 菲利普

Answer 1

我认为这就是你要找的东西

         Set pf = pt.PivotFields(r.PivotField.Name)
     pf.ShowDetail = IIf(r.ShowDetail, False, True)