枢轴：VBA 检查 select 枢轴 table 中除空白外的所有内容

Question

您好，我有一个关于数据透视表的问题

在下面的主题的帮助下，我设法得到了一个代码，但它不起作用，希望任何人都能看到哪里出了问题。 How to select (All) in a pivot table filter

最好，VBA 应该 SELECT 全部，如果可能的话，而不是取消选择空白，但我还没有做到这一点：

Sub Showallpivot()

Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("PivotTable1")

For Each pf In pt.PivotFields
    pf.ShowAllItems = True
Next pf
End Sub

我做错了什么？

提前致谢。

Answer 1

您链接到的 post 中的 "answer"，使用您的代码，看起来像这样...

Sub Showallpivot()
Dim pt As PivotTable

    Set pt = ActiveSheet.PivotTables("PivotTable1")
    pt.ClearAllFilters

End Sub

这将删除所有已设置的筛选，使数据透视表保持完整形式。

如果这不能满足您的要求，那么您需要更清楚地解释问题所在。

您的评论 "Preferably, the VBA should SELECT ALL and, if possible, than unselect the BLANK, but I didn't reach that point yet" 暗示您正在寻找其他信息，而不是显示所有枢轴 table。你没有提供足够的细节让我进一步评论。这应该是一个单独的问题。

枢轴：VBA 检查 select 枢轴 table 中除空白外的所有内容

Pivot: VBA to check the select all but blank in a pivot table

excel

vba

pivot

pivot-table