Сводная таблица - ClearManualFilter - PullRequest
Новая
       26

Сводная таблица - ClearManualFilter

0 голосов
/ 04 сентября 2018

У меня проблема с сводной таблицей. Сначала я установил фильтр (например, как показано ниже) для скрытия значений ниже нуля из моей сводной таблицы_1, а также графика. 

    ActiveSheet.PivotTables("PivotTable_1").PivotFields( _
    "Value_XXX").PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField _
    :=ActiveSheet.PivotTables("PivotTable_1").PivotFields( _
    "Value (2018)"), Value1:=0

Но когда я сбрасываю SlicerCaches / Filter (используя щелчок) (В VBA приведен код ниже), фильтр забывает мои предыдущие настройки (Value_XXX> 0). 

ActiveWorkbook.SlicerCaches("Value_XXX").ClearManualFilter

Я пытался исправить это с помощью кода ниже, но это делает бесконечный цикл 

 Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
If Target.Name = "PivotTable_1" Then
'MsgBox ("Hello")

    ActiveSheet.PivotTables("PivotTable_1").PivotFields("Value_XXX"). _
        PivotFilters.Add2 Type:=xlValueIsGreaterThan, DataField:=ActiveSheet. _
        PivotTables("Kontingenčná tabuľka1").PivotFields("Value (2018)"), _
        Value1:=0
End If
End Sub

У кого-нибудь есть решение? Большое спасибо:)

...