Làm thế nào bạn có thể có một máy cắt xử lý hai bảng tổng hợp nếu chúng đến từ các tập dữ liệu khác nhau?
Tôi đã quay video này hướng dẫn cách thêm một vài dòng mã VBA vào sổ làm việc của bạn để thực hiện việc này:
Đối với các câu hỏi phổ biến, tôi đăng mã ở đây.
Câu hỏi thường gặp # 1
Bạn có thể gõ mã cho tôi vì tôi không thể gõ được không?
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) Dim sc1 As SlicerCache Dim sc2 As SlicerCache Dim SI1 As SlicerItem Dim sc3 As SlicerCache Dim sc4 As SlicerCache Dim SI3 As SlicerItem ' These names come from Slicer Settings dialog box Set sc1 = ThisWorkbook.SlicerCaches("Slicer_Name") Set sc2 = ThisWorkbook.SlicerCaches("Slicer_Name1") Set sc3 = ThisWorkbook.SlicerCaches("Slicer_Region2") Set sc4 = ThisWorkbook.SlicerCaches("Slicer_Region1") Application.ScreenUpdating = False Application.EnableEvents = False sc2.ClearManualFilter sc4.ClearManualFilter For Each SI1 In sc1.SlicerItems sc2.SlicerItems(SI1.Name).Selected = SI1.Selected Next SI1 For Each SI3 In sc3.SlicerItems sc4.SlicerItems(SI3.Name).Selected = SI3.Selected Next SI3 Application.EnableEvents = True Application.ScreenUpdating = True End Sub
