VBA Do Μέχρι Loop | Βήμα προς βήμα Παραδείγματα για τη χρήση του Do To στο VBA

Τι είναι το Do Before Loop στο VBA Excel;

Στο VBA Do Before Loop , πρέπει να ορίσουμε κριτήρια μετά τη δήλωση μέχρι που σημαίνει πότε θέλουμε να σταματήσει ο βρόχος και η τελική δήλωση είναι ο ίδιος ο βρόχος. Επομένως, εάν η συνθήκη είναι ΛΑΘΟΣ, θα συνεχίσει να εκτελεί τη δήλωση μέσα στο βρόχο, αλλά εάν η συνθήκη είναι ΑΛΗΘΕΙΑ αμέσως θα βγεί από τη δήλωση Do Before.

Καθώς οι ίδιες οι λέξεις λένε ότι για να κάνετε κάποια εργασία μέχρι να επιτευχθεί ένα κριτήριο, κάντε έως ότου χρησιμοποιηθεί ο βρόχος σε όλες σχεδόν τις γλώσσες προγραμματισμού, στο VBA επίσης χρησιμοποιούμε μερικές φορές Do έως loop. Do To Loop σημαίνει να κάνετε κάτι έως ότου η κατάσταση γίνει Αληθινή. Είναι σαν μια λογική συνάρτηση που λειτουργεί με βάση TRUE ή FALSE.

Αυτό είναι το αντίθετο του βρόχου Do While όπου το Do ενώ τρέχει τους βρόχους αρκεί η συνθήκη να είναι ΑΛΗΘΕΙΑ.

Σύνταξη

Do Do loop έχει δύο είδη σύνταξης.

Σύνταξη # 1 

 Λήψη έως [συνθήκη] [Εκτέλεση ορισμένων εργασιών] Βρόχος 

Σύνταξη # 2

 Κάντε [Εκτελέστε κάποια εργασία] Βρόχος μέχρι [συνθήκη] 

Και τα δύο φαίνονται πολύ παρόμοια και υπάρχει μια απλή διαφοροποίηση.

Στην πρώτη σύνταξη, το Do Do loop ελέγχει πρώτα την κατάσταση και παίρνει το αποτέλεσμα της κατάστασης είναι ΑΛΗΘΕΙΑ ή ΛΑΘΟΣ. Εάν η συνθήκη είναι ΛΑΘΟΣ, θα εκτελέσει τον κώδικα και θα εκτελέσει μια καθορισμένη εργασία και εάν η συνθήκη είναι ΑΛΗΘΗ, τότε θα βγει από τον βρόχο.

Στη δεύτερη σύνταξη "Do" loop πρώτα θα εκτελέσει την εργασία κωδικοποίησης και στη συνέχεια ελέγχει εάν η συνθήκη είναι ΑΛΗΘΕΙΑ ή ΛΑΘΟΣ. Εάν η συνθήκη είναι ΛΑΘΗ θα επιστρέψει ξανά και θα εκτελέσει την ίδια εργασία. Εάν η κατάσταση είναι ΑΛΗΘΗ, τότε θα βγει αμέσως από τον βρόχο.

Παράδειγμα

Ξέρω ότι δεν είναι τόσο εύκολο να κατανοήσουμε τίποτα στο μέρος της θεωρίας, αλλά τίποτα να ανησυχείς. Θα σας δώσουμε εύκολα παραδείγματα για να κατανοήσετε τον βρόχο. Συνέχισε να διαβάζεις. Για να ξεκινήσει η εκμάθηση, ας εκτελέσουμε το καθήκον να εισαγάγουμε τους πρώτους 10 σειριακούς αριθμούς από το κελί A1 έως A10.

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

Ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε το βρόχο "Do μέχρι".

Βήμα 1: Δημιουργήστε πρώτα ένα όνομα μακροεντολής για να ξεκινήσετε τη δευτερεύουσα διαδικασία.

Κώδικας:

 Υπο Do_Until_Example1 () End Sub 

Βήμα 2: Ορίστε μια μεταβλητή ως "Long".  Έχω ορίσει το "x" ως έναν μακρύ τύπο δεδομένων.

Dim x As Long

Βήμα 3: Τώρα εισαγάγετε τη λέξη "Do μέχρι".

Κάντε μέχρι

Βήμα 4: Αφού ξεκινήσετε το όνομα του βρόχου εισαγάγετε την κατάσταση ως "x = 11".

 Κάνετε έως το x = 11

x = 11 είναι η λογική δοκιμή που έχουμε εφαρμόσει. Έτσι, αυτή η γραμμή λέει να τρέξει το βρόχο μέχρι το x να είναι ίσο με 11.

Βήμα 5: Εφαρμόστε την ιδιότητα CELLS και ας εισαγάγουμε σειριακούς αριθμούς από το 1 έως το 10.

Κελιά (x, 1). Τιμή = x

Σημείωση: Εδώ αναφέραμε ότι το "x" ξεκινά από το 1, οπότε στην αρχή το x είναι ίσο με 1. Όπου το "x" υπάρχει ίσο με 1.

Βήμα 6: Τώρα κλείστε το βρόχο εισάγοντας τη λέξη "LOOP".

 Sub Do_Until_Example1 () Dim x As Long Do Hingga x = 11 Cells (x, 1). Value = x Loop 

Τέλος Υποτ

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

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

Θα επισημάνει πρώτα το όνομα της μακροεντολής με κίτρινο χρώμα.

Όταν μπορείτε να δείτε την κίτρινη γραμμή, λέει ότι δεν εκτελείται για να εκτελεστεί εάν πατήσετε το πλήκτρο F8 για άλλη μια φορά.

Τώρα πατήστε το πλήκτρο F8 για άλλη μια φορά, η κίτρινη γραμμή θα μεταβεί στο Do Before Loop.

Τώρα για να κατανοήσετε το βρόχο τοποθετήστε έναν κέρσορα στη μεταβλητή "x" και δείτε την τιμή της μεταβλητής "x".

Έτσι, x = 0. Δεδομένου ότι η επισημασμένη γραμμή είναι η πρώτη γραμμή στο βρόχο, οπότε η τιμή του "x" είναι μηδέν, οπότε πατήστε το πλήκτρο F8 για άλλη μια φορά και δείτε την τιμή του "x". Πριν από αυτήν την έξοδο, ο κώδικας εκτελείται και αντιστοιχίστε την τιμή στο "x" ως 1.

Τώρα ξεκινήστε ξανά την εκτέλεση ενός βρόχου πατώντας το πλήκτρο F8. Δείτε την τιμή του "x".

Τώρα η τιμή του "x" εμφανίζεται ως 1. Για να έχουμε στοιχειώδη τιμή στη μεταβλητή "x" πρέπει να ξαναβάλουμε την τιμή της μεταβλητής "x" ως x = x + 1 μέσα στο βρόχο.

Τώρα πατήστε το πλήκτρο F8 για άλλη μια φορά και θα πρέπει να λάβουμε την τιμή 1 στο κελί A1.

Τώρα πατήστε ξανά το πλήκτρο F8 και δείτε ποια είναι η τιμή του "x".

Η τιμή της μεταβλητής "x" είναι 2 τώρα. Έτσι, η συνθήκη μας λέει να τρέξουμε το βρόχο έως ότου η συνθήκη γίνει ΑΛΗΘΕΙΑ, έτσι ο βρόχος μας συνεχίζει να λειτουργεί έως ότου η τιμή του "x" γίνει 11.

Πατήστε το F8 για άλλη μια φορά, θα επιστρέψει στη γραμμή βρόχου "Do μέχρι".

Πατήστε το πλήκτρο F8 δύο ακόμη φορές, θα λάβουμε την τιμή 2 στο κελί A2.

Πατήστε ξανά το πλήκτρο F8 και η τιμή του "x" γίνεται 3 τώρα.

Πατήστε ξανά το πλήκτρο F8 και θα επιστρέψει ξανά στο βρόχο.

Με αυτόν τον τρόπο, αυτός ο βρόχος θα συνεχίσει να εκτελεί ξανά την εργασία έως ότου η τιμή του "x" γίνει 11. Τώρα έχω εκτελέσει το βρόχο έως ότου η τιμή "x" γίνει 11.

Τώρα αν πατήσω το F8 θα συνεχίσει να επιστρέφει στο βρόχο.

Αλλά αν πατήσω το πλήκτρο F8 τώρα θα βγει από το βρόχο, επειδή η εφαρμοσμένη συνθήκη γίνεται «ΑΛΗΘΕΙΑ», δηλαδή x = 11.

Έτσι έχουμε τώρα σειριακούς αριθμούς από 1 έως 10 στο φύλλο excel.

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