Πώς να καταργήσετε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο στο 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 SubNotes:
3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Στη συνέχεια, όταν επιλέγετε ένα νέο πλαίσιο ελέγχου σε μια ομάδα, το αρχικό επιλεγμένο θα καταργηθεί αυτόματα, όπως φαίνεται στο παρακάτω gif.
Επίδειξη: Καταργήστε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο στο Excel
Kutools για Excel περιλαμβάνει 300+ ισχυρές δυνατότητες για το Microsoft Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Κατεβάστε τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
