Τρόπος εμφάνισης Spinner Όταν ένας Macro VBA Τρέχει

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

Εκκίνηση του Microsoft Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο εικονίδιο "Εισαγωγή " στο " ελέγχου " παράθυρο . Κάντε κλικ στο " κουμπί" και κάντε κλικ στο φύλλο για να προσθέσετε ένα νέο κουμπί εντολής . Κάντε κλικ στο " Spin κουμπί" κάτω " ελέγχου ActiveX " και να το προσθέσετε στο υπολογιστικό φύλλο . 2

δεξιό κλικ στο κουμπί αυξομείωσης και κάντε κλικ στο "Ιδιότητες" για να εμφανιστεί το παράθυρο ιδιοτήτων . Επιλέξτε " Λάθος " δίπλα στο " Ορατό " ιδιοκτησίας. Κάντε κλικ στο εικονίδιο και τύπου " Μακροεντολές " " IncrementValues ​​" κάτω " Macro όνομα. " Κάντε κλικ στο κουμπί " Δημιουργία " για να δημιουργήσετε μια νέα μακροεντολή .
Εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα " While ... Loop » και να ενημερώσετε το φύλλο με τις αξίες κάθε φορά που το χρήστης κάνει κλικ στο κουμπί κλωστή : .

Sheet1.SpinButton1.Visible = True

Do While ( μετρητής <> 10 )

Range ( "A1" ) Επιλέξτε

Range ( "A1" ) . Value = μετρητής

Range ( " A2 " ) . Επιλέξτε

Range ( " A2 " ) . Value = " Macro λειτουργία ... "

Application.Wait τώρα + TimeValue ( " 00:00:02 " )

DoEvents

Loop

Range ( " A1 " ) . Επιλέξτε

Range ( "A1" ) . Value = " "

Range ( " A2 " ) . Επιλέξτε

Range ( " A2 " ) . Value = " Macro έληξε . "

Sheet1.SpinButton1.Visible = False

μετρητή = 0
Η 4

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

Παγκόσμια μετρητή As Integer
5

Επιστρέψτε στο Microsoft Excel και κάντε δεξί κλικ στο "Πλήκτρο 1 . " Κάντε κλικ στο κουμπί " Αντιστοίχιση μακροεντολής " και κάντε κλικ στο " IncrementValues ​​. " Κάντε κλικ στο " OK".
Η

6 Κάντε δεξί κλικ στο κουμπί κλωστή και κάντε κλικ στο " Προβολή κώδικα " για να ανοίξετε μια λειτουργική μονάδα κώδικα VBA . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να αυξάνει ή μειώνει τη συνολική τιμή της μεταβλητής :

Private Sub SpinButton1_SpinDown ( )

μετρητής μετρητής = - 1

End Sub

Private Sub SpinButton1_SpinUp ( )

μετρητής = Μετρητής + 1

End Sub
Η 7

Επιστρέψτε στο Microsoft Excel και κάντε κλικ στο " Κουμπί 1 " για να αρχίσει να τρέχει η μακρο και να εμφανίσει τον έλεγχο κλωστή . Κάντε κλικ στο επάνω βέλος του κουμπιού κλωστή για να αυξήσετε ή το κάτω βέλος για να μειώσετε . Η μακροεντολή θα κρύψει την κλωστή και σταματούν να λειτουργούν όταν η παγκόσμια μεταβλητή ισούται με το 10 .
Η
εικόνων