Εισαγάγετε τύπους σε μια περιοχή κελιών χρησιμοποιώντας μακροεντολές VBA

Anonim

Δείτε πώς μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να συμπληρώσετε μια σειρά κελιών με έναν τύπο της επιλογής σας

Αντιγράφοντας ή χρησιμοποιώντας τη λειτουργία αυτόματης συμπλήρωσης, το Excel σας προσφέρει πολλές επιλογές για τη μεταφορά τύπων από ένα κελί σε μια περιοχή κελιών. Αλλά πώς το κάνετε αυτό μέσω μακροεντολής;

Αυτό είναι ιδιαίτερα χρήσιμο εάν θέλετε να δημιουργήσετε πίνακες ή λίστες αυτόματα χρησιμοποιώντας μια μακροεντολή. Εδώ χρειάζεστε έναν τρόπο για να γεμίσετε τα κελιά με τύπους.

Το παρακάτω σχήμα δείχνει μια λίστα με αριθμούς επιχειρήσεων. Θέλετε να προσθέσετε συναρτήσεις αθροίσματος στη στήλη Δ αυτής της λίστας με τις οποίες προστίθενται οι τιμές από τις στήλες Α, Β και Γ.

Χρησιμοποιήστε μια μακροεντολή VBA για να κάνετε αυτήν τη δουλειά. Ανοίξτε πρώτα το βιβλίο εργασίας στο οποίο θέλετε να συμπεριλάβετε τη μακροεντολή. Στη συνέχεια, πατήστε το συνδυασμό πλήκτρων ALT F11 για να ξεκινήσετε τον επεξεργαστή VBA. Στη συνέχεια, επιλέξτε τη λειτουργία INSERT - MODULE. Στη συνέχεια, εισαγάγετε την ακόλουθη μακροεντολή:

Sub SummenPerMakro ()
Dim Cell As Range
Dim Nr Όσο καιρό
Για κάθε κελί στο ActiveSheet.Range ("d2: d10")
Όχι = Κελί. Σειρά
Cell.FormulaLocal = "= SUM (A" & Nr & ": C" & Nr & ")"
Επόμενο κελί
Τέλος υπο

Το Marko επεξεργάζεται το εύρος κελιών D2: D10 στο ενεργό φύλλο εργασίας. Τα κύτταρα περιστρέφονται κύτταρο από κύτταρο. Η μακροεντολή χρησιμοποιεί την ιδιότητα FORMULALOCAL για να εισαγάγει έναν τύπο αθροίσματος σε καθένα από αυτά τα κελιά.

Σε αυτόν τον τύπο, οι περιοχές που προστίθενται προσαρμόζονται σε κάθε γραμμή. Στη γραμμή 2 είναι A2: C2, στη γραμμή 3 είναι A3: C3 κ.λπ.

Ο τύπος το κάνει αυτό χρησιμοποιώντας τη μεταβλητή NR για να ζητήσει τον τρέχοντα αριθμό γραμμής μέσα στον βρόχο χρησιμοποιώντας την ιδιότητα ROW. Στη συνέχεια, η μακροεντολή συνθέτει σταδιακά τον τύπο αθροίσματος από τα μεμονωμένα στοιχεία κειμένου.

Το παρακάτω σχήμα δείχνει το αποτέλεσμα μετά την εκκίνηση της μακροεντολής. Για να ξεκινήσετε, χρησιμοποιήστε τον συνδυασμό πλήκτρων ALT F8 στο Excel και επιλέξτε τη μακροεντολή SUMMENPERMAKRO.

Υπάρχουν άλλοι τρόποι για να κάνετε τη δουλειά μέσω μακροεντολής επίσης. Μια παραλλαγή είναι να χρησιμοποιήσετε τη μακροεντολή για να εισαγάγετε τον τύπο σε ένα μόνο κελί και στη συνέχεια να το αντιγράψετε έτσι ώστε το Excel να μπορεί να προσαρμόσει τις αναφορές ανεξάρτητα.