如何计算数据透视表的特定字段中的可见项目而不循环?
如何统计数据透视表的特定字段中的可见项目而不循环所有项目?
代码:
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的数量