/ / / Excel PropertyBar PropertyBar

Ιδιότητα VBar StatusBar του Excel

ο Ιδιότητα StatusBar του αντικειμένου εφαρμογής στο Excel VBA μπορεί να χρησιμοποιηθεί για να υποδείξει την πρόοδο μιας μακράς μακροεντολής. Με αυτόν τον τρόπο, μπορείτε να αφήσετε τον χρήστη να γνωρίζει ότι μια μακροεντολή εξακολουθεί να εκτελείται.

Κατάσταση:

Η μακροεντολή που θα δημιουργήσουμε το fill Range ("A1: E20") με τυχαίους αριθμούς.

Παράδειγμα περιγραφής της ιδιότητας κατάστασης VBA του Excel

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

1. Αρχικά, δηλώνουμε τρεις μεταβλητές τύπου Integer, με το όνομα i, j και pctCompl.

Dim i As Integer, j As Integer, pctCompl As Integer

2. Προσθέστε ένα διπλό βρόχο.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

Προσθέστε τις ακόλουθες γραμμές κώδικα (στις 3, 4 και 5) στον βρόχο.

3. Χρησιμοποιήστε τη λειτουργία RandBetween για εισαγωγή ενός τυχαίου αριθμού μεταξύ 20 και 100.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. Αρχικοποιήστε τη μεταβλητή pctCompl. Η δεύτερη γραμμή κώδικα γράφει την τιμή της μεταβλητής pctCompl και κάποιου περιγραφικού κειμένου στη γραμμή κατάστασης.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

Παράδειγμα: Για i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11% έχει ολοκληρωθεί.

5. Χρησιμοποιούμε τη μέθοδο αναμονής του αντικειμένου εφαρμογής για να προσομοιώσουμε μια μακρά μακροεντολή.

Application.Wait Now + TimeValue("00:00:01")

6. Για να επαναφέρετε το προεπιλεγμένο κείμενο γραμμής κατάστασης, ορίστε την ιδιότητα StatusBar σε False (εκτός του βρόχου).

Application.StatusBar = False

Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:

Αποτέλεσμα ιδιοκτησίας του Excel VBA StatusBar

Σημείωση: Μπορείτε να διακόψετε μακροεντολή οποιαδήποτε στιγμή πατώντας Esc ή Ctrl + Break. Για πιο οπτική προσέγγιση, ανατρέξτε στο πρόγραμμά μας για το δείκτη προόδου.

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