Πώς να εισαγάγετε πίνακες για τις επόμενες x ημέρες
Χρειάζεστε υπολογιστικά φύλλα με ονόματα που έχουν ημερομηνία; Αυτό είναι χρήσιμο, για παράδειγμα, εάν καταγράφετε δεδομένα καθημερινά και χρησιμοποιείτε ξεχωριστό φύλλο εργασίας για κάθε καταχώριση.
Εάν θέλετε να εξοικονομήσετε τον κόπο να δημιουργήσετε μόνοι σας τα φύλλα εργασίας και να προσθέσετε τις επιθυμητές τιμές ημερομηνίας, μια μακροεντολή μπορεί να σας βοηθήσει. Η ακόλουθη μακροεντολή ορίζει έναν αριθμό φύλλων εργασίας που ακολουθούν την τρέχουσα ημερομηνία με βάση την τρέχουσα ημερομηνία:
Sub FuegeTabellenEin ()
Dim αριθμός ως ακέραιος
Dim i As Integer
Αριθμός = InboxBox ("Πόσα φύλλα να εισαχθούν;")
Για i = 1 στον αριθμό
Φύλλα εργασίας. Προσθήκη μετά: = Φύλλα εργασίας (Φύλλα εργασίας. Αριθμός)
Φύλλα εργασίας (Φύλλα εργασίας. Αριθμός). Όνομα = Ημερομηνία + i
Επόμενο i
Τέλος υπο
Μετά την εκκίνηση της μακροεντολής, το Excel σας εμφανίζει ένα παράθυρο εισαγωγής. Σε αυτό το παράθυρο μπορείτε να εισαγάγετε τον αριθμό των φύλλων εργασίας που θέλετε να δημιουργήσετε. Η παρακάτω εικόνα δείχνει πώς φαίνεται αυτό το παράθυρο:
Εισαγάγετε εδώ τον αριθμό των φύλλων εργασίας που θέλετε. Ξεκινώντας από την τρέχουσα ημερομηνία, το Excel στη συνέχεια δημιουργεί τον επιθυμητό αριθμό υπολογιστικών φύλλων και τους παρέχει την τρέχουσα ημερομηνία, την ημερομηνία της επόμενης ημέρας κ.ο.κ. Το παρακάτω σχήμα δείχνει πώς μπορεί να είναι το αποτέλεσμα:
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
