Πώς να εξέλθετε από ένα Sub σε VBA

Visual Basic for Applications , VBA , είναι ένα κέλυφος προγραμματισμού για τα προϊόντα του Microsoft Office . Με VBA , οι προχωρημένοι χρήστες και προγραμματιστές μπορούν να μετατρέπουν κοινές έγγραφα του Office σε δυναμική μίνι - εφαρμογές . Μια Sub σε VBA είναι μια υπο διαδικασία . Ένα επιμέρους διαδικασία περιλαμβάνει μια σειρά από δηλώσεις VB που εκτελούνται όταν η διαδικασία υπο ονομάζεται . Ένας χειριστής σφάλματος εκτελείται όταν δεν μπορεί να ολοκληρωθεί τις δηλώσεις στην υπο διαδικασία . Η δήλωση Exit χρησιμοποιείται συνήθως για να βγούμε από το πρόγραμμα χειρισμού σφαλμάτων για τη διαδικασία και να συνεχίσει με το υπόλοιπο του κώδικα VBA . Οδηγίες
Η

1 Ανοίξτε το πρόγραμμα επεξεργασίας VBA . Κάντε διπλό κλικ σε ένα από τα προγράμματα του Microsoft Office που θέλετε να εργαστείτε. Κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Εάν δεν βλέπετε την καρτέλα "Προγραμματιστής " , κάντε κλικ στην καρτέλα "Αρχείο" και στη συνέχεια " Επιλογές". Κάντε κλικ στο " Προσαρμογή της Κορδέλας " καρτέλα στο παράθυρο διαλόγου "Επιλογές" . Κάντε κλικ στο " Main καρτέλες , " και στη συνέχεια κάντε κλικ στο πλαίσιο ελέγχου "Προγραμματιστής " . Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο διαλόγου "Επιλογές" . 2

Πλοηγηθείτε με τη διαδικασία sub που θέλετε να εργαστείτε με το Visual Basic Editor. Κάντε διπλό κλικ στη σελίδα στο δεξιό τμήμα του παραθύρου για να το ανοίξετε . Για να εργαστείτε σε μια νέα διαδικασία , κάντε κλικ στο " Εισαγωγή" και στη συνέχεια " Sub διαδικασίας".
Εικόνων 3

Προσθέστε την εντολή « Exit Sub" στη διαδικασία υπο όπου θέλετε να βγείτε από ένα ορισμένο μπλοκ κώδικα . Αυτό θα είναι μεταξύ του Sub και End Sub εντολές . Συνήθως , το Exit Sub εντολή προστίθεται αμέσως μετά τον χειριστή κώδικα . Εδώ είναι ένα παράδειγμα ενός μπλοκ κώδικα με Exit Sub εντολή: !

" Μήνυμα Sub ( )

MsgBox " Hello World "

On Error GoTo Error_Handler :

φύλλα εργασίας ( « Χαιρετισμός » ) Ενεργοποίηση

Exit Sub

Error_Handler :

Αν Err.Number = 9 τότε

φύλλα εργασίας . Add.Name = " Χαιρετισμός "

Συνέχιση

End If

End Sub "

Η διαδικασία υπο εμφανίζει ένα πλαίσιο μηνύματος που λέει " Hello World . " Αν για κάποιο λόγο το πρόγραμμα δεν μπορεί να εμφανίσει το μήνυμα , κατευθύνεται προς την « Error_Handler " μπλοκ . Για να σταματήσετε τον κωδικό από το να συνεχίσει να τον κύκλο μέσα από τα ίδια τα κομμάτια του κώδικα , η εντολή « Exit Sub" είναι δεδομένη.
Η
εικόνων