Πώς να δημιουργήσετε γραμμή προόδου σε VBA

Μια γραμμή προόδου χρησιμοποιείται σε μια εφαρμογή υπολογιστή για να δείξει την πρόοδο της επιχείρησης . Είναι συνήθως ένα ορθογώνιο που είναι κινούμενα ως μια λειτουργία που κάνει πρόοδο . Visual Basic for Applications ή VBA , είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας και να δημιουργήσουν διεπαφές χρήστη . Μπορείτε εύκολα να δημιουργήσετε μια γραμμή προόδου με τη χρήση VBA στο Microsoft Office Excel . Excel είναι μια εφαρμογή λογιστικών φύλλων που περιλαμβάνονται στη σουίτα Microsoft Office . Οδηγίες
Η

1 Ανοίξτε το Microsoft Office Excel και, στη συνέχεια , πιέστε το πλήκτρο "Alt " και " F11 " για να ανοίξει το Visual Basic Editor. Κάντε δεξί κλικ στο " VBAProject , " και στη συνέχεια κάντε κλικ στο κουμπί " UserForm " για να εισάγετε μια νέα φόρμα . Από το μενού " Εργαλεία " , κάντε κλικ στο κουμπί " Ετικέτα ". Ενώ κρατάτε το ποντίκι σας κουμπί , σύρετε στο έντυπο να δημιουργήσετε ένα νέο στοιχείο ελέγχου ετικέτας . 2

δεξί κλικ στην ετικέτα και επιλέξτε "Ιδιότητες ", στη συνέχεια, αλλάξτε " Ύψος " έως 42 και " Πλάτος " για να 12 . Αλλάξτε το "Top " 12 . Δημιουργία εννέα περισσότερες ετικέτες χρησιμοποιώντας την ίδια διαδικασία .
Εικόνων 3

Κάντε κλικ στο " CommandButton " στο " Toolbox" παράθυρο και να προσθέσετε ένα νέο κουμπί στη φόρμα σας . . Κάντε δεξί κλικ στο " CommandButton " και κάντε κλικ στο " Προβολή κώδικα " για να δημιουργήσετε μια νέα διαδικασία
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα μεταβλητή και να καθορίσει την αξία του :

Dim CNT Όπως ακέραιος

cnt = 0
5

Πληκτρολογήστε το παρακάτω για να κρύψει όλες τις ετικέτες όταν ξεκινά η Μορφή:

Me.Label1.Visible = False

Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = False

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False

Me.Label10.Visible = False
Η 6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα βρόχο, ενώ και επαναλάβει 10 φορές, ενώ σταματώντας τον κωδικό για 5 δευτερόλεπτα :

Do ενώ CNT <> 10

Επιλογή υπόθεση CNT

υπόθεση είναι = 1

Me.Label1.Visible = True

Me.Label1.BackColor = vbBlue

υπόθεση είναι = 2

Me.Label2.Visible = True

Me.Label2.BackColor = vbBlue

υπόθεση είναι = 3

Me.Label3.Visible = True

Me.Label3.BackColor = vbBlue

υπόθεση είναι = 4

Me.Label4.Visible = True

Me.Label4.BackColor = vbBlue

υπόθεση είναι = 5

Me.Label5.Visible = True

Me.Label5.BackColor = vbBlue

Case Is = 6

Me.Label6.Visible = True

Me.Label6.BackColor = vbBlue

υπόθεση είναι = 7

Me . Label7.Visible = True

Me.Label7.BackColor = vbBlue

υπόθεση είναι = 8

Me.Label8.Visible = True

Me.Label8 . BackColor = vbBlue

υπόθεση είναι = 9

Me.Label9.Visible = True

Me.Label9.BackColor = vbBlue

υπόθεση είναι = 10

Me.Label10.Visible = True

Me.Label10.BackColor = vbBlue

End Select

Me.Repaint

Εφαρμογή . Περιμένετε τώρα + TimeValue ( " 00:00:05 " )

CNT = CNT + 1

Loop
Η

7 Κάντε κλικ στο μενού "Εισαγωγή " και στη συνέχεια κάντε κλικ στο κουμπί " ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να ξεκινήσετε το " UserForm1 . " :

Sub showProgressBar ( )

UserForm1.Show

End Sub

Πατήστε το " F5 " για να τρέξετε το πρόγραμμά σας .
Η
εικόνων