Στο VBA, μπορείτε να βγείτε από ένα βρόχο For χρησιμοποιώντας το Έξοδος για εντολή.
| 1 | Έξοδος για |
Όταν φτάσει η εκτέλεση του κώδικα Έξοδος για, θα βγει από έναν βρόχο For και θα συνεχίσει με την πρώτη γραμμή μετά τον βρόχο.
Εάν θέλετε να μάθετε πώς να εξέρχεστε από έναν βρόχο Do, κάντε κλικ σε αυτόν τον σύνδεσμο: VBA Exit Loop
Έξοδος από ένα βρόχο For Όταν πληρείται μια συνθήκη
Στο παράδειγμα θα δείτε πώς να βγείτε από έναν βρόχο For όταν πληρείται μια συγκεκριμένη συνθήκη. Θα βρόχο και αυξάνουμε την τιμή της μεταβλητής i κατά 1 σε κάθε επανάληψη. Όταν πρόκειται για 5, θέλουμε να βγούμε από τον βρόχο και να επιστρέψουμε ένα πλαίσιο μηνυμάτων. Εδώ είναι ο κωδικός:
| 123456789 | Dim i As IntegerΓια i = 1 έως 10Αν i = 5 ΤότεΈξοδος γιαΤέλος εανΕπόμενο iMsgBox "Η τιμή είναι" & i |
Αρχικά, εισάγουμε το For Loop εάν η τιμή i είναι μικρότερη από 10:
| 123 | Για i = 1 έως 10Επόμενο i |
Μετά από αυτό ελέγχουμε αν η τιμή i είναι ίση με 5, χρησιμοποιώντας την εντολή If. Εάν η τιμή είναι 5, βγαίνουμε από το βρόχο For και μεταβαίνουμε στην πρώτη γραμμή μετά τον βρόχο:
| 12345 | Αν i = 5 ΤότεΈξοδος γιαΤέλος εαν |
Εάν η συνθήκη δεν πληρούται, η ακόλουθη πρόταση αυξάνει το i κατά 1 και εισέρχεται ξανά στον βρόχο For:
| 1 | Επόμενο i |
Η πρώτη γραμμή του κώδικα που θα εκτελεστεί μετά την έξοδο από τον βρόχο For είναι το πλαίσιο μηνυμάτων με την τιμή i:
| 1 | MsgBox "Η τιμή είναι" & i |
Εάν εκτελέσετε αυτόν τον κώδικα στη λειτουργία εντοπισμού σφαλμάτων, θα δείτε ότι θα περάσει από τον βρόχο 5 φορές. Στο 5ου επανάληψη, η τιμή της μεταβλητής i γίνεται 5 και ο κωδικός εισέρχεται στο σώμα If. Τώρα το σώμα του βρόχου For εξέρχεται. Μετά από αυτό, τα αναδυόμενα παράθυρα MsgBox με την τιμή i:
Εικόνα 1. Παράδειγμα Exit For Loop
