从属切片器未正确过滤

时间:2018-10-02 12:35:43

标签: excel vba

我有多个链接在一起的切片器,并且大多数时候它们是同步的。当我在引导切片器中选择一个元素时,所有从切片器都会选择该元素。当选择主切片器中的一项并且从切片器中不存在该值时,我只是遇到问题,在这种情况下,将选择从切片器中的某些项目,但我不确定为什么。我已经读过“ CrossFilterType”,可能是因为我正在清除切片器,但是一个或多个切片器正在该切片器中交叉过滤数据吗? 切片器不是由同一数据透视表制成的。

对此有解决方法吗?

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    Dim NomFeuillePilote As String
    Dim NomTCDPilote As String

    'Call OptimizeCode_Begin
    On Error Resume Next

    NomFeuillePilote = "xAbsence"
    NomTCDPilote = "xAbsence"

    If Sh.Name = NomFeuillePilote And Target.Name = NomTCDPilote Then
        Application.EnableEvents = False

        ActiveWorkbook.SlicerCaches("Slicer_Poste1").ClearManualFilter

        For Each Iitem In ActiveWorkbook.SlicerCaches("Slicer_Poste").SlicerItems

             ActiveWorkbook.SlicerCaches("Slicer_Poste1").SlicerItems(Iitem.Name).Selected = Iitem.Selected
        Next
        Application.EnableEvents = True
    End If
    'Call OptimizeCode_End
End Sub

0 个答案:

没有答案