Πώς να δημιουργήσετε ένα βιβλίο εργασίας και να μετονομάσετε πίνακες
Θέλετε να δημιουργήσετε βιβλία εργασίας που περιέχουν δώδεκα φύλλα εργασίας, ώστε να μπορείτε να συλλέγετε δεδομένα για κάθε μήνα του έτους; Αφήστε μια μακροεντολή να το κάνει αυτό αυτόματα για εσάς.
Η ακόλουθη μακροεντολή δημιουργεί ένα νέο, κενό βιβλίο εργασίας με δώδεκα φύλλα εργασίας και ονομάζει τα μεμονωμένα φύλλα στη συντομογραφία των ονομάτων των μηνών, δηλαδή "Jan", "Feb" κ.λπ. Εδώ είναι η κατάλληλη μακροεντολή:
Sub CreateMonth πίνακες ()
Αριθμός καρτέλας Dim ως ακέραιος
Dim New As Workbook
Αμυδρά ονόματα ως παραλλαγή
Names = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Ορισμός νέου = Τετράδια εργασίας. Προσθήκη
Application.SheetsInNewWorkbook = TabNumber
Για TabNumber = 1 έως 12
Νέο. Φύλλα εργασίας (TabNumber). Όνομα = Ονόματα (TabNumber - 1)
Επόμενος αριθμός καρτέλας
Τέλος υπο
Αφού ξεκινήσετε, θα λάβετε ένα βιβλίο εργασίας με δώδεκα φύλλα εργασίας. Το παρακάτω σχήμα δείχνει πώς φαίνεται το αποτέλεσμα:
Εάν θέλετε να χρησιμοποιήσετε άλλα ονόματα αντί για τα ονόματα των μηνών, προσαρμόστε τα ονόματα στην εκχώρηση τιμής στη μεταβλητή "Ονόματα".
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
