Όσο όμορφο και να φαίνεται βλέποντας τη μακροεντολή VBA να χειρίζεται την οθόνη, μπορείτε να βοηθήσετε τη Μακροεντολή σας να τρέξει γρηγορότερα εάν απενεργοποιήσετε (απενεργοποιήσετε) την Ενημέρωση οθόνης.
Απενεργοποιήστε την Ενημέρωση οθόνης
1. Για να απενεργοποιήσετε την Ενημέρωση οθόνης, Στην αρχή του κώδικα τοποθετήστε αυτήν τη γραμμή:
| 1 | Application.ScreenUpdating = Λάθος |
Ενεργοποίηση της ενημέρωσης οθόνης
2. Για να ενεργοποιήσετε ξανά το ScreenUpdating, Στο τέλος του κώδικα, βάλτε αυτήν τη γραμμή:
| 1 | Application.ScreenUpdating = True |
Παράδειγμα ενημέρωσης οθόνης VBA
Στη συνέχεια, η διαδικασία σας θα μοιάζει με αυτήν:
| 1234567891011 | Sub ScreenUpdating_Example ()Application.ScreenUpdating = Λάθος'Κάνε κάτιΕύρος ("a1"). Εύρος αντιγραφής ("b1")Εύρος ("a2"). Εύρος αντιγραφής ("b2")Εύρος ("a3"). Εύρος αντιγραφής ("b3")Application.ScreenUpdating = TrueΤέλος υπο |
ScreenUpdating Ανανέωση
Η απενεργοποίηση της ενημέρωσης οθόνης θα κάνει τον κώδικα VBA να τρέξει ΠΟΛΥ γρηγορότερα, αλλά θα κάνει επίσης την εργασία σας να φαίνεται πιο επαγγελματική. Οι τελικοί χρήστες συνήθως δεν θέλουν να βλέπουν τις παρασκηνιακές ενέργειες των διαδικασιών σας (ειδικά όταν η διαδικασία τρέχει αργά). Επίσης, μπορεί να μην θέλετε οι τελικοί χρήστες να βλέπουν τη λειτουργικότητα των παρασκηνίων (π.χ. κρυμμένα φύλλα εργασίας). Σας συνιστώ να απενεργοποιήσετε (και να επανενεργοποιήσετε) το ScreenUpdating σχεδόν σε όλες τις διαδικασίες σας.
Ωστόσο, υπάρχουν στιγμές που θέλετε να ανανεωθεί η οθόνη. Για να ανανεώσετε την οθόνη, θα χρειαστεί να ενεργοποιήσετε προσωρινά ξανά το ScreenUpdating (δεν υπάρχει εντολή "ανανέωσης" οθόνης):
| 123 | Application.ScreenUpdating = True'Κάνε κάτιApplication.ScreenUpdating = Λάθος |
Ρυθμίσεις VBA - Επιταχύνετε τον κώδικα
Υπάρχουν αρκετές άλλες ρυθμίσεις για να παίξετε για να βελτιώσετε την ταχύτητα του κωδικού σας.
Η απενεργοποίηση των αυτόματων υπολογισμών μπορεί να κάνει ΤΕΡΑΣΤΙΑ διαφορά στην ταχύτητα:
| 1 | Application.Calculation = xlManual |
Η απενεργοποίηση της γραμμής κατάστασης θα κάνει επίσης μια μικρή διαφορά:
| 1 | Application.DisplayStatusBar = Λάθος |
Εάν το βιβλίο εργασίας σας περιέχει συμβάντα, θα πρέπει συνήθως να απενεργοποιήσετε τα συμβάντα στην αρχή της διαδικασίας σας:
| 1 | Application.EnableEvents = Λάθος |
Τέλος, ο κώδικας VBA μπορεί να επιβραδυνθεί όταν το Excel προσπαθεί να υπολογίσει εκ νέου τις αλλαγές σελίδας (Σημείωση: δεν θα επηρεαστούν όλες οι διαδικασίες). Για να απενεργοποιήσετε την εμφάνιση αλλαγών σελίδας, χρησιμοποιήστε αυτήν τη γραμμή κώδικα:
| 1 | ActiveSheet.DisplayPageBreaks = Λάθος |
