Τι είναι το Do Before Loop στο VBA Excel;
Στο VBA Do Before Loop , πρέπει να ορίσουμε κριτήρια μετά τη δήλωση μέχρι που σημαίνει πότε θέλουμε να σταματήσει ο βρόχος και η τελική δήλωση είναι ο ίδιος ο βρόχος. Έτσι, εάν η συνθήκη είναι ΛΑΘΟΣ, θα συνεχίσει να εκτελεί τη δήλωση μέσα στον βρόχο, αλλά εάν η συνθήκη είναι ΑΛΗΘΕΙΑ αμέσως θα βγεί από τη δήλωση Do S μέχρι.
Καθώς οι ίδιες οι λέξεις λένε ότι για να κάνετε κάποια εργασία μέχρι να επιτευχθεί ένα κριτήριο, κάντε έως ότου χρησιμοποιηθεί ο βρόχος σε όλες σχεδόν τις γλώσσες προγραμματισμού, στο VBA επίσης χρησιμοποιούμε μερικές φορές Do έως loop. Do Do Loop σημαίνει να κάνετε κάτι έως ότου η κατάσταση γίνει Αληθινή. Είναι σαν μια λογική συνάρτηση που λειτουργεί με βάση TRUE ή FALSE.
Αυτό είναι το αντίθετο του βρόχου Do While όπου το Do ενώ τρέχει τους βρόχους αρκεί η συνθήκη να είναι ΑΛΗΘΕΙΑ.
Σύνταξη
Do Do loop έχει δύο είδη σύνταξης.
Σύνταξη # 1
Βρόχος μέχρι (κατάσταση) (Εκτέλεση ορισμένων εργασιών)
Σύνταξη # 2
Do (Εκτέλεση ορισμένων εργασιών) Βρόχος έως (κατάσταση)
Και τα δύο φαίνονται πολύ παρόμοια και υπάρχει μια απλή διαφοροποίηση.
Στην πρώτη σύνταξη, το Do Do loop ελέγχει πρώτα την κατάσταση και παίρνει το αποτέλεσμα της κατάστασης είναι ΑΛΗΘΕΙΑ ή ΛΑΘΟΣ. Εάν η συνθήκη είναι ΛΑΘΟΣ, θα εκτελέσει τον κώδικα και θα εκτελέσει μια καθορισμένη εργασία και εάν η συνθήκη είναι ΑΛΗΘΕΙΑ, τότε θα βγει από τον βρόχο.
Στη δεύτερη σύνταξη, βρόχος «Do», πρώτα, θα εκτελέσει την εργασία κωδικοποίησης και, στη συνέχεια, ελέγχει εάν η συνθήκη είναι TRUE ή FALSE. Εάν η συνθήκη είναι ΛΑΘΟΣ, θα επιστρέψει ξανά και θα εκτελέσει την ίδια εργασία. Εάν η κατάσταση είναι ΑΛΗΘΕΙΑ, τότε θα βγει αμέσως από τον βρόχο.
Παράδειγμα
Ξέρω ότι δεν είναι τόσο εύκολο να κατανοήσουμε τίποτα στο μέρος της θεωρίας, αλλά τίποτα να ανησυχείς. Θα σας δώσουμε εύκολα παραδείγματα για να κατανοήσετε τον βρόχο. Συνέχισε να διαβάζεις. Για να ξεκινήσουμε την εκμάθηση, ας εκτελέσουμε το καθήκον να εισαγάγουμε τους πρώτους 10 σειριακούς αριθμούς από το κελί A1 έως A10.
Ακολουθήστε τα παρακάτω βήματα για να εφαρμόσετε το βρόχο "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 μέχρι». Για να καταλάβετε τυχόν βρόχους, πρέπει να εκτελέσετε τον κωδικό γραμμή προς γραμμή έως ότου λάβετε την πλήρη γνώση σχετικά με τους βρόχους.
