Στο VBA, μπορείτε να βγείτε από έναν βρόχο Do χρησιμοποιώντας το Έξοδος Do εντολή.
| 1 | Έξοδος Do |
Όταν φτάσει η εκτέλεση του κώδικα Έξοδος Do, ο κωδικός θα βγει από το βρόχο Do και θα συνεχίσει με την πρώτη γραμμή μετά τον βρόχο.
Αν θέλετε να μάθετε πώς να εξέρχεστε από έναν βρόχο For, κάντε κλικ σε αυτόν τον σύνδεσμο: VBA Exit For
Έξοδος από ένα βρόχο όταν πληρείται μια συνθήκη
Θα δείτε στο παρακάτω παράδειγμα πώς να βγείτε από ένα βρόχο Do όταν πληρείται μια συγκεκριμένη προϋπόθεση. Θα βρόχο και αυξάνουμε την τιμή της μεταβλητής i κατά 1 σε κάθε επανάληψη. Όταν πρόκειται για 6, θέλουμε να βγούμε από τον βρόχο και να επιστρέψουμε ένα πλαίσιο μηνυμάτων. Εδώ είναι ο κωδικός:
| 1234567891011 | Dim i As IntegerDo while <<10i = i + 1Αν i = 6 ΤότεΈξοδος DoΤέλος εανΒρόχοςMsgBox "Η τιμή είναι" & i |
Αρχικά, εισάγουμε το Do Loop εάν η τιμή i είναι μικρότερη από 10:
| 123 | Do while <<10Βρόχος |
Στο σώμα του βρόχου, αυξάνουμε την τιμή του i κατά 1:
| 1 | i = i + 1 |
Μετά από αυτό ελέγχουμε αν η τιμή i είναι ίση με 6, χρησιμοποιώντας την εντολή If. Εάν η τιμή είναι 6, βγαίνουμε από το βρόχο Do και πηγαίνουμε στην πρώτη γραμμή μετά τον βρόχο:
| 123 | Αν i = 6 ΤότεΈξοδος DoΤέλος εαν |
Η πρώτη γραμμή του κώδικα που θα εκτελεστεί μετά την έξοδο από το βρόχο Do είναι το πλαίσιο μηνυμάτων με την τιμή i:
| 1 | MsgBox "Η τιμή είναι" & i |
Εάν εκτελέσετε αυτόν τον κωδικό στο Λειτουργία εντοπισμού σφαλμάτων, θα δείτε ότι θα περάσει από το βρόχο 6 φορές. Στο 6ου επανάληψη, η τιμή της μεταβλητής i γίνεται 6 και ο κωδικός εισέρχεται στο σώμα If. Τώρα το σώμα του βρόχου Do έχει βγει. Μετά από αυτό, τα αναδυόμενα παράθυρα MsgBox με την τιμή i:
