Αυτόματη συμπλήρωση VBA (Βήμα προς βήμα οδηγός) - Παραδείγματα χρήσης αυτόματης συμπλήρωσης στο Excel VBA

Τι κάνει η Αυτόματη συμπλήρωση στο Excel VBA;

Έχουμε δει την αυτόματη συμπλήρωση στο φύλλο εργασίας όπου τα κελιά γεμίζονται αυτόματα με βάση τις τιμές στα προηγούμενα κελιά πάνω από αυτό, μπορούμε να χρησιμοποιήσουμε το VBA έτσι ώστε το excel να κάνει τη δουλειά για εμάς, για να το κάνουμε αυτό χρησιμοποιούμε τη μέθοδο επιλογής. Αυτόματη συμπλήρωση και παρέχουμε το προορισμός, δηλαδή σε ποια κελιά πρέπει να συμπληρωθούν οι τιμές.

Η καλύτερη χρήση της αυτόματης συμπλήρωσης VBA έρχεται όταν πρέπει να συμπληρώσουμε τον τύπο του πρώτου κελιού στο κελί της στήλης. Συνήθως εφαρμόζουμε τον τύπο στο πρώτο κελί. Είτε αντιγράφουμε και επικολλάμε στο τελευταίο κελί, είτε απλά συμπληρώστε αυτόματα με διπλό κλικ στο μικρό πλήκτρο βέλους. Ένα άλλο καλύτερο παράδειγμα χρήσης αυτόματης συμπλήρωσης στο excel είναι όταν πρέπει να εισαγάγουμε σειριακούς αριθμούς. Συνήθως πληκτρολογούμε τους τρεις πρώτους αριθμούς. τότε, μεταφέρουμε προς τα κάτω μέχρι το απαιτούμενο τελευταίο κελί.

Στο VBA, μπορούμε να εκτελέσουμε την εργασία της μεθόδου Αυτόματης Συμπλήρωσης. Σε αυτό το άρθρο, θα σας δείξουμε πώς μπορούμε να χρησιμοποιήσουμε τη μέθοδο αυτόματης συμπλήρωσης και τρόπους σύνταξης του κώδικα. Τώρα θα δούμε πώς μπορούμε να χρησιμοποιήσουμε αυτό το εργαλείο στην κωδικοποίηση VBA.

Πώς να χρησιμοποιήσετε την Αυτόματη Συμπλήρωση στο VBA;

Για να χρησιμοποιήσετε την αυτόματη συμπλήρωση στο VBA, πρέπει να κατανοήσουμε τη σύνταξη της μεθόδου αυτόματης συμπλήρωσης. Παρακάτω είναι η σύνταξη της αυτόματης συμπλήρωσης.

  • Εύρος ("A1"): Ποια είναι τα κελιά για να προσδιορίσετε το μοτίβο της σειράς γεμίσματος.
  • Προορισμός: Μέχρι τι κελί θέλετε να συνεχίσετε το μοτίβο της σειράς γεμίσματος. Εδώ πρέπει να αναφέρουμε το πλήρες φάσμα των κυττάρων.
  • Πληκτρολογήστε ως xlAutoFillType: Εδώ μπορούμε να επιλέξουμε τον τύπο πλήρωσης σειράς. Παρακάτω είναι η λίστα των στοιχείων σε αυτήν την παράμετρο - xlFillCopy, xlFillDays, xlFillDefault, xlFillFormats, xlFillMonths, xlFillSeries, xlFillValues, xlFillWeekdays, xlFillYears, xlFlashFill, xlGrowtharend,

Παραδείγματα Αυτόματης Συμπλήρωσης στο Excel VBA

Ας δούμε μερικά απλά έως προηγμένα παραδείγματα του VBA AutoFill in excel.

Παράδειγμα # 1 - xlFillDefault

Αρχικά, εισαγάγετε 3 σειριακούς αριθμούς στα πρώτα τρία κελιά.

Στη δευτερεύουσα διαδικασία VBA, αναφέρετε το εύρος VBA ως Range ("A1: A3")

Κώδικας:

Sub AutoFill_Example1 () Εύρος ("A1: A3"). Τέλος Υποτ

Τώρα αποκτήστε πρόσβαση στη μέθοδο Αυτόματης Συμπλήρωσης.

Εισαγάγετε τον προορισμό ως Εύρος ("A1: A10")

Κώδικας:

Εύρος ("A1: A3"). Προορισμός αυτόματης συμπλήρωσης: = Εύρος ("A1: A10")

Επιλέξτε το Type as xlFillDefault .

Κώδικας:

Εύρος ("A1: A3"). Προορισμός αυτόματης συμπλήρωσης: = Εύρος ("A1: A10"), Τύπος: = xlFillDefault

Τώρα εκτελέστε τον κωδικό θα λάβουμε τους σειριακούς αριθμούς από 1 έως 10.

Εφόσον αναφέραμε το κελί προορισμού ως Α10, σταμάτησε εκεί και μπορούμε να εισέλθουμε στο κελί προορισμού ως το τελευταίο κελί του excel.

Παράδειγμα # 2 - xlFillCopy

Για τους ίδιους αριθμούς, θα χρησιμοποιήσουμε τον τύπο ως xlFillCopy.

Κώδικας:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillCopy End Sub

Έχω ένα αντίγραφο των πρώτων τριών κελιών στα υπόλοιπα κελιά.

Παράδειγμα # 3 - xlFillMonths

Για αυτό το παράδειγμα, έχω εισάγει τους πρώτους τρεις μήνες στα πρώτα 3 κελιά.

Αλλάξτε τον τύπο αυτόματης συμπλήρωσης σε xlFillMonths.

Κώδικας:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillMonths End Sub

Αυτό θα γεμίσει τη σειρά του μήνα.

Παράδειγμα # 4 - xlFillFormats

Για αυτό το παράδειγμα, έχω εισαγάγει αριθμούς και έχω εφαρμόσει μορφοποίηση σε αυτά τα κελιά.

Τώρα θα αλλάξω τον τύπο σε xlFillFormats.

Κώδικας:

Sub AutoFill_Example1 () Range ("A1: A3"). AutoFill Destination: = Range ("A1: A10"), Type: = xlFillFormats End Sub

Εκτελέστε αυτόν τον κωδικό και δείτε τι συμβαίνει.

Έχει γεμίσει μορφές των πρώτων τριών κελιών στα επόμενα τρία κελιά και πάλι, τα επόμενα τρία κελιά και ούτω καθεξής.

Παράδειγμα # 5 - xlFlashFill

Για αυτό το παράδειγμα, έχω εισαγάγει μερικές τιμές από το κελί A1 έως A10, όπως φαίνεται στην παρακάτω εικόνα.

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

Τώρα θα γράψω τον κώδικα ως συνήθως και θα αλλάξω τον τύπο σε xlFlashFill. Αυτή τη φορά θα χρησιμοποιήσουμε το εύρος στηλών Β.

Κώδικας:

Sub AutoFill_Example1 () Range ("B1"). AutoFill Destination: = Range ("B1: B10"), Type: = xlFlashFill End Sub

Εάν εκτελέσω αυτόν τον κωδικό, θα έχουμε το αποτέλεσμα όπως το παρακάτω.

Αυτή είναι η επισκόπηση της μεθόδου αυτόματης συμπλήρωσης VBA. Ελπίζω να το απολαύσατε.

Μπορείτε να κάνετε λήψη αυτού του προτύπου αυτόματης συμπλήρωσης VBA Excel από εδώ - Πρότυπο VBA αυτόματης συμπλήρωσης Excel

ενδιαφέροντα άρθρα...