Σε αυτό το άρθρο, θα δείξουμε πώς να προσθέσετε τον έλεγχο RefEdit σε μορφή χρήστη και να παραπέμψουμε το εύρος κελιών χρησιμοποιώντας αυτό.
Σε αυτό το παράδειγμα, έχουμε δημιουργήσει μια μορφή χρήστη επισήμανσης την οποία μπορούμε να χρησιμοποιήσουμε για την επισήμανση της περιοχής κελιών με κίτρινο χρώμα.
Έχουμε λάβει δείγματα δεδομένων που αποτελούνται από το όνομα και την ώρα σύνδεσης του μέλους της ομάδας.
Προσθήκη RefEdit σε μορφή χρήστη
Προσθέστε μια φόρμα χρήστη, κάντε κλικ στο στοιχείο Επεξεργασία ελέγχου στην εργαλειοθήκη και επιλέξτε και αποθέστε τον έλεγχο στη μορφή χρήστη.
Λογική εξήγηση
Για να επισημάνετε το κελί, κάντε κλικ στο κουμπί Επισήμανση. Θα ανοίξει τη μορφή χρήστη. Επιλέξτε το εύρος χρησιμοποιώντας το RefEdit. Κάντε κλικ στο σύμβολο παύλας για την επιλογή κελιών.
Για να επιλέξετε παρακείμενα κελιά, πατήστε το πλήκτρο Shift ενώ μετακινείστε σε άλλο κελί. Για την επιλογή μη παρακείμενων κελιών, πατήστε το πλήκτρο ελέγχου ενώ επιλέγετε διαφορετικά κελιά. Τα επιλεγμένα κελιά θα περιστοιχίζονται από διακεκομμένες γραμμές και η διεύθυνση κελιού θα εμφανίζεται στο πλαίσιο.
Τα επιλεγμένα κελιά θα επισημανθούν με κίτρινο χρώμα πατώντας το κουμπί Ok. Το κουμπί κλικ στο κουμπί Ok περιέχει τον κωδικό VBA για την επισήμανση των επιλεγμένων κελιών.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub running () UserForm1.Show End Sub 'Προσθέστε τον παρακάτω κώδικα στο κουμπί "Ok" on userform Option Explicit Private Sub CommandButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Λάβετε τη διεύθυνση από τη διεύθυνση ελέγχου RefEdit1 = RefEdit1.Value 'Ορίστε το αντικείμενο SelectRange Range στο εύρος που καθορίζεται στο στοιχείο RefEdit Set Set SelectRange = Range (Address1)' Επισημάνετε το επιλεγμένο εύρος με κίτρινο χρώμα SelectRange.Interior.Color = RGB (255, 255, 0) 'Ξεφορτώστε το userform. Unload Me Last: End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email