Στο VBA, για να τερματίσετε ΟΛΗ την εκτέλεση κώδικα χρησιμοποιήστε το Τέλος εντολή.
| 1 | Τέλος |
Όταν φτάσει η εκτέλεση του κώδικα Τέλος, θα ολοκληρώσει αμέσως την εκτέλεση και θα εγκαταλείψει το πρόγραμμα.
Εάν θέλετε να μάθετε πώς να εξέρχεστε από ένα σφάλμα Sub on Error, κάντε κλικ σε αυτόν τον σύνδεσμο: VBA On Error Exit Sub
Εάν θέλετε να μάθετε πώς να εξέρχεστε από ένα δευτερεύον ή μια λειτουργία, κάντε κλικ σε αυτόν τον σύνδεσμο: VBA Exit Sub ή Function
Έξοδος από όλους τους κωδικούς σε VBA
Θα δείτε στο παράδειγμα τι συμβαίνει όταν χρησιμοποιούμε το Τέλος εντολή σε VBA. Δημιουργήσαμε ένα Sub EndSub, το οποίο έχει το Τέλος εντολή μέσα. Αυτό το Sub καλείται από CallEndSubΤο Εδώ είναι ο κωδικός:
| 123456789101112131415161718 | Private Sub EndSub ()Dim i As IntegerΓια i = 1 έως 10Αν i = 5 ΤότεMsgBox "Η τιμή του i είναι" & iΤέλοςΤέλος εανΕπόμενο iΤέλος υποPrivate Sub CallEndSub ()Καλέστε το EndSubMsgBox "End Sub"Τέλος υπο |
Στο EndSub, εισάγουμε πρώτα το For Loop εάν η τιμή i είναι μικρότερη από 10:
| 123 | Για i = 1 έως 10Επόμενο i |
Μετά από αυτό ελέγχουμε αν η τιμή i είναι ίση με 5, χρησιμοποιώντας την εντολή If. Εάν η τιμή είναι 5, επιστρέφουμε το πλαίσιο μηνυμάτων με την τιμή i και χρησιμοποιούμε την εντολή Τέλος.
| 1234567 | Αν i = 5 ΤότεMsgBox "Η τιμή του i είναι" & iΤέλοςΤέλος εαν |
Εάν η συνθήκη δεν πληρούται, η ακόλουθη πρόταση αυξάνει το i κατά 1 και εισέρχεται ξανά στον βρόχο For:
| 1 | Επόμενο i |
Στο CallEndSub, καλούμε πρώτα το Sub EndSub:
| 1 | Καλέστε το EndSub |
Στη συνέχεια επιστρέφουμε το πλαίσιο μηνυμάτων:
| 1 | MsgBox "End Sub" |
Εάν τρέχετε το CallEndSub, θα καλέσει πρώτα το EndSubΤο Εάν εκτελέσετε αυτόν τον κώδικα στη λειτουργία εντοπισμού σφαλμάτων, θα δείτε ότι θα περάσει από τον βρόχο 5 φορές. Στο 5ου επανάληψη, η τιμή της μεταβλητής i γίνεται 5 και ο κωδικός εισέρχεται στο σώμα If. Τώρα το MsgBox "Η τιμή του i είναι" & i εκτελείται και Τέλος μετά από αυτό:
Εικόνα 1. Τέλος VBA
Όπως μπορείτε να δείτε, η εκτέλεση του κώδικα σταματά αμέσως μετά το Τέλος εντολή, άρα το MsgBox "End Sub" δεν εκτελείται ποτέ.
