Στο VBA, μπορείτε να δημιουργήσετε ένα Κουμπί περιστροφής που επιτρέπει σε έναν χρήστη να αυξήσει έναν αριθμό στο κελί σε ένα καθορισμένο εύρος. Κάθε φορά που ένας χρήστης κάνει κλικ σε ένα κουμπί, ο αριθμός αυξάνεται ή μειώνεται. Σε αυτό το σεμινάριο, θα μάθετε πώς να δημιουργείτε ένα κουμπί περιστροφής και να το χρησιμοποιείτε σε Excel και VBA.
Αν θέλετε να μάθετε πώς να χρησιμοποιείτε ένα κουμπί Επιλογών, κάντε κλικ σε αυτόν τον σύνδεσμο: Κουμπί επιλογής Excel VBA
Δημιουργήστε ένα κουμπί περιστροφής
Για να εισαγάγετε ένα κουμπί περιστροφής στο φύλλο εργασίας, πρέπει να μεταβείτε στο Καρτέλα προγραμματιστή, Κάντε κλικ Εισάγετε και κάτω από τα στοιχεία ελέγχου ActiveX επιλέξτε Κουμπί περιστροφής:
Εικόνα 1. Εισαγάγετε ένα κουμπί περιστροφής στο φύλλο εργασίας
Όταν επιλέγετε το κουμπί περιστροφής που εισαγάγατε, μπορείτε να κάνετε κλικ στο Ιδιότητες σύμφωνα με το Καρτέλα προγραμματιστή:
Εικόνα 2. Αλλαγή Ιδιότητες κουμπιού περιστροφής
Εδώ μπορείτε να ορίσετε διαφορετικές ιδιότητες του κουμπιού Spin. Στην αρχή, αλλάξαμε το χαρακτηριστικό Ονομα προς το spbSpinButtonΤο Τώρα, μπορούμε να χρησιμοποιήσουμε το κουμπί Spin με αυτό το όνομα σε κώδικα VBA. Άλλα σημαντικά χαρακτηριστικά είναι Ελάχ και Μέγιστη, τα οποία ορίζουν ένα εύρος αριθμών και Μικρή αλλαγή που ορίζει ένα βήμα αύξησης.
Ορίστε ένα κουμπί περιστροφής χρησιμοποιώντας το VBA
Θα δούμε πρώτα πώς να ορίσετε ιδιότητες ενός κουμπιού περιστροφής στο VBA και να λάβετε μια τιμή στο φύλλο εργασίας. Ο κωδικός πρέπει να είναι σε περίπτωση Αλλαγή του αντικειμένου spbSpinButtonΤο Μπορείτε να εισαγάγετε αυτό το συμβάν κάνοντας δεξί κλικ στο κουμπί Περιστροφή και επιλέγοντας Προβολή κώδικα επιλογή. Εδώ είναι ο κωδικός:
| 1234567891011 | Private Sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueΤέλος υπο |
Αρχικά, θέτουμε το κατώτερο όριο για το εύρος αριθμών:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Μετά από αυτό, ορίζουμε το ανώτερο όριο για το εύρος αριθμών:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Πρέπει επίσης να ορίσουμε το βήμα για την αύξηση των αριθμών:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Τέλος, εκχωρούμε την τρέχουσα τιμή του κουμπιού Spin στο κελί B2. Αυτή η τιμή βρίσκεται στο αξία χαρακτηριστικό του αντικειμένου Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Τώρα, κάθε φορά που κάνουμε κλικ στο κουμπί Spin, η τιμή θα αυξηθεί ή μειωθεί κατά 10 στο εύρος 100-200:
Εικόνα 3. Αυξήστε έναν αριθμό χρησιμοποιώντας το κουμπί Spin στο VBA
Ορίστε ένα κουμπί περιστροφής στο Excel
Ένας άλλος τρόπος για να ορίσετε ένα κουμπί περιστροφής είναι η χρήση των ιδιοτήτων. Κάντε κλικ στο Ιδιότητες σύμφωνα με το Καρτέλα προγραμματιστή:
Εικόνα 4. Ορίστε ένα κουμπί περιστροφής στο Excel
Εδώ μπορούμε να ορίσουμε όλα τα χαρακτηριστικά που θέλουμε: Ελάχ είναι 10, Μέγιστη είναι 100 και Μικρή αλλαγή είναι 2. Εάν θέλετε να βάλετε το αποτέλεσμα του κουμπιού Spin στο κελί B2, πρέπει να βάλετε αυτό το κελί στο χαρακτηριστικό LinkedCell.
