如何计算数据透视表的特定字段中的可见项目而不循环?

如何统计数据透视表的特定字段中的可见项目而不循环所有项目?

代码:

ActiveSheet.PivotTables(1).PivotFields("MyFieldName").PivotItems.Count 

返回项目总数,无论是否被选中。

我正在寻找像这样的东西:

 ActiveWorkbook.SlicerCaches(1).VisibleSlicerItems.Count 

更新。 我想要统计在下面的图片的[Country]字段中select了多less个项目:

在这里输入图像说明

(我burglared来自: http ://peltiertech.com/referencing-pivot-table-ranges-in-vba/希望,乔恩不会介意的。)

这个简单的macros

 Sub visible_PivotItemCount() ActiveWorkbook.SlicerCaches.Add(ActiveSheet.PivotTables("PivotTable1"), "1"). _ Slicers.Add ActiveSheet, , "Slicer_1", "MySlicer", 1, 1, 1, 1 MsgBox (ActiveWorkbook.SlicerCaches(1).VisibleSlicerItems.Count) ActiveWorkbook.SlicerCaches("Slicer_1").Delete End Sub 

使用VisibleSlicerItems.Count属性来计算所选filter的数量