Μπορείτε να χρησιμοποιήσετε ένα RefEdit έλεγχος σε Excel VBA για να λάβετε ένα εύρος από έναν χρήστη. ο Μορφή χρήστη θα δημιουργήσουμε χρώματα την ελάχιστη τιμή του εύρος αποθηκεύεται στο στοιχείο ελέγχου RefEdit.
Για να δημιουργήσετε αυτήν τη μορφή χρήστη, εκτελέστε τα ακόλουθα βήματα.
1. Ανοίξτε το Visual Basic Editor. Εάν η Εξερεύνηση έργου δεν είναι ορατή, κάντε κλικ στην επιλογή Προβολή, Εξερεύνηση έργου.
2. Κάντε κλικ στην επιλογή Εισαγωγή, Μορφή χρήστη. Εάν η Εργαλειοθήκη δεν εμφανίζεται αυτόματα, κάντε κλικ στην επιλογή Προβολή, Εργαλειοθήκη. Η οθόνη σας θα πρέπει να ρυθμιστεί όπως παρακάτω.
3. Προσθέστε την ετικέτα, το κουμπί ελέγχου RefEdit και τα κουμπιά εντολών. Μόλις ολοκληρωθεί αυτό, το αποτέλεσμα θα πρέπει να είναι σύμφωνο με την εικόνα του Userform που εμφανίστηκε νωρίτερα. Για παράδειγμα, δημιουργήστε ένα στοιχείο ελέγχου RefEdit κάνοντας κλικ στο RefEdit από την Εργαλειοθήκη. Στη συνέχεια, μπορείτε να σύρετε ένα στοιχείο ελέγχου RefEdit στη φόρμα χρήστη.
Σημείωση: Εάν η εργαλειοθήκη σας δεν διαθέτει στοιχείο ελέγχου RefEdit, ορίστε μια αναφορά στο στοιχείο ελέγχου RefEdit. Κάντε κλικ στην επιλογή Εργαλεία, αναφορές και επιλέξτε Ref Edit Control.
4. Μπορείτε να αλλάξετε τα ονόματα και τους υπότιτλους των στοιχείων ελέγχου. Τα ονόματα χρησιμοποιούνται στον κώδικα VBA του Excel. Οι υπότιτλοι είναι εκείνοι που εμφανίζονται στην οθόνη σας. Είναι καλή πρακτική να αλλάζουμε τα ονόματα των στοιχείων ελέγχου, αλλά δεν είναι απαραίτητο εδώ επειδή έχουμε μόνο μερικά στοιχεία ελέγχου σε αυτό το παράδειγμα. Για να αλλάξετε τη λεζάντα της φόρμας χρήστη, της ετικέτας και των κουμπιών εντολών, κάντε κλικ στην επιλογή Προβολή, Παράθυρο ιδιοτήτων και κάντε κλικ σε κάθε στοιχείο ελέγχου.
5. Για να εμφανίσετε το Userform, τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub CommandButton1_Click ()
UserForm1.Show
Τέλος υπο
Τώρα θα δημιουργήσουμε το Sub UserForm_Initialize. Όταν χρησιμοποιείτε τη μέθοδο Εμφάνιση για τη μορφή χρήστη, αυτό το δευτερεύον στοιχείο θα εκτελεστεί αυτόματα.
6. Ανοίξτε το Visual Basic Editor.
7. Στο Project Explorer, κάντε δεξί κλικ στο UserForm1 και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα.
8. Επιλέξτε Userform από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Αρχικοποίηση από τη δεξιά αναπτυσσόμενη λίστα.
9. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Private Sub UserForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
Τέλος υπο
Επεξήγηση: η πρώτη γραμμή κώδικα αλλάζει το χρώμα γραμματοσειράς όλων των κελιών στο φύλλο 1 σε μαύρο. Η δεύτερη γραμμή κωδικού λαμβάνει τη διεύθυνση της τρέχουσας επιλογής και την εμφανίζει στο στοιχείο ελέγχου RefEdit.
Δημιουργήσαμε τώρα το πρώτο μέρος του Userform. Παρόλο που φαίνεται ήδη τακτοποιημένο, τίποτα δεν θα συμβεί ακόμη όταν κάνουμε κλικ στα κουμπιά εντολών στο Userform.
10. Στο Project Explorer, κάντε διπλό κλικ στο UserForm1.
11. Κάντε διπλό κλικ στο κουμπί Μετάβαση.
12. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Private Sub CommandButton1_Click ()
Dim addr Ως συμβολοσειρά, rng, κελί ως εύρος, ελάχιστο ως διπλό
addr = RefEdit1.Value
Ορισμός rng = Εύρος (addr)
ελάχιστο = WorksheetFunction.Min (rng)
Για κάθε κελί σε rng
Εάν cell.Value = ελάχιστο Στη συνέχεια cell.Font.Color = vbRed
Επόμενο κελί
Τέλος υπο
Επεξήγηση: πρώτα, παίρνουμε τη διεύθυνση από το στοιχείο ελέγχου RefEdit και την αποθηκεύουμε στο πρόσθετο μεταβλητής συμβολοσειράς. Στη συνέχεια, θέτουμε το rng στο εύρος που καθορίζεται στο στοιχείο ελέγχου RefEdit. Στη συνέχεια, χρησιμοποιούμε τη συνάρτηση φύλλου εργασίας Min για να βρούμε την ελάχιστη τιμή στο εύρος. Τέλος, χρωματίζουμε την ελάχιστη τιμή (ες) χρησιμοποιώντας ένα βρόχο.
13. Κάντε διπλό κλικ στο κουμπί Ακύρωση.
14. Προσθέστε την ακόλουθη γραμμή κωδικού:
Private Sub CommandButton2_Click ()
Ξεφορτώστε Με
Τέλος υπο
Επεξήγηση: αυτή η γραμμή κωδικού κλείνει τη φόρμα χρήστη όταν κάνετε κλικ στο κουμπί Ακύρωση.
15. Δοκιμάστε τη μορφή χρήστη.
Αποτέλεσμα:
