Note: The other languages of the website are Google-translated. Back to English

Πώς να κρατήσετε το slicer του Pivot Table να κινείται με την κύλιση του φύλλου εργασίας στο Excel;

Ενώ εργάζεστε με τον Συγκεντρωτικό Πίνακα, μπορείτε να εισάγετε slicers για να φιλτράρετε δεδομένα οπτικά του πίνακα. Αυτό το άρθρο αναφέρεται για τη διατήρηση του slicer του Pivot Table πάντα ορατού κατά την κύλιση στο φύλλο εργασίας.

Κρατήστε το slicer του Pivot Table να κινείται με κύλιση του φύλλου εργασίας με τον κώδικα VBA


Κρατήστε το slicer του Pivot Table να κινείται με κύλιση του φύλλου εργασίας με τον κώδικα VBA

Το ακόλουθο σενάριο VBA μπορεί να σας βοηθήσει να διατηρήσετε το slicer του Pivot Table να κινείται με το φύλλο εργασίας. Κάντε τα εξής.

1. Πάτα το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στο αριστερό παράθυρο του έργου και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας (Κωδικός) παράθυρο. Δείτε το στιγμιότυπο οθόνης:

Κωδικός VBA: Κρατήστε το slicer του Pivot Table να κινείται με κύλιση στο φύλλο εργασίας

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

Notes:

1). Στον κώδικα, η στήλη1 και η στήλη2 είναι τα ονόματα των slicers.

2). Μπορείτε να καθορίσετε τη θέση των slicers κατά την κύλιση του φύλλου εργασίας στον κώδικα.

3). Και μπορείτε να προσθέσετε περισσότερα slicers στον κώδικα ή να αφαιρέσετε slicers από αυτόν όπως χρειάζεστε.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο διαλόγου παραθύρου.

Από τώρα και στο εξής, οι καθορισμένοι slicers θα μετακινηθούν με το ενεργό κελί κατά την κύλιση στο φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (10)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Σας ευχαριστούμε για αυτό το VBA.

Δεν έχω απολύτως καμία ιδέα για το VBA και ως εκ τούτου η ερώτησή μου.

Χρησιμοποίησα αυτό το VBA και είχα μια ερώτηση.
Πώς μπορώ να αλλάξω αυτό το VBA ώστε να λειτουργεί μόνο για ένα φύλλο.

Αυτήν τη στιγμή, έχω 8 φύλλα και κάθε φορά που πηγαίνω σε άλλο φύλλο, αποτυγχάνει και μου ζητά να τελειώσω ή να διορθώσω σφάλματα.
Έκανα ακριβώς όπως φαίνεται παραπάνω.


Αυτό είναι το VBA μου εδώ..
Ιδιωτικό δευτερεύον βιβλίο εργασίας_SheetSelectionChange(ByVal Sh ως αντικείμενο, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
«καθορίστε έναν τεμαχιστή
Application.ScreenUpdating = False
Ορισμός ShF = ActiveSheet.Shapes ("Πελάτης 1")
Ορισμός ShM = ActiveSheet.Shapes ("Υπενθύμιση 1")
«αλλάξτε τη θέση του τεμαχιστή
Με Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Left + 475
ShM.Top = .Top + 180
ShM.Left = .Left + 475
Τέλος με
Application.ScreenUpdating = True
Sub End


Παρακαλώ βοηθήστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Σας ευχαριστούμε για αυτό το VBA.

Δεν έχω απολύτως καμία ιδέα για το VBA και ως εκ τούτου η ερώτησή μου.

Χρησιμοποίησα αυτό το VBA και είχα μια ερώτηση.
Πώς μπορώ να αλλάξω αυτό το VBA ώστε να λειτουργεί μόνο για ένα φύλλο.

Αυτήν τη στιγμή, έχω 8 φύλλα και κάθε φορά που πηγαίνω σε άλλο φύλλο, αποτυγχάνει και μου ζητά να τελειώσω ή να διορθώσω σφάλματα.
Έκανα ακριβώς όπως φαίνεται παραπάνω.


Αυτό είναι το VBA μου εδώ..
Ιδιωτικό δευτερεύον βιβλίο εργασίας_SheetSelectionChange(ByVal Sh ως αντικείμενο, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
«καθορίστε έναν τεμαχιστή
Application.ScreenUpdating = False
Ορισμός ShF = ActiveSheet.Shapes ("Πελάτης 1")
Ορισμός ShM = ActiveSheet.Shapes ("Υπενθύμιση 1")
«αλλάξτε τη θέση του τεμαχιστή
Με Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top + 2
ShF.Left = .Left + 475
ShM.Top = .Top + 180
ShM.Left = .Left + 475
Τέλος με
Application.ScreenUpdating = True
Sub End


Παρακαλώ βοηθήστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Γιάννη,
Μεταβείτε στο φύλλο εργασίας για το οποίο θέλετε να λειτουργεί μόνο ο κώδικας VBA και, στη συνέχεια, κάντε δεξί κλικ στην καρτέλα Φύλλο και επιλέξτε Προβολή κώδικα από το μενού περιβάλλοντος.
Στη συνέχεια, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο του ανοίγματος Κώδικας. Δείτε παρακάτω στιγμιότυπο οθόνης:

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
Dim ShF As Shape
Dim ShM As Shape
«καθορίστε έναν τεμαχιστή
Application.ScreenUpdating = False
Σετ ShF = ActiveSheet.Shapes ("Fruit")
Set ShM = ActiveSheet.Shapes ("Πώληση")
«αλλάξτε τη θέση του τεμαχιστή
Με Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
Τέλος με
Application.ScreenUpdating = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Crystal,

Ευχαριστώ πολύ για τον κωδικό.
Έκανα ακριβώς όπως είπες και λειτουργεί σαν γούρι.

Πραγματικά το εκτιμώ.
Στην υγειά μας :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, έχω ενημερώσει τον κωδικό μου όπως υποδείξατε. Ο αναλυτής δεν μετακινείται πλέον μαζί με το παράθυρο, ωστόσο αν κάνω κλικ σε ένα νέο κελί, τότε ο αναλυτής θα μετακινηθεί. Είναι αυτή η σωστή συμπεριφορά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι δείχνει η πρώτη σειρά και πώς την προσαρμόζουμε ώστε να ταιριάζει στον τεμαχιστή μας;
Είμαι πολύ μπερδεμένος με αυτό βασικά σε κάθε γραμμή.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητή Καίτη
Δεν ξέρω αν καταλαβαίνω απόλυτα την ερώτησή σου.
Όπως ανέφερα στις παραπάνω Σημειώσεις, θα πρέπει να αντικαταστήσετε τη Στήλη1 και τη Στήλη2 με τα ονόματα των συσκευών κοπής στον κώδικα, προκειμένου να συνεχίσετε την κύλιση του αναλυτή σας με το φύλλο εργασίας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω 4 slicers που έχουν ομαδοποιηθεί επιλέγοντας και τα 4 και κάνοντας δεξί κλικ για να χρησιμοποιήσετε την εντολή group.

Είναι δυνατή η εκχώρηση αυτού του VBA από μια ομάδα; Πώς χαρακτηρίζετε την ομάδα και γράφετε το VBA για να την αναγνωρίζετε ως μία;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μιχάλη,
Συγγνώμη δεν μπορώ να βοηθήσω με αυτό. Ευχαριστώ για το σχόλιο σου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εντάξει, οπότε ο τίτλος λέει "How To Keep Slicer Of Pivot Table Moving With Worksheet κύλιση Στο Excel?", αλλά αυτός ο κώδικας VBA το κάνει μόνο για το τρέχον επιλεγμένο κελί, πώς μπορούμε να το κάνουμε για το κύλιση του βιβλίου εργασίας και όχι μόνο του επιλεγμένου κελιού;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL