Όταν έχετε μια μεγάλη μακροεντολή / κώδικα vba που πρέπει να εκτελεστεί για πολλά λεπτά, μπορείτε να αλλάξετε τον κέρσορα σε κλεψύδρα ή δρομέα αναμονής (με βάση τη ρύθμιση του συστήματός σας) για την περίοδο κατά την οποία εκτελείται η μακροεντολή. Μόλις ολοκληρωθεί η μακροεντολή, ο δρομέας μπορεί να επανέλθει στον προεπιλεγμένο δρομέα.
Αυτό είναι ένα δείγμα κώδικα που δείχνει πώς μπορείτε να αλλάξετε τον κέρσορα.
Επιλογή ρητή
Υπο macro1 ()
Application.Cursor = xlWait
«Κωδικός εδώ
Application.Cursor = xlDefault Τέλος υπο
- Μετά τις δηλώσεις dim (αυτός ο δείκτης κώδικα δεν έχει ακόμη), ορίζουμε Application.Cursor = xlWait στην αρχή του κώδικα.
- Στη συνέχεια, μπορείτε να συμπεριλάβετε οποιονδήποτε κώδικα χρειάζεστε για εκτέλεση. Εάν πρέπει να καλέσετε πολλαπλές εγγραφές / διαδικασίες, μπορείτε να το κάνετε εδώ ή απλώς να εισάγετε ολόκληρο τον κωδικό εδώ.
- Στη συνέχεια, ακριβώς πριν από τη δήλωση End Sub, πρέπει να επαναφέρετε τον κέρσορα στην προεπιλεγμένη. Το κάνουμε αυτό χρησιμοποιώντας τη γραμμή Application.Cursor = xlDefault
- Μπορείτε να συμπεριλάβετε όλες τις άλλες δηλώσεις που χρειάζεστε όπως Application.ScreenUpdating = ΛάθοςήApplication.DisplayAlerts = Λάθοςμαζί με Application.Cursor = xlWaitδήλωση. Ομοίως, μπορείτε να συμπεριλάβετε Application.ScreenUpdating = True ή Application.DisplayAlerts = True μαζί με Application.Cursor = xlDefaultδήλωση.
- Για να αντιγράψετε αυτόν τον κωδικό, πατήστε τα πλήκτρα Alt + F11 στο πληκτρολόγιο. Αυτό θα ανοίξει τη μονάδα κώδικα. Στην αριστερή πλευρά θα δείτε αντικείμενα του Microsoft Excel. Κάντε δεξί κλικ και επιλέξτε Εισαγωγή και, στη συνέχεια, επιλέξτε Ενότητα. Αντιγράψτε τον κώδικα στο παράθυρο κώδικα στα δεξιά.