установите в поле Сводка "company code" всегда значение True (Visible) независимо от значения / изменения моих сводных элементов - PullRequest
Новая
       5

установите в поле Сводка "company code" всегда значение True (Visible) независимо от значения / изменения моих сводных элементов

0 голосов
/ 22 января 2019

У меня небольшой макрос, работающий с сводной таблицей, и я хотел бы установить для моего поля PivotItems, связанного с балансовой единицей, всегда значение true (видимое) независимо от значения моих сводных элементов.Приведенный ниже код работает только для сводных элементов X, Y, X1, X2, Y2, Y4 и «пробел»… Однако если я хочу использовать этот макрос при изменении моих сводных элементов, этот макрос не будет работать… Я хотел бы увеличить свой макросдля того, чтобы он работал и в случае изменения значения моих сводных элементов, это означает, что все мои значения сводных полей («Код компании») всегда должны быть равны true для параметра Visible, независимо от изменений моих сводных элементов.Если бы кто-то мог мне помочь, это было бы супер.Заранее спасибо.Хави 

Sub Activateallcompanycodefield()
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Company Code").CurrentPage _
        = "(All)"
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Company Code")
.PivotItems("X").Visible = True
.PivotItems("Y").Visible = True
.PivotItems("X1").Visible = True
.PivotItems("X2").Visible = True
.PivotItems("Y2").Visible = True
.PivotItems("Y4").Visible = True
.PivotItems("(blank)").Visible = True
    End With
End Sub

1 Ответ

0 голосов
/ 22 января 2019

Наконец я нашел ответ по этой ссылке: Сводная таблица, как установить все элементы в фильтре на false?

Итак, моя проблема решена!Я только что обновил его до своего кода VBA, как показано ниже: 

With ActiveSheet.PivotTables("PivotTable2").PivotFields("Company Code")
For i = 1 To .PivotItems.Count - 1
    .PivotItems(.PivotItems(i).Name).Visible = True
Next i
End With
...