Фильтр только за предыдущий месяц - Excel VBA - PullRequest
Новая
       2

Фильтр только за предыдущий месяц - Excel VBA

1 голос
/ 10 марта 2020

У меня есть набор данных за последние 11 месяцев (с апреля 2019 года по февраль 2020 года). Я создал сводную область, в которой я пытаюсь фильтровать все месяцы, кроме текущего. Месяц в формате - 1, 2, 3 ... и так далее. Код, который я использую, выглядит следующим образом: 

With ActiveSheet.PivotTables("Summary_2").PivotFields("Month")
        .Orientation = xlPageField
        .Position = 3
ActiveSheet.PivotTables("Summary_2").PivotFields("Month").CurrentPage = "(All)"
ActiveSheet.PivotTables("Summary_2").PivotFields("Month"). _
EnableMultiplePageItems = True
For Each pit In ActiveSheet.PivotTables("Summary_2").PivotFields("Month")
.PivotItems("" = "& v").Visible = False
Next
End With

Я не могу получить никакого результата от этого. Кто-нибудь может мне помочь?

1 Ответ

0 голосов
/ 10 марта 2020

Если вам нужны только данные текущего месяца в сводной таблице, используйте номер месяца вместо (Все), как показано в коде ниже: 

ActiveSheet.PivotTables("Summary_2").PivotFields("Month").CurrentPage = Format(Date, "M")

Если вам не нужны данные текущего месяца в сводной таблице , затем используйте следующий код: 

ActiveSheet.PivotTables("Summary_2").PivotFields("Month").pivotitems(Format(Date, "M")).visible = False

Ссылка: https://www.thespreadsheetguru.com/blog/2014/9/27/vba-guide-excel-pivot-tables

...