Note: The other languages of the website are Google-translated. Back to English

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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL