Bagaimana anda boleh menggunakan slicer drive dua jadual pangsi jika mereka berasal dari set data yang berbeza?
Saya merakam video ini menunjukkan cara menambahkan beberapa baris kod VBA ke buku kerja anda untuk melakukan ini:
Untuk soalan popular, saya menghantar kod di sini.
Soalan Lazim # 1
Bolehkah anda menaip kod untuk saya kerana saya tidak dapat menaip?
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
