Διακόψτε μια μακροεντολή στο Excel - Εύκολο Excel VBA

Πίνακας περιεχομένων

Μπορείς διακοπή μιας μακροεντολής σε Προέχω ανά πάσα στιγμή πατώντας Esc ή Ctrl + Break.

Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

Dim x As Long
x = 5
Do while x> 2
x = x + 1
Βρόχος

1. Κάντε κλικ στο κουμπί εντολών στο φύλλο. Αυτή η μακροεντολή δεν σταματάει ποτέ, επειδή το τμήμα μετά το "Do while" θα είναι πάντα αληθινό (το x θα είναι πάντα υψηλότερο από 2).

2. Για να σταματήσετε αυτόν τον άπειρο βρόχο, πατήστε Esc ή Ctrl + Break. Θα εμφανιστεί το ακόλουθο παράθυρο διαλόγου:

3. Κάντε κλικ στο Τέλος για να τερματίσετε τη μακροεντολή, κάντε κλικ στην εντολή Εντοπισμός σφαλμάτων για να ρίξετε μια ματιά στη μακροεντολή στο πρόγραμμα επεξεργασίας της Visual Basic.

4. Προσθέστε την ακόλουθη γραμμή κώδικα στην αρχή του κώδικα, εάν δεν θέλετε οι χρήστες του προγράμματος σας να μπορούν να διακόψουν τη μακροεντολή σας (δεν συνιστάται).

Application.EnableCancelKey = xl Απενεργοποιημένο

5. Παρόλο που το Excel VBA επαναφέρει αυτόματα την ιδιότητα EnableCancelKey σε xlIntrupt στο τέλος της μακροεντολής σας, είναι καλή πρακτική (όταν χρησιμοποιείτε την προηγούμενη γραμμή κωδικού) να τερματίσετε τη μακροεντολή σας με την ακόλουθη γραμμή κωδικού:

Application.EnableCancelKey = xlInterrupt

Σημείωση: εάν το Excel παγώσει και δεν μπορείτε να διακόψετε πια τη μακροεντολή σας, πατήστε Ctrl + Alt + Delete και κλείστε το Excel.

Θα βοηθήσει στην ανάπτυξη του τόπου, μοιράζονται τη σελίδα με τους φίλους σας

wave wave wave wave wave