Πώς να κάνετε μόνο ένα πλαίσιο ελέγχου για επιλογή σε μια ομάδα πλαισίων ελέγχου στο Excel;
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, για μια ομάδα πλαισίων ελέγχου που αναφέρονται στη σειρά 2, όταν επιλέγετε ή επιλέγετε μόνο ένα πλαίσιο ελέγχου, τα άλλα πλαίσια ελέγχου θα απενεργοποιηθούν. Πώς να το πετύχετε; Ο κωδικός VBA σε αυτό το άρθρο μπορεί να σας βοηθήσει.
Κάντε μόνο ένα πλαίσιο ελέγχου για επιλογή με τον κωδικό VBA
Κάντε μόνο ένα πλαίσιο ελέγχου για επιλογή με τον κωδικό VBA
Μπορείτε να εκτελέσετε τους παρακάτω κωδικούς VBA για να επιλέξετε μόνο ένα πλαίσιο ελέγχου σε μια ομάδα πλαισίων ελέγχου ανά φορά. Κάντε τα εξής.
1. Πρώτον, εισαγάγετε τα πλαίσια ελέγχου όπως χρειάζεστε. Εδώ, θα πρέπει να εισαγάγετε το Πλαίσια ελέγχου ActiveX Control όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης:
2. Στη συνέχεια, πατήστε άλλος + F11 πλήκτρα ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Ενότητα τάξης.
4. Αλλάξτε το όνομα της τάξης σε ClsChk στο (Όνομα) κουτί του Ιδιοκτησίες παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο αντίστοιχο Κώδικας παράθυρο. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA 1: Επιλέξτε μόνο ένα πλαίσιο ελέγχου ανά φορά
Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub
Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then
I = Right(Target.Name, Len(Target.Name) - 8)
For n = 1 To ActiveSheet.OLEObjects.Count
If n <> Int(I) Then
Set xObj = ActiveSheet.OLEObjects.Item(n)
xObj.Object.Value = False
xObj.Object.Enabled = False
End If
Next
Else
I = Right(Target.Name, Len(Target.Name) - 8)
For n = 1 To ActiveSheet.OLEObjects.Count
If n <> Int(I) Then
Set xObj = ActiveSheet.OLEObjects.Item(n)
xObj.Object.Enabled = True
End If
Next
End If
End Sub
5. Τώρα κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA 2: Επιλέξτε μόνο ένα πλαίσιο ελέγχου ανά φορά
Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
Set xSht = ActiveSheet
Set xCollection = Nothing
For Each xObj In xSht.OLEObjects
If xObj.Name Like "CheckBox**" Then
Set xChk = New ClsChk
Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
xCollection.Add xChk
End If
Next
Set xChk = Nothing
End Sub
6. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.
Από τώρα και στο εξής, όταν επιλέγετε οποιοδήποτε από τα πλαίσια ελέγχου στο φύλλο εργασίας, τα άλλα πλαίσια ελέγχου θα απενεργοποιηθούν αυτόματα και μπορείτε να το καταργήσετε για να ενεργοποιήσετε ξανά όλα τα πλαίσια ελέγχου.
Note: Εάν προστεθεί νέο πλαίσιο ελέγχου στην ομάδα ελέγχου, εκτελέστε ξανά τον κωδικό VBA για να ενεργοποιήσετε ξανά όλα τα πλαίσια ελέγχου. Η διαγραφή του πλαισίου ελέγχου από την ομάδα ελέγχου πρέπει επίσης να εκτελέσει ξανά τον κώδικα.
Rεπιμελημένα άρθρα:
- Πώς να φιλτράρετε δεδομένα με βάση το πλαίσιο ελέγχου στο Excel;
- Πώς να αποκρύψετε το πλαίσιο ελέγχου όταν η σειρά είναι κρυφή στο Excel;
- Πώς να επισημάνετε το κελί ή τη γραμμή με το πλαίσιο ελέγχου στο Excel;
- Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel;
- Πώς να εισαγάγετε σφραγίδα ημερομηνίας σε ένα κελί, εάν είναι επιλεγμένο ένα πλαίσιο ελέγχου στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!