Οι εφαρμογές του MS Office έχουν σχεδιαστεί πολύέξυπνα και δεν το λέω μόνο επειδή κάνουν τη δουλειά μου απείρως ευκολότερη. Το λέω επειδή είναι αλήθεια. Λίγα μέρες πριν κάναμε μια ανάρτηση για την εισαγωγή βίντεο στο YouTube στο Office 2013 και σημειώσαμε ότι η επιλογή ήταν απόντη στο MS Excel απλώς και μόνο επειδή δεν χρειαζόταν εκεί. Αυτός είναι ο τύπος της νοημοσύνης για την οποία μιλάω. γνωρίζοντας ποιες λειτουργίες χρειάζονται σε έναν συγκεκριμένο τύπο εφαρμογής. Εξασφαλίζει ότι τίποτε άσχετο δεν το κάνει στην τελική προσφορά. Τούτου λεχθέντος, εκπλήσσομαι να διαπιστώσω ότι όπου το Excel σας επιτρέπει να εισάγετε περισσότερες γραμμές σε ένα φύλλο εργασίας, δεν σας επιτρέπει να επιλέξετε τον αριθμό των γραμμών που θέλετε να προσθέσετε. Έχετε άλλες εργασίες γύρω για να ολοκληρώσετε αυτό όπως επιλέγοντας τον αριθμό των γραμμών που θέλετε να προσθέσετε από τις υπάρχουσες και στη συνέχεια χρησιμοποιώντας τη λειτουργία εισαγωγής. Ή θα μπορούσατε να επαναλάβετε το βήμα σειράς εισόδου για όσες σειρές θέλετε. Είναι επαναλαμβανόμενο, αλλά εάν είστε διατεθειμένοι να χάσετε πέντε λεπτά, αυτό το μικρό Macro μπορεί να φροντίσει τη δουλειά για σας.
Δεδομένου ότι αυτό απαιτεί μια μακροεντολή, θα πρέπει νααποθηκεύστε το αρχείο σας ως αρχείο μακροεντολών με δυνατότητα Excel. Για να το κάνετε αυτό, κάντε κλικ στο αναπτυσσόμενο μενού "Αποθήκευση ως τύπος" στο παράθυρο αποθήκευσης ως και επιλέξτε "Excel Marco Enabled Workbook (* xlsm).
Στη συνέχεια, ήρθε η ώρα να γράψετε τη μακροεντολή. Μεταβείτε στην καρτέλα Προβολή και κάντε κλικ στην επιλογή Μακροεντολές για να δημιουργήσετε μια νέα. Ονομάστε ό, τι θέλετε και κάντε κλικ στην επιλογή "Δημιουργία". Το ακόλουθο παράθυρο θα ανοίξει αυτόματα.
Αυτό που έχει σημασία εδώ είναι τα 'Sub' και 'End Sub'γραμμές. Η υπογραμμή θα περιέχει το όνομα της μακροεντολής σας ενώ το End Sub σηματοδοτεί το τέλος των comnads σε αυτή τη μακροεντολή. Δεδομένου ότι μόλις το δημιούργησε, δεν πρέπει να υπάρχει τίποτα μεταξύ αυτών των γραμμών, όπως στο παραπάνω screenshot. Επικολλήστε τα παρακάτω μεταξύ αυτών των δύο γραμμών.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Αυτός ο κώδικας θα εισαγάγει πέντε σειρές από την κορυφή. Αναφέρεται στον κώδικα ως A1: A5. Για να το επεξεργαστείτε ώστε να ταιριάζει στις ανάγκες σας, πρέπει να επεξεργαστείτε αυτό το εύρος. Η πρώτη τιμή χρησιμεύει ως αναφορά για το πού θα εισαχθούν οι σειρές. Εάν την αλλάξετε σε A100, οι σειρές θα εισαχθούν μετά τις πρώτες ενενήντα εννέα σειρές. Αφού ορίσετε το σημείο αναφοράς, πρέπει να εισαγάγετε τον αριθμό των γραμμών.
Οι αριθμοί γραμμών καθορίζονται από την περιοχή κυψελών A1: A5. Αυτή η περιοχή θα εισαγάγει 5 σειρές. Για να βρείτε το σωστό εύρος για τον αριθμό των γραμμών σας, για παράδειγμα, θέλετε να εισαγάγετε 25 σειρές από το A99, θα προσθέσετε 25 στο σημείο αναφοράς έτσι ώστε να είναι A99 και μείον ένα κελί από αυτό. Π.χ. Α100 + 99 - 1 = Α198. Προσθέτετε γραμμές και όχι στήλες, επομένως μόνο ο αριθμός αλλάζει και όχι το γράμμα στήλης. Η μακροεντολή πρέπει να ενημερώνεται κάθε φορά που θα πρέπει να εισάγετε σειρές enmass αλλά είναι μόνο μια μικρή έκδοση και λειτουργεί πολύ καλά έτσι αξίζει τον χρόνο που ξοδεύετε.
Macro μέσω της υποστήριξης της Microsoft
Σχόλια