Обозначение строки столбца таблицы сводных таблиц с помощью Excel VBA

Question

Как я могу отфильтровать метку строки в сводной таблице с помощью Excel VBA, чтобы отображать только значения, равные 7 или меньше?

Сводная таблица ссылается на столбец, который показывает количество дней до заданного срока. Я бы хотел, чтобы он автоматически показывал только те предметы, у которых 7 дней или меньше. После некоторых исследований в Интернете, я обнаружил, что я могу сказать, сводная таблицу, чтобы исключить определенные значения - вдоль линий:

Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("Days_Due") 
    pf.PivotItems("8").Visible = False 

Но это не работоспособное, как я не могу запрограммировать любые возможные цифровую последовательность знаков, не 7 или менее, чтобы не было видно. Есть ли более простой способ сделать это? Благодарю.

Answer 1

Вы можете использовать метки фильтр:

Set pf = ActiveSheet.PivotTables("PivotTable1").PivotFields("Days_Due") 
pf.PivotFilters.Add Type:=xlCaptionIsLessThan, Value1:="8"