Πώς να χρησιμοποιήσετε το Συγκεντρωτικό Πίνακα Logic

Γνωρίζοντας πώς να χρησιμοποιήσετε τη λογική σε συγκεντρωτικοί πίνακες μπορείτε να εξοικονομήσετε χρόνο σας, αν χρειαστεί να κάνετε αλλαγές σε πολλά συγκεντρωτικοί πίνακες . Συγκεντρωτικοί πίνακες χρησιμοποιούνται συχνά σε εφαρμογές υπολογιστικών φύλλων , όπως το Microsoft Office Excel , για να συνοψίσουμε τα δεδομένα . Μπορείτε να χρησιμοποιήσετε το Visual Basic for Applications ( VBA ) για να εφαρμόσει και να εκτελέσει τη λογική του προγραμματισμού εύκολα . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των εργασιών ρουτίνας στο Excel και άλλες εφαρμογές του Office . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Excel , και πληκτρολογήστε " FieldColumns " σε " A1 ", " Πληροφορίες " στο " Β1, "" στήλη1 "σε " Α2 "," 15 "σε " Β2 "," στήλη2 "σε " Α3 "και" 25 "σε " Β3 ". Κάντε κλικ στο " A1 ", πατήστε το πλήκτρο " Ctrl " και " A", κάντε κλικ στο μενού "Εισαγωγή" , και στη συνέχεια επιλέξτε " συγκεντρωτικού πίνακα . " Πατήστε το πλήκτρο " OK". 2

Επιλέξτε τα πλαίσια δίπλα στο " FieldColumns " και " πληροφορίες ". Επιλέξτε την καρτέλα "Προγραμματιστής " , και στη συνέχεια κάντε κλικ στο " Visual Basic ". " . Ενότητα " Κάντε κλικ στο μενού "Εισαγωγή" και επιλέξτε
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία :

Private Sub executeTableLogic ( )

Πατήστε το πλήκτρο " Enter".
Η 4

Πληκτρολογήστε το παρακάτω για να δημιουργήσετε μεταβλητές σας :

Dim Ptbl Όπως Συγκεντρωτικός Πίνακας

Dim wrkSheet Όπως Φύλλο

5

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω όλων των φύλλων εργασίας και την αναζήτηση για πίνακες περιστροφής στο βιβλίο εργασίας σας :

για κάθε wrkSheet σε ActiveWorkbook.Worksheets

για Κάθε Ptbl σε wrkSheet.PivotTables

Range ( " A3 : B6 " ) . Επιλέξτε
Η

6 Πληκτρολογήστε τον ακόλουθο πίνακα που περιστρέφονται στο format :

με Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End With
Η 7

Πληκτρολογήστε το παρακάτω για να προσθέσετε τη λογική και την ανάδειξη γραμμές εάν συγκεντρωτικού πίνακα τιμές είναι μεγαλύτερες από 10 :

For Each c Στο Ptbl.DataBodyRange.Cells

Αν c.Value > = 10 τότε

Με Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1 )

. Font.Bold = True

. Interior.ColorIndex = 6

End With

End If

Επόμενο

Exit Sub

Επόμενο Ptbl

Επόμενο wrkSheet
8

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία σας .


Η