Thay đổi chọn SlicerItems để kích hoạt Macro

[ladykiller81]

Mình có 1 sự kiện muốn tạo như sau: Ở sheet hiện tại nếu có sự thay đổi lựa chon SlicerItems nào trong Slicer thì sẽ thực thi một Macro nào đó (đương nhiên macrco mình đã có sẵn). code viết như thế nào nhờ các ace chỉ giúp. Chân thành cảm ơn.

 

[befaint]

Cho module:

Sub Slicer()
Dim i As Integer
With ActiveWorkbook.SlicerCaches("Slicer_1")
    For i = 1 To .SlicerItems.Count
        If .SlicerItems(i).Selected = True Then
            MsgBox "Your code!"
            'Your code
            Exit For
        End If
    Next i
End With
End Sub

Cho ThisWorkbook:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Slicer
End Sub

 

[ladykiller81]

Cho module:

Sub Slicer()
Dim i As Integer
With ActiveWorkbook.SlicerCaches("Slicer_1")
    For i = 1 To .SlicerItems.Count
        If .SlicerItems(i).Selected = True Then
            MsgBox "Your code!"
            'Your code
            Exit For
        End If
    Next i
End With
End Sub

Cho ThisWorkbook:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Slicer
End Sub

Xin cảm ơn rất nhiều! mình đã làm đc rùi!