Я хочу просто вернуть фактические видимые элементы сводки в приведенном ниже - если я запускаю это, я получаю все сводные элементы field3, а не только те, которые отображаются на основе фильтров страницы.
Если я применяю фильтр к сводному полю field3, тогда pt.visibleitems работает, но вместо этого я хочу выполнить фильтрацию по field1 и field2 согласно приведенному ниже примеру.
Спасибо!
Dim pt As PivotTable
Set pt = Worksheets("pt").PivotTables("ptExample")
pt.PivotFields("field1").CurrentPage = "string1"
pt.PivotFields("field2").CurrentPage = "string2"
Debug.Print (pt.PivotFields("field3").VisibleItems.Count)
