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

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

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

αποεπιλέξτε το πλαίσιο ελέγχου 1

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


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

Καταργήστε την επιλογή ή αποεπιλέξτε όλα τα επιλεγμένα πλαίσια ελέγχου (Έλεγχοι φόρμας):

Εάν τα πλαίσια ελέγχου σας είναι στοιχεία ελέγχου φόρμας, μπορείτε να τα καταργήσετε ταυτόχρονα με τον ακόλουθο κώδικα VBA:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

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

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα επιλεγμένα πλαίσια ελέγχου έχουν καταργηθεί ταυτόχρονα στο ενεργό φύλλο εργασίας.


Καταργήστε την επιλογή ή αποεπιλέξτε όλα τα επιλεγμένα πλαίσια ελέγχου (ActiveX Controls):

Εάν τα πλαίσια ελέγχου είναι στοιχεία ελέγχου ActiveX, εφαρμόστε τον παρακάτω κώδικα VBA:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

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

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα επιλεγμένα πλαίσια ελέγχου έχουν αποεπιλεγεί ταυτόχρονα στο ενεργό φύλλο εργασίας.


Εισαγάγετε πολλά πλαίσια ελέγχου σε επιλογές ταυτόχρονα

Kutools για Excel's Μαζική εισαγωγή κουτιών ελέγχου βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να εισαγάγετε γρήγορα πολλά πλαίσια ελέγχου ταυτόχρονα. Κάντε κλικ για λήψη του Kutools για Excel!


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (14)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ για αυτόν τον κώδικα vba, βοήθησε πολύ.

FYI για άτομα που δεν το κάνουν να λειτουργήσει πατώντας το F5, απλά :

καρτέλα προγραμματιστή > μακροεντολές > επιλέξτε τη λειτουργική μονάδα που μόλις δημιουργήσατε και κάντε κλικ στις επιλογές > πληκτρολογήστε έναν χαρακτήρα για τη συντόμευση, όπως ctrl+j ή ctrl+k.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για τη βοήθειά σας σε αυτό. Εκτιμάται πολύ. Ωστόσο, σημειώστε: Η ΟΡΘΟΓΡΑΦΙΑ ΕΙΝΑΙ ΛΑΘΟΣ ΣΤΟΝ ΚΩΔΙΚΑ ΓΙΑ ΤΟ ΒΗΜΑ #2. Κωδικός VBA: Καταργήστε την επιλογή ή αποεπιλέξτε όλα τα επιλεγμένα πλαίσια ελέγχου (Στοιχεία ελέγχου ActiveX):
Δευτερεύον πλαίσιο διαγραφής()
«Ενημέρωση από την Extendoffcie
Dim c Ως αντικείμενο
Για κάθε c Στο ActiveSheet.OLEObjects
Εάν InStr(1, c.Name, "CheckBox") > 0 Τότε
c.Object.Value = False
End If
Επόμενο
Sub End

ΠΑΡΑΚΑΛΩ ΣΗΜΕΙΩΣΤΕ Η ΛΕΞΗ "Extendoffcie" ΔΕΝ ΕΙΝΑΙ ΟΡΘΟΓΡΑΦΗ ΣΩΣΤΑ. ΔΕΝ ΠΡΕΠΕΙ ΝΑ ΕΙΝΑΙ"Extendoffice"; Τέλος πάντων, απλώς ήθελα να το βάλω εκεί έξω
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα γινόταν αν ήθελα να χρησιμοποιήσω ένα κουμπί για να ενεργοποιήσω τη μακροεντολή για να καθαρίσω τα πλαίσια;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Άριελ,
Για να χρησιμοποιήσετε ένα κουμπί για να ενεργοποιήσετε τη μακροεντολή, πρώτα, θα πρέπει να εισαγάγετε ένα κουμπί από την αναπτυσσόμενη λίστα Σχήματα και, στη συνέχεια, κάντε δεξί κλικ στο κουμπί, επιλέξτε Εκχώρηση μακροεντολής από το μενού περιβάλλοντος και, στη συνέχεια, επιλέξτε το όνομα μακροεντολής στο πλαίσιο διαλόγου Εκχώρηση μακροεντολής . Στη συνέχεια, κάντε κλικ στο OK και ο κωδικός μακροεντολής θα συνδεθεί με το κουμπί.
Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να καταργήσω την επιλογή μόνο των πλαισίων σε μια συγκεκριμένη περιοχή κελιών στο ενεργό φύλλο; Έχω 3 λίστες σε ένα φύλλο (Ημερήσιες/Εβδομαδιαίες/Μηνιαίες εργασίες) και ήθελα να δημιουργήσω ένα κουμπί "Διαγραφή όλων" για κάθε λίστα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μεγάλη βοήθεια! σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΩΜ ΕΥΧΑΡΙΣΤΩ, ΑΥΤΗ Η ΙΣΤΟΣΕΛΙΔΑ ΕΙΝΑΙ ΜΙΑ ΖΩΗ:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les case (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méectode "S est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "Checkboxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute ερώτηση, n'hésitez pas à nous contacter. Passe une bonne journée.
Με εκτίμηση,
Mandy
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Private Sub CheckBox2_Click()
Αν CheckBox2 = True Τότε
Πλαίσιο ελέγχου 1 = Λάθος
End If
Sub End
Private Sub CheckBox1_Click()
Αν CheckBox1 = True Τότε
Πλαίσιο ελέγχου 2 = Λάθος
End If
Sub End

Σας ευχαριστώ για τη βοήθειά σας
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Siegfried
Εάν θέλετε να ελέγξετε ένα και να απενεργοποιήσετε ένα άλλο, εφαρμόστε τον παρακάτω κωδικό:
Note: Το πλαίσιο ελέγχου εδώ θα πρέπει να χρησιμοποιήσετε το πλαίσιο ελέγχου ActiveX Control.
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Παρακαλώ δοκιμάστε, ελπίζω να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα διαγραφούν όλα τα πλαίσια ελέγχου σε όλα τα φύλλα εργασίας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ραμόν

Για να καταργήσετε όλα τα πλαίσια ελέγχου σε όλα τα φύλλα, εφαρμόστε τους παρακάτω κωδικούς:
Καταργήστε την επιλογή όλων των πλαισίων ελέγχου από όλα τα φύλλα (Στοιχεία ελέγχου φόρμας):
Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub


Καταργήστε την επιλογή όλων των πλαισίων ελέγχου από όλα τα φύλλα (Στοιχεία ελέγχου ActiveX):
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


Παρακαλώ δοκιμάστε, ελπίζω αυτό να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα διαγράψω όλα τα πλαίσια ελέγχου σε όλα τα φύλλα εργασίας;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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