Πώς να χρησιμοποιήσετε VBA για να πάρει τα Named Ποικίλλει σε ένα υπολογιστικό φύλλο του Excel

VBA ( Visual Basic) είναι χτισμένο στην έξυπνη παρατήρηση ότι μπορείτε να εξοικονομήσετε χρόνο προγραμματισμού με τη δημιουργία μακροεντολών και την αυτόματη παραγωγή κώδικα από τη διαδικασία σας . Το τεράστιο πλεονέκτημα είναι ότι μπορείτε να αποφύγετε να γράψετε απόκρυφες κώδικα και σύνταξη . Αυτό εξοικονομεί χρόνο . Μπορείτε να χρησιμοποιήσετε VBA για να δημιουργήσετε μια μακροεντολή που θα πάρει το όνομα τους κυμαίνεται από ένα υπολογιστικό φύλλο του Excel και να τις αντιγράψετε σε άλλα φύλλα στο ίδιο βιβλίο . Φυσικά , μπορείτε να δημιουργήσετε άλλες μακροεντολές που θα πάρει το όνομα περιοχών και να χειριστούν τα δεδομένα με άλλους τρόπους . Οδηγίες
Χρησιμοποιώντας VBA να πάρει το όνομά του Ποικίλλει σε Excel

1

Από το μενού Έναρξη , επιλέξτε " Προγράμματα " και στη συνέχεια " Excel ". 2

Δημιουργία κάποιους πίνακες τεστ που θα είναι στις προαναφερθείσες περιοχές . Κατ 'αρχάς , πηγαίνετε στο κελί B2 και εισάγετε τον αριθμό " 10 ". Hit Enter. Αντιγράψτε το κελί B2 με Ctrl - C . Κρατήστε πατημένο το πλήκτρο Shift και πατήστε το κάτω βέλος 8 φορές , στη συνέχεια, πατήστε το δεξί βέλος 4 φορές . Πατήστε το πλήκτρο Ctrl - V για να επικολλήσετε .
Εικόνων 3

Ελέγξτε για να δείτε αν έχετε έναν πίνακα 9x5 γεμάτο δεκάδες .
Η 4

Ονομάστε το φάσμα από την εύρεση του ονόματος πλαίσιο στην πάνω αριστερή γωνία - είναι ένα μικρό , ανάποδα μαύρο τρίγωνο στην αριστερή γωνία δίπλα στο παράθυρο που σήμερα διαβάζει " B2 ". Κάντε κλικ στο όνομα Box και πατήστε Backspace για εκκαθάριση . Εισάγετε τη λέξη " TableOne . " Πιέστε το πλήκτρο " Enter".
5

Πηγαίνετε στο κελί B15 για να δημιουργήσετε ένα δεύτερο επώνυμη περιοχή . Πληκτρολογήστε " 20" και πατήστε το πλήκτρο " Enter". Αντιγράψτε το κελί B2 , χρησιμοποιώντας το Ctrl - C . Κρατήστε πατημένο το πλήκτρο Shift και πατήστε το Κάτω βέλος 8 φορές , στη συνέχεια, πατήστε το δεξί βέλος 4 φορές . Πατήστε το πλήκτρο Ctrl - V για να επικολλήσετε . Ονομάστε το φάσμα από την εύρεση και πάλι το όνομα Box , κάνοντας κλικ σε αυτό , και καθαρίζοντάς το . Εισάγετε τη λέξη " TableTwo . " Πιέστε το πλήκτρο " Enter". Κάντε κλικ στο κελί A1 για να ξεκινήσει και πάλι .
Η 6

Δημιουργήστε μια μακροεντολή VBA για να πάρει τις περιοχές με όνομα από την πρώτη επιλογή Εργαλεία . Στη συνέχεια, επιλέξτε Macro . Στη συνέχεια, επιλέξτε Record New Macro . Πατήστε OK και να αποδεχθεί το όνομα Macro1 ? Η μακροεντολή θα ξεκινήσει η εγγραφή
Η

7 Κάντε κλικ στο κάτω τρίγωνο στο όνομα Box . . Επιλέξτε " TableOne . " Πατήστε το πλήκτρο Ctrl - C για να αντιγράψετε . Κάντε κλικ στην επιλογή Φύλλο 2 ( κάτω) και να πάει στο G1 . Πατήστε το πλήκτρο Ctrl - V για να επικολλήσετε . Πατήστε Φύλλο 1 . Και πάλι , κάντε κλικ στο κάτω τρίγωνο στο όνομα Box και επιλέξτε TableTwo . Πιέστε Ctrl - C . Πατήστε Φύλλο 3 . Πατήστε το πλήκτρο Ctrl - V για να επικολλήσετε . Πατήστε το μπλε τετράγωνο στο Μητρώο πλαίσιο Macro .
8

Για να δείτε το σύντομο πρόγραμμα που έχετε δημιουργήσει , επιλέξτε Εργαλεία , Macro , μακροεντολές , και Macro1 ( ή το όνομα της μακροεντολής σας ) . Κάντε κλικ στην επιλογή " . Επεξεργασία" Ο κωδικός σας θα ήθελα σαν αυτό :

Sub Macro1 ( ) '' Macro1 Macro '....' Application.Goto Παραπομπή : . . . = " TableOne " Selection.Copy Sheets ( " Sheet2 " ) Επιλέξτε Range ( " G1 " ) Επιλέξτε ActiveSheet.Paste Sheets ( " Φύλλο1 " ) Επιλέξτε Application.Goto αναφοράς : = " TableTwo " Εφαρμογή . CutCopyMode = False Φύλλα Selection.Copy ( " Φύλλο3 " ) . Επιλέξτε ActiveSheet.PasteEnd Sub
Η 9

Εκτελέστε τη μακροεντολή , πηγαίνοντας πίσω στο υπολογιστικό φύλλο ( κάντε κλικ για την άλλη πλαίσιο του Excel στο κάτω μέρος της σελίδας ) . Clear Φύλλα 2 και 3 . Πηγαίνετε στο Φύλλο 1 . Κάντε κλικ στο " Εργαλεία ", " Macro ", " Μακροεντολές " και " Run". Macro1 τονίζεται και θα εκτελέσει .
Η
εικόνων