Πώς να ελέγξετε κάθε έλεγχο μιας ομάδας στο Excel VBA

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

1 Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να μπείτε στο περιβάλλον προγραμματισμού VBA , στη συνέχεια, κάντε κλικ στο "Εισαγωγή " " userform " μενού για να δημιουργήσετε μια νέα φόρμα στην οποία θα τοποθετήσετε ελέγχους . Εάν η καρτέλα "Προγραμματιστής " δεν εμφανίζεται μεταξύ των επιλογών του μενού στο Excel , ίσως χρειαστεί να ενεργοποιήσετε την οθόνη του στις επιλογές του Excel . 2

Κάντε κλικ στο " κουμπί" έλεγχος από την εργαλειοθήκη , στη συνέχεια, σύρετε την userform να δημιουργήσετε ένα κουμπί . Κάντε κλικ στο " OptionButton " ελέγχου από την εργαλειοθήκη , σύρετε την userform να δημιουργήσετε ένα κουμπί επιλογής . Κάντε δεξί κλικ σε αυτό το κουμπί και κάντε κλικ στο "Ιδιότητες " για να εμφανίσετε μια λίστα των χαρακτηριστικών για τον έλεγχο .
Εικόνων 3

Κάντε κλικ στο " Enabled " σειρά "Ιδιότητες " παράθυρο , στη συνέχεια, πληκτρολογήστε "False " για να δείξει ότι το κουμπί επιλογής δεν είναι σε θέση να επεξεργαστεί εισόδου. Σημειώστε ότι το κουμπί εντολής , που δημιουργήσατε στο βήμα 2 , είναι ενεργοποιημένη από προεπιλογή .
Η

4 Κάντε κλικ στο " Πλαίσιο" έλεγχο στην εργαλειοθήκη , στη συνέχεια, σύρετε την userform . Κάντε κλικ στο κουμπί ελέγχου που κάνατε στο βήμα 1 και, στη συνέχεια , πιέστε το πλήκτρο "Control " και " X " ταυτόχρονα να κόψει αυτό το στοιχείο ελέγχου στο πρόχειρο .
5

Κάντε κλικ στο " Πλαίσιο" ελέγχου, στη συνέχεια πιέστε το πλήκτρο " Control" και " V " για να επικολλήσετε ταυτόχρονα το πλήκτρο μέσα στο πλαίσιο . Επαναλάβετε την αποκοπή και επικόλληση με το κουμπί επιλογής για να το επικολλήσετε μέσα στο πλαίσιο , καθώς και . Με την τοποθέτηση των δύο ελέγχους στο πλαίσιο, έχετε κάνει μια ομάδα που περιέχει και τα δύο χειριστήρια . Θα γράψετε τώρα κώδικα που ελέγχει μια ιδιότητα του κάθε ελέγχου .
Η

6 Κάντε διπλό κλικ στο userform για να εμφανιστεί το παράθυρο προγραμματισμού , στη συνέχεια, επικολλήστε το ακόλουθο πρόγραμμα στο παράθυρο . Επαναλαμβάνει αυτό το πρόγραμμα μέσα από κάθε έλεγχο στο πλαίσιο , διαβάζοντας το " Enabled " ακίνητο που καθορίζεται στο βήμα 3 , και εκτύπωση της αξίας του εν λόγω ακινήτου .

Private Sub UserForm_Click ( )

Dim ct Όπως Έλεγχος

Dim s As String

For Each ct Σε Frame1.Controls

Εάν ct.Enabled = True τότε

s = ct.Name & " είναι ενεργοποιημένη . "

Else

s = ct.Name & " είναι απενεργοποιημένη . "