Μετάβαση στο κύριο περιεχόμενο

Πώς να απαριθμήσετε όλα τα ονόματα πινάκων στο Excel;

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

Αναφέρετε όλα τα ονόματα των πινάκων στο πλαίσιο ονόματος
Λίστα όλων των ονομάτων πινάκων στη γραμμή τύπων
Αναφέρετε όλα τα ονόματα των πινάκων με τον κωδικό VBA


Αναφέρετε όλα τα ονόματα των πινάκων στο πλαίσιο ονόματος

Όλα τα ονόματα των πινάκων παρατίθενται στο πλαίσιο ονόματος από προεπιλογή.

Κάντε κλικ στο βέλος της αναπτυσσόμενης λίστας στην επάνω αριστερή γωνία όνομα Box για να εμφανίσετε όλα τα ονόματα των πινάκων. Δείτε το στιγμιότυπο οθόνης:

Note: Όλα τα ονόματα εύρους αναφέρονται επίσης στο πλαίσιο ονόματος με όλα τα ονόματα πινάκων.


Λίστα όλων των ονομάτων πινάκων στη γραμμή τύπων

Εάν όλοι οι πίνακες ονομάστηκαν με το αρχικό όνομα πίνακα, όπως ο Πίνακας 1, ο Πίνακας2…, μπορείτε να προσπαθήσετε να αναφέρετε όλα αυτά τα ονόματα πινάκων στη Γραμμή τύπων.

1. Εισαγάγετε τον τύπο =ROW(T στη γραμμή τύπων, τότε όλα τα ονόματα των πινάκων παρατίθενται στο πλαίσιο λίστας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Note: Τα ονόματα των πινάκων που έχουν τροποποιηθεί δεν θα εμφανίζονται με αυτήν τη μέθοδο.


Αναφέρετε όλα τα ονόματα των πινάκων με τον κωδικό VBA

Εάν υπάρχει προεπιλεγμένο όνομα πίνακα και τροποποιημένο όνομα πίνακα στο βιβλίο εργασίας σας. Μπορείτε να τα καταγράψετε ταυτόχρονα με τον ακόλουθο κωδικό VBA.

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

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Λίστα όλων των ονομάτων πινάκων στο Excel.

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. Πάτα το F5 ή κάντε κλικ στο κουμπί Εκτέλεση για να εκτελέσετε τον κωδικό.

Στη συνέχεια, δημιουργείται ένα νέο φύλλο εργασίας που ονομάζεται Όνομα πίνακα με όλα τα ονόματα των πινάκων που αναφέρονται όπως φαίνεται παρακάτω στο στιγμιότυπο οθόνης:


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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks so much for sharing this information. Just what I was looking for. In fact, I want to abuse of your favor. How can I get the headings of the tables? Something like this Table1[Heading1] Thanks
This comment was minimized by the moderator on the site
Thanks a lot for VBA to list all tables in a workbook.
This comment was minimized by the moderator on the site
Thank you for this very useful post.
I have been wondering why is my Custom view greyed out, and I figured out it was due to an inserted table ! (not obvious)
This comment was minimized by the moderator on the site
Using the ListTables VB, is there a way to also include the tableNumber in the corresponding column ?
The reason I ask is because there have been some errors reported by Excel referring to the table numbers but I don't have visibility of the numbers anymore since I change the table names to something more descriptive but as Excel still uses the original table numbers in its error reporting, it's impossible for me to identify which of the many tables it had an issue with.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations