/ / / Διακοπή μιας μακροεντολής στο Excel

Διακοπή μιας μακροεντολής στο Excel

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

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

Dim x As Long
x = 5

Do While x > 2
    x = x + 1
Loop

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

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

Διακόπτης διαλόγου κώδικα

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

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

Application.EnableCancelKey = xlDisabled

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

Application.EnableCancelKey = xlInterrupt

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

Επίσης διαβάστε: