Μετάβαση στο κύριο περιεχόμενο

Πώς να καταργήσετε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο στο Excel;

Όπως φαίνεται στο παρακάτω gif, ας υποθέσουμε ότι υπάρχει μια λίστα αγορών που πρέπει να οριστικοποιηθεί από εσάς. Κατά τον έλεγχο της λίστας, διαπιστώνετε ότι τα επιλεγμένα στοιχεία σε ορισμένες κατηγορίες υπερβαίνουν τον προϋπολογισμό και πρέπει να τα επιλέξετε ξανά. Επειδή η λίστα είναι πολύ μεγάλη, χρειάζεστε πλέον έναν πιο αποτελεσματικό τρόπο για να καταργήσετε αυτόματα την επιλογή του αρχικού πλαισίου ελέγχου όταν ελέγχεται ένα νέο πλαίσιο ελέγχου σε μια κατηγορία. Αυτό το σεμινάριο παρουσιάζει τη μέθοδο βήμα-βήμα για να σας βοηθήσει να την ολοκληρώσετε.

Καταργήστε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα νέο πλαίσιο ελέγχου είναι επιλεγμένο με κωδικό VBA


Καταργήστε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα νέο πλαίσιο ελέγχου είναι επιλεγμένο με κωδικό VBA

Όπως φαίνεται στην παραπάνω επίδειξη, ονομάστηκαν δέκα πλαίσια ελέγχου Πλαίσιο ελέγχου 1, Πλαίσιο ελέγχου 2, Πλαίσιο ελέγχου 3,..., Πλαίσιο ελέγχου 10 χωρίζονται σε 3 ομάδες και βρίσκονται σε διαφορετικές κατηγορίες στον πίνακα.

Σε αυτό το παράδειγμα, το πλαίσιο ελέγχου1, 2, 3 είναι σε μία ομάδα, το πλαίσιο ελέγχου 4, 5, 6, 7 είναι σε μία ομάδα και το πλαίσιο ελέγχου 8, 9,10 είναι στην ίδια ομάδα. Σε κάθε ομάδα, επιτρέπεται να ελέγχεται μόνο ένα πλαίσιο ελέγχου κάθε φορά. Όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο, ένα άλλο πλαίσιο ελέγχου καταργείται αυτόματα.

Ας δούμε τώρα πώς να εφαρμόσετε τον ακόλουθο κώδικα VBA για να λύσετε αυτό το πρόβλημα.

1. Κάντε δεξί κλικ στην καρτέλα του φύλλου και κάντε κλικ Προβολή κωδικού από το μενού περιβάλλοντος.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο , επικολλήστε τον ακόλουθο κώδικα VBA στο Φύλλο (Κωδικός) παράθυρο.

Κωδικός VBA: Καταργήστε την επιλογή ενός άλλου πλαισίου ελέγχου όταν είναι επιλεγμένο ένα νέο πλαίσιο ελέγχου

Dim xBol As Boolean
'Updated by Extendoffice 20220816
Private Sub CheckBox1_Change()
SetCheckBoxes "CheckBox1"
End Sub

Private Sub CheckBox2_Change()
SetCheckBoxes "CheckBox2"
End Sub

Private Sub CheckBox3_Change()
SetCheckBoxes "CheckBox3"
End Sub

Private Sub CheckBox4_Change()
SetCheckBoxes "CheckBox4"
End Sub

Private Sub CheckBox5_Change()
SetCheckBoxes "CheckBox5"
End Sub

Private Sub CheckBox6_Click()
SetCheckBoxes "CheckBox6"
End Sub

Private Sub CheckBox7_Click()
SetCheckBoxes "CheckBox7"
End Sub
Private Sub CheckBox8_Click()
SetCheckBoxes "CheckBox8"
End Sub
Private Sub CheckBox9_Click()
SetCheckBoxes "CheckBox9"
End Sub
Private Sub CheckBox10_Click()
SetCheckBoxes "CheckBox10"
End Sub

Private Function SetCheckBoxes(mCheckBoxName As String)
Dim x As Long
Dim xAllArr
Dim xArrItem
Dim xI, xJ
If Not xBol Then Exit Function
'In the following line, the checkboxes enclosed in double quotes belong to the same group, and each checkbox is separated by a comma. To add more checkbox groups, please enclose the checkboxes in new double quotes.
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
For xI = LBound(xAllArr) To UBound(xAllArr)
If InStr(xAllArr(xI), mCheckBoxName) > 0 Then
xBol = False
xArrItem = Split(xAllArr(xI), ",")
For xJ = LBound(xArrItem) To UBound(xArrItem)
If xArrItem(xJ) <> mCheckBoxName Then
Me.OLEObjects(xArrItem(xJ)).Object.Value = False
End If
Next
End If
Next
xBol = True
End Function

Private Sub Worksheet_Activate()
xBol = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xBol = True
End Sub

Notes:

1) Στον κωδικό, Πλαίσιο ελέγχου 1, πλαίσιο ελέγχου 2, ..., Πλαίσιο ελέγχου 10 είναι το όνομα των πλαισίων ελέγχου.
2) Στην επόμενη γραμμή, τα πλαίσια ελέγχου που περικλείονται σε διπλά εισαγωγικά ανήκουν στην ίδια ομάδα και κάθε πλαίσιο ελέγχου χωρίζεται με κόμμα. Για να προσθέσετε περισσότερες ομάδες πλαισίων ελέγχου, περικλείστε τα πλαίσια ελέγχου σε νέα διπλά εισαγωγικά.
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
3) Τα πλαίσια ελέγχου είναι ελέγχου ActiveX πλαίσια ελέγχου.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Στη συνέχεια, όταν επιλέγετε ένα νέο πλαίσιο ελέγχου σε μια ομάδα, το αρχικό επιλεγμένο θα καταργηθεί αυτόματα, όπως φαίνεται στο παρακάτω gif.


Επίδειξη: Καταργήστε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο στο Excel

  Kutools για Excel περιλαμβάνει 300+ ισχυρές δυνατότητες για το Microsoft Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Κατεβάστε τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations