Στην κάτω αριστερή γωνία του Excel, θα βρείτε μια γραμμή κατάστασης:
Το Excel χρησιμοποιεί αυτήν τη γραμμή κατάστασης για να σας μεταφέρει μηνύματα. Ωστόσο, η ιδιότητα StatusBar μπορεί επίσης να προσαρμοστεί χρησιμοποιώντας VBA, επιτρέποντάς σας να εμφανίσετε τα δικά σας μηνύματα.
Μήνυμα προσαρμοσμένης γραμμής κατάστασης
Μπορείτε να ενημερώσετε τη γραμμή κατάστασης με το δικό σας προσαρμοσμένο μήνυμα στο Excel ενώ εκτελείται μια μακροεντολή, χρησιμοποιώντας το Γραμμή κατάστασης ιδιοκτησία.
1. Τοποθετήστε αυτόν τον κώδικα σε μακροεντολή όποτε θέλετε να ενημερώσετε τον χρήστη με ένα προσαρμοσμένο μήνυμα γραμμής κατάστασης:
| 1 | Application.StatusBar = "Δουλεύω τώρα !!!" |
2. Και στο τέλος της μακροεντολής σας τοποθετήστε αυτόν τον κωδικό για να διαγράψετε τη γραμμή κατάστασης και να επιστρέψετε τον έλεγχο στο Excel:
| 1 | Application.StatusBar = FALSE |
Απενεργοποιήστε την ενημέρωση της γραμμής κατάστασης
Αντί να εμφανίζετε ένα μήνυμα ενώ εκτελείται η διαδικασία, μπορείτε να απενεργοποιήσετε τη Γραμμή κατάστασης. Αυτό θα αυξήσει την ταχύτητα του κώδικα VBA, καθώς το Excel μπορεί να παραλείψει την επεξεργασία του μηνύματος της γραμμής κατάστασης για εμφάνιση.
Για να απενεργοποιήσετε την ενημέρωση της γραμμής κατάστασης ενώ εκτελείται ο κωδικός σας, ορίστε το DisplayStatusBar ιδιότητα σε ψευδή.
| 1 | Application.DisplayStatusBar = Λάθος |
Στο τέλος του κωδικού σας, επαναφέρετε την ενημέρωση της γραμμής κατάστασης:
| 1 | Application.DisplayStatusBar = True |
Σπουδαίος! Χρησιμοποιήστε το Γραμμή κατάστασης ιδιότητα για να ορίσετε μηνύματα, αλλά χρησιμοποιήστε το DisplayStatusBar ιδιότητα για απενεργοποίηση ή ενεργοποίηση της γραμμής κατάστασης εντελώς.
Επιταχύνετε τον κώδικα VBA
Για βέλτιστη ταχύτητα επεξεργασίας δοκιμάστε να χρησιμοποιήσετε αυτόν τον κωδικό:
| 12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = ΛάθοςApplication.DisplayStatusBar = ΛάθοςApplication.EnableEvents = ΛάθοςActiveSheet.DisplayPageBreaks = ΛάθοςApplication.Calculation = xlCalculationManual«Ο κωδικός σας εδώApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplication.Calculation = xlCalculationAutomaticτέλος υπο |
