Πώς να καταργήσετε την επιλογή ενός άλλου πλαισίου ελέγχου όταν ένα πλαίσιο ελέγχου είναι επιλεγμένο στο 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

Σημειώσεις:

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

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

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