Τέλος VBA

Στο 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" δεν εκτελείται ποτέ.

wave wave wave wave wave