Αυτόματη δημιουργία φύλλων εργασίας χρησιμοποιώντας μακροεντολή

Anonim

Έτσι δημιουργείτε βιβλία εργασίας με τον τρόπο που θέλετε

Θα θέλατε να διασφαλίσετε ότι θα δημιουργήσετε μια ολόκληρη σειρά κενών φύλλων εργασίας στον πίνακά σας και θα τα μετονομάσετε όλα σύμφωνα με τις επιθυμίες σας;

Χρειάζεται πολύς χρόνος αν το κάνετε χειροκίνητα. Η χειροκίνητη μετονομασία των πινάκων είναι ιδιαίτερα χρονοβόρα.

Είναι πιο εύκολο με μια μακροεντολή. Εισαγάγετε τα ονόματα των πινάκων σε μια περιοχή ενός πίνακα. Η παρακάτω εικόνα δείχνει πώς μπορεί να μοιάζει:

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

Sub FuegeBlaetterMithNamenEin ()
Dim area As String
Dim Cell As Range
Dim πίνακας ως φύλλο εργασίας
Περιοχή = "a1: a24"
Με το ActiveWorkbook
Για κάθε κελί στο ActiveSheet.Range .Cells
Ορισμός πίνακα = .Sheets.Add (Μετά: =. Sheets (Sheets.Count))
Πίνακας. Όνομα = Κελί. Κείμενο
Επόμενο κελί
Τέλος με
Τέλος υπο

Βάλτε με τη μεταβλητή περιοχή καθορίζει από ποια περιοχή του πίνακά σας έχουν ληφθεί τα ονόματα για τα φύλλα εργασίας.

Το παρακάτω σχήμα δείχνει ένα βιβλίο εργασίας στο οποίο δημιουργήθηκαν τα ονόματα των πινάκων για τους μήνες 2010 και 2011:

Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html