Создание макроса с использованием сводных элементов в сводных таблицах - PullRequest
Новая
       14

Создание макроса с использованием сводных элементов в сводных таблицах

0 голосов
/ 22 декабря 2019

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

Есть ли процесс, который будет циклически проходить через PivotFields ("Team") и устанавливать PivotItems.Visible = True только для элементов, перечисленных нижекоторые находятся в данных текущей сводной таблицы? Прямо сейчас макрос останавливается, если элемент отсутствует в исходных данных. 

ActiveWorkbook.RefreshAll
    ActiveSheet.PivotTables("Occupancy").PivotFields("Team").CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Occupancy").PivotFields("Team")
        .PivotItems("ND SUP - Gaurav malhotra").Visible = True
        .PivotItems("ND SUP - Harpreet khera").Visible = True
        .PivotItems("ND SUP - Jagat Bhansali").Visible = True
        .PivotItems("ND SUP - Jaspal Deol").Visible = True
        .PivotItems("ND SUP - Meghna Das").Visible = True
        .PivotItems("ND SUP - Mukul Manav").Visible = True
        .PivotItems("ND SUP - Nimisha Gupta").Visible = True
        .PivotItems("ND SUP - Pankaj Sariyal").Visible = True
        .PivotItems("ND SUP - Puneet Kumar").Visible = True
        .PivotItems("ND SUP - Raghwendra K").Visible = True
        .PivotItems("ND SUP - Ratan Singh").Visible = True
        .PivotItems("ND SUP - Sumit Sehgal").Visible = True
        .PivotItems("ND SUP - Tonmoy Gorai").Visible = True
        .PivotItems("ND SUP - Vineet Rawat").Visible = True
        .PivotItems("ND SUP - Vineet Singh ").Visible = True
        .PivotItems("Nuv SUP - Arvin Matundan").Visible = True
        .PivotItems("Nuv SUP - Charmane Gonzaga ").Visible = True
        .PivotItems("Nuv SUP - Christian Nacionales").Visible = True
        .PivotItems("Nuv SUP - Cristy Anne Crisostomo").Visible = True
        .PivotItems("Nuv SUP - Dandy Galfo").Visible = True
        .PivotItems("Nuv SUP - Donde Basilio ").Visible = True
        .PivotItems("Nuv SUP - Donna Bustamante").Visible = True
        .PivotItems("Nuv SUP - Elbert Batiles ").Visible = True
        .PivotItems("Nuv SUP - Grace Torres").Visible = True
        .PivotItems("Nuv SUP - Henry Pascual").Visible = True
        .PivotItems("Nuv SUP - James Prior").Visible = True
        .PivotItems("Nuv SUP - Jeffrey Ebalobo").Visible = True
        .PivotItems("Nuv SUP - Jeffrey Gruta").Visible = True
        .PivotItems("Nuv SUP - Jelle DelRosario").Visible = True
        .PivotItems("Nuv SUP - John De Torres").Visible = True
        .PivotItems("Nuv SUP - John Sagasayan").Visible = True
        .PivotItems("Nuv SUP - Jover Evale ").Visible = True
        .PivotItems("Nuv SUP - Joyce Ravida").Visible = True
        .PivotItems("Nuv SUP - Kim Matibag").Visible = True
        .PivotItems("Nuv Sup - Ma. Kristina Villanueva").Visible = True
        .PivotItems("Nuv SUP - Ma.Christina Raza").Visible = True
        .PivotItems("Nuv SUP - Mannelyn Mangubat").Visible = True
        .PivotItems("Nuv SUP - MarkRyan Deguzman").Visible = True
        .PivotItems("Nuv SUP - Michelle Evangelista ").Visible = True
        .PivotItems("Nuv SUP - Renan Alvarez").Visible = True
        .PivotItems("Nuv SUP - Sheila Cabrera").Visible = True
        .PivotItems("Nuv SUP - Trizha Catingig").Visible = True
    End With
End Sub
...