Πώς μπορείτε να έχετε έναν slicer drive δύο συγκεντρωτικούς πίνακες εάν προέρχονταν από διαφορετικά σύνολα δεδομένων;
Ηχογράφησα αυτό το βίντεο που δείχνει πώς να προσθέσω μερικές γραμμές κώδικα VBA στο βιβλίο εργασίας σας για να το κάνετε αυτό:
Για δημοφιλείς ερωτήσεις, δημοσιεύω τον κωδικό εδώ.
Συχνές ερωτήσεις # 1
Μπορείτε να πληκτρολογήσετε τον κωδικό για μένα επειδή δεν μπορώ να πληκτρολογήσω;
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
