Question

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

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

最好是VBA应该选择全部，如果可能的话，还要取消选择BLANK，但我还没有达到这一点：

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

＆＃34;回答＆＃34;在您链接到的帖子中，使用您的代码，看起来像这样......

Sub Showallpivot()
Dim pt As PivotTable

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

End Sub

这将删除已放置的任何过滤，使数据透视表保持完整形式。

如果这不能做你想做的事情，那么你需要更清楚地解释问题所在。

您的评论＆＃34;优选地，VBA应选择全部，如果可能，请取消选择BLANK，但我还没有达到这一点，而暗示您是寻找其他信息，除了显示所有的数据透视表。您没有提供足够的详细信息供我进一步评论。这应该是一个单独的问题。

Pivot：VBA用于检查数据透视表中的全部选择但空白

1 个答案: