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

Πώς να προσθέσετε πολλά πεδία σε συγκεντρωτικό πίνακα;

Όταν δημιουργούμε έναν συγκεντρωτικό πίνακα, πρέπει να σύρουμε τα πεδία στις Ετικέτες Σειράς ή Τιμές χειροκίνητα ένα προς ένα. Εάν έχουμε μια μεγάλη λίστα πεδίων, μπορούμε να προσθέσουμε γρήγορα μερικές ετικέτες γραμμών, αλλά τα υπόλοιπα πεδία θα πρέπει να προστεθούν στην περιοχή Value. Υπάρχουν γρήγορες μέθοδοι για να προσθέσουμε όλα τα άλλα πεδία στην περιοχή Value με ένα κλικ στον συγκεντρωτικό πίνακα;

Προσθέστε πολλά πεδία στην περιοχή τιμών του συγκεντρωτικού πίνακα με τον κωδικό VBA

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
  • Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
  • Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
  • Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
  • Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2021 και το 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.

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

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

1. Αφού δημιουργήσετε τον συγκεντρωτικό πίνακα, πρώτα, πρέπει να προσθέσετε τα πεδία ετικέτας σειράς ανάλογα με τις ανάγκες σας και να αφήσετε τα πεδία τιμών στο Επιλέξτε πεδία για προσθήκη στην αναφορά λίστα, δείτε το στιγμιότυπο οθόνης: </ p>

doc-add-multiple-πεδία-1

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Προσθέστε πολλά πεδία στην περιοχή τιμών των συγκεντρωτικών πινάκων στο ενεργό φύλλο εργασίας

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, όλα τα υπόλοιπα πεδία έχουν προστεθεί στην περιοχή Τιμές ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

doc-add-multiple-πεδία-1

Note: Αυτός ο κωδικός VBA εφαρμόζεται σε όλους τους συγκεντρωτικούς πίνακες του ενεργού φύλλου εργασίας.


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

Πώς να απαριθμήσετε όλους τους συγκεντρωτικούς πίνακες από ένα βιβλίο εργασίας;

Πώς να ελέγξετε εάν υπάρχει συγκεντρωτικός πίνακας σε ένα βιβλίο εργασίας;


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου

 

Σχόλια (23)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πραγματικά ωραία και χρήσιμη μακροεντολή. Ωστόσο, είχα ήδη προσθέσει τα μισά πεδία μου στις Τιμές και όταν έτρεξα αυτήν τη μακροεντολή, πρόσθεσε ξανά όλα τα ίδια πεδία. Καμιά ιδέα γιατί;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ουάου. Λειτουργεί πολύ πολύ καλά. Πολλά ευχαριστώ! Παρ 'όλα αυτά, είμαι κάπως έκπληκτος που η Microsoft δεν είχε μια ενσωματωμένη δυνατότητα για μια αρκετά απλή εργασία...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι φανταστικό. Μπορεί η μακροεντολή να τροποποιηθεί για να προσθέσει όλα στις Ετικέτες Γραμμών αντί για Τιμές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να το εκτελέσω μόνο για εξαιρούμενα πεδία, ώστε όταν το εκτελώ να μην έχω διπλά πεδία; δηλ. "Πεδίο" και "Πεδίο_2"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Υπάρχει τρόπος να εκτελεστεί αυτό μόνο για εξαιρούμενα πεδία, ώστε όταν το εκτελώ να μην καταλήξω με διπλά πεδία; δηλ. "Πεδίο" και "Πεδίο_2"Από τον Shaun[/quote] Ναι- δύο παραδείγματα Χρησιμοποιήστε αυτό για να προσθέσετε όλα τα υπόλοιπα μη επιλεγμένα στοιχεία στις ROWS Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iColE = 1 iCol .PivotFields.Count για iCol = 1 Στο iColEnd με .PivotFields(iCol) Εάν .Orientation = 0 Στη συνέχεια .Orientation = xlRowField End If End With Next iCol End With End Sub Χρησιμοποιήστε το για να προσθέσετε ένα υπόλοιπο μη επιλεγμένο στοιχείο στο VALUES Subal AddAllFields Dim pt ως Συγκεντρωτικός Πίνακας Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count για iCol = 1 Προς iColEnd Με .Pivotolentiration =OC. .Orientation = xlDataField End If End With Next iCol Τέλος με End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να προσθέσω μόνο μερικά πεδία ekstra, όχι τα υπόλοιπα ή όλα, αλλά μόνο ένα ζευγάρι από αυτά που δεν έχουν ήδη ελεγχθεί; :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ναι, στο echo markus, υπάρχει τρόπος να επεξεργαστείτε τον κώδικα για να προσθέσετε μόνο μη επιλεγμένα πεδία που έχουν σίγουρα ετικέτες πεδίων (όπως με μια συνάρτηση εάν περιέχει); Για παράδειγμα, έχω μια ερώτηση που είναι στην πραγματικότητα 50 τιμές ναι/όχι ανά θέμα και θα ήθελα να τις μετακινήσω όλες στο πεδίο τιμών. Όλα ξεκινούν με την ίδια ετικέτα ερώτησης q9_[συγκεκριμένο θέμα ερώτησης].
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει ούτως ή άλλως εάν θέλουμε να προσθέσουμε κάποιες επιλεγμένες στήλες από το βασικό αρχείο αντί για όλες.;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η αξία του ως μέτρηση. πώς μπορώ να μετατρέψω όλες τις μετρήσεις ως άθροισμα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να κάνετε κλικ στο πεδίο σας (στην περιοχή όπου σύρετε τα πεδία σας : ετικέτες στηλών, ετικέτες σειρών κ.λπ.) και μετά κάντε κλικ στο "Ρύθμιση πεδίου τιμής" και θα εμφανιστεί μια αναπτυσσόμενη λίστα από όπου μπορείτε να επιλέξετε "Άθροισμα" !
A     El
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κωδικός VBA: Αλλαγή πολλαπλών ρυθμίσεων πεδίου στον συγκεντρωτικό πίνακα
https://www.extendoffice.com/documents/excel/2354-excel-pivot-table-change-multiple-field-settings.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι υπέροχο! Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το "xlDataField" δεν λειτουργεί με το PowerPivot; Έχω τον παρακάτω κώδικα, ο οποίος χρησιμοποιείται για την προσθήκη όλων των μέτρων στον συγκεντρωτικό πίνακα. Λειτουργεί με "xlColumnField" και "xlRowField". Καμιά ιδέα για το πώς να λειτουργήσει αυτό;

Sub AddAllFieldsValues()
Dim pt Ως Συγκεντρωτικός Πίνακας
Dim iCol As Long
Dim iColEnd As Long

Ρύθμιση pt = ActiveSheet.PivotTables (1)

Με pt

iCol = 1
iColEnd = .CubeFields.Count

Για iCol = 1 Προς iColEnd
Με .CubeFields(iCol)
Αν .Προσανατολισμός = xlΚρυφό Τότε
.Orientation = xlDataField
End If
Τέλος με
Επόμενο iCol

Τέλος με

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια.

Μου δίνει ένα σφάλμα μεταγλώττισης όταν κάνω κλικ στο Εκτέλεση

Παρακαλώ βοηθήστε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δουλεύει άψογα. Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, με βοήθησε πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΣΕ ΕΥΧΑΡΙΣΤΩ ΠΑΡΑ ΠΟΛΥ!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σημείωση: Το μήνυμα σφάλματος του Τσε:




Sub AddAllFieldsValues()




«Ενημέρωση 20141112



Ήλιο
pt Ως Συγκεντρωτικός Πίνακας





Dim I As
Μακριά





Για κάθε
pt Στο ActiveSheet.PivotTables





Για
I = 1 Σε pt.PivotFields.Count





Τέλος με







Επόμενο



Επόμενο




Sub End










Σημείωση: Ο Τσε προσπαθεί να προσθέσει τα εξής
πεδία/στιγμιότυπο- "Άθροισμα ΑΛΛΩΝ Διαφοράς, Άθροισμα 4096
Διαφορά" πάνω από 80 πεδία
προστιθέμενη







ΑΛΛΑ Διαφορά



4096 Διαφορά



4016 Διαφορά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αν «Αξίες είναι
"0" ή "Null" πώς να καταργήσετε τις τιμές γραμμής από την εμφάνιση

(π.χ. Άθροισμα 2743 διαφοράς)





Συγκεντρωτική "Σειρά"
Συγκεντρωτικός άξονας "Αξίες"





Ετικέτες σειράς





NP9 - Σύνολο μη δαπανών
Πιστώσεις





Άθροισμα ΑΛΛΩΝ Διαφοράς 1,045,355,165.31




Άθροισμα 3200 Διαφορά
0.00




Άθροισμα 0108 Διαφορά
12,873,630.29



Άθροισμα 4586 Διαφορά
(33,024,706.93)



Άθροισμα 0148 Διαφορά
(72,046,783.14)



Άθροισμα 0129 Διαφορά
(5,583,891.98)



Άθροισμα 4598 Διαφορά
(929,574.56)



Άθροισμα 2743 Διαφορά



Άθροισμα 4041 Διαφορά
0.00



Άθροισμα 2799 Διαφορά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να επεξεργαστείτε τη μακροεντολή που θα στέλνει τα πεδία στην ετικέτα σειρών αντί για τις τιμές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Задача же не всегдат в получении списка, хочется допустим βελτιώσть названия таблиц или источников данных. μπορείτε να συνειδητοποιήσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, υπάρχει τρόπος να προσθέσω μόνο τις μη επιλεγμένες στήλες; ευχαριστώ. 
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εκτελώ αυτόν τον κωδικό. Πόσος χρόνος χρειάζεται για να ολοκληρωθεί; Τώρα είναι 45 λεπτά και συνεχίζει να λειτουργεί. Σε παρακαλώ βοήθησέ με. Παρεμπιπτόντως, οι συνολικές στήλες πεδίων μου είναι 3600.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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