excel - 数据透视表仅过滤掉 1 个选项

Question

我在从数据透视表的过滤器中删除一个选项时遇到问题，如果我录制宏并尝试仅删除约 20 个选项中的一个来应用更改，Excel 会弹出一条消息:

Too many line continuations!

似乎它试图按名称声明每个可能的过滤器选项，就像这里一样:

ActiveSheet.PivotTables("PivotTable1").PivotFields( _
    "[Product Component].[(c) Segment 4].[(c) Segment 4]").VisibleItemsList = Array _
    ("[Product Component].[(c) Segment 4].&[31558]", _
    "[Product Component].[(c) Segment 4].&[315516]", _
    "[Product Component].[(c) Segment 4].&[3152027]", _
    "[Product Component].[(c) Segment 4].&[3152028]")

是否可以使用一个命令仅删除一个选项并显示其余的 ~20 个选项？

Answer 1

很好的问题。因为这是一个 OLAP 数据透视表，所以关键是根据您想要执行的操作将 PivotField 的 CubeField.IncludeNewItemsInFilter 属性设置为 TRUE 或 FALSE。请参阅https://msdn.microsoft.com/en-us/vba/excel-vba/articles/pivotfield-includenewitemsinfilter-property-excel

假设我们对这两项感兴趣:

• [产品组件].[(c) 分割 4].&[31558]
• [产品组件].[(c) 分割 4].&[315516]

如果您只希望这两个内容可见，请将 PivotField 的 CubeField.IncludeNewItemsInFilter 属性设置为 FALSE，然后将应可见的内容数组提供给 pf.VisibleItemsList，如下所示:

Sub ShowOLAPItems()
'
Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("PivotTable1")
Set pf = pt.PivotFields("[Product Component].[(c) Segment 4].[(c) Segment 4]")
pf.CubeField.IncludeNewItemsInFilter = FALSE 'This is the default property
pf.VisibleItemsList = Array("[Product Component].[(c) Segment 4].&[31558]", _
    "[Product Component].[(c) Segment 4].&[315516]")

End Sub

如果您希望除这两件事之外的所有内容都可见，请将 PivotField 的 CubeField.IncludeNewItemsInFilter 属性设置为 TRUE，然后提供一个pf.HidenItemsList 应该可见的事物数组，如下所示:

Sub HideOLAPItems()
'
Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("PivotTable1")
Set pf = pt.PivotFields("[Product Component].[(c) Segment 4].[(c) Segment 4]")
pf.CubeField.IncludeNewItemsInFilter = TRUE 
pf.HiddenItemsList = Array("[Product Component].[(c) Segment 4].&[31558]", _
    "[Product Component].[(c) Segment 4].&[315516]")

End Sub