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

Πώς να συνδέσετε τα πλαίσια ελέγχου σε πολλά κελιά στο Excel;

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

Συνδέστε τα πλαίσια ελέγχου σε πολλά κελιά με έναν τύπο έναν προς έναν

Συνδέστε τα πλαίσια ελέγχου σε πολλά κελιά ταυτόχρονα με τον κώδικα VBA


βέλος μπλε δεξιά φούσκα Συνδέστε τα πλαίσια ελέγχου σε πολλά κελιά με έναν τύπο έναν προς έναν

Για να συνδέσετε το πλαίσιο ελέγχου σε ένα συγκεκριμένο κελί, στην πραγματικότητα, μπορείτε να εφαρμόσετε έναν απλό τύπο για να τα συνδέσετε χειροκίνητα.

1. Αφού εισαγάγετε τα πλαίσια ελέγχου στο φύλλο εργασίας σας, για να επιλέξετε το πλαίσιο ελέγχου, πατήστε Ctrl και, στη συνέχεια, κάντε κλικ στο πρώτο πλαίσιο ελέγχου που θέλετε να συνδέσετε με άλλο κελί.

2. Στη συνέχεια, στη γραμμή τύπων, πληκτρολογήστε το σύμβολο ίσου =και, στη συνέχεια, κάντε κλικ σε ένα κελί στο οποίο θέλετε να συνδέσετε το πλαίσιο ελέγχου, για παράδειγμα, B2, δείτε το στιγμιότυπο οθόνης:

doc-link-multiple-checkboxes-1

3. Και στη συνέχεια πατήστε εισάγετε πλήκτρο στο πληκτρολόγιο, τώρα, όταν επιλέγετε αυτό το πλαίσιο ελέγχου, θα εμφανιστεί το συνδεδεμένο κελί ΑΛΗΘΙΝΗ, εάν καταργήσετε την επιλογή, θα εμφανιστεί ΨΕΥΔΗΣ, δείτε το στιγμιότυπο οθόνης:

doc-link-multiple-checkboxes-2

4. Επανέλαβε τα παραπάνω βήματα για να συνδέσετε άλλα πλαίσια ελέγχου ένα προς ένα.


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

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

1. Μεταβείτε στο φύλλο εργασίας σας με τη λίστα των πλαισίων ελέγχου.

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

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

Κωδικός VBA: συνδέστε τα πλαίσια ελέγχου σε πολλά κελιά ταυτόχρονα

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

4. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, όλα τα πλαίσια ελέγχου στο ενεργό φύλλο εργασίας έχουν συνδεθεί με τα κελιά, όταν επιλέγετε το πλαίσιο ελέγχου, θα εμφανιστεί το σχετικό κελί του ΑΛΗΘΙΝΗ, εάν καταργήσετε ένα πλαίσιο ελέγχου, θα πρέπει να εμφανίζεται το συνδεδεμένο κελί ΨΕΥΔΗΣ, δείτε το στιγμιότυπο οθόνης:

doc-link-multiple-checkboxes-3

Note: Στον παραπάνω κώδικα, i = 2, ο αριθμός 2 είναι η αρχική σειρά του πλαισίου ελέγχου και το γράμμα B είναι η θέση της στήλης στην οποία πρέπει να συνδέσετε τα πλαίσια ελέγχου. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.


Σχετικά άρθρα:

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

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

Πώς να διαγράψετε γρήγορα πολλά πλαίσια ελέγχου στο 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (16)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω περισσότερα από 40000 κελιά που έχουν πλαίσιο ελέγχου. όταν χρησιμοποιώ αυτόν τον κωδικό, χρειάζονται περισσότερα από 5 δευτερόλεπτα για την επεξεργασία, ορίζω διαφορετικές μακροεντολές για διαφορετικά κελιά, αλλά έχω ακόμα το πρόβλημα, τι μπορώ να κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Στον κώδικα VBA: σύνδεση πλαισίων ελέγχου σε πολλά κελιά ταυτόχρονα, ο κώδικας έχει ρυθμιστεί για να συνδέσει το κελί κάτω από αυτό. Πώς είναι ο κωδικός αν θέλω να συνδέσω το κελί στα αριστερά του πρώτου; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να το κάνω αυτό και να προγραμματίσω τα πλαίσια ώστε να λένε κάτι διαφορετικό από το αληθινό και το ψευδές;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γειά σου! Ωραία ανάρτηση για το VBA... αλλά τι γίνεται αν υπάρχουν 3 στήλες που έχουν πλαίσια ελέγχου που πρέπει να συνδεθούν και σε άλλες τρεις στήλες; Ας υποθέσουμε ότι οι στήλες B, C και D έχουν πλαίσια ελέγχου και θα πρέπει να συνδέονται με τις στήλες H, I και J αντίστοιχα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Αντιμετωπίζετε το ίδιο πρόβλημα - Έχετε ανακαλύψει πώς να το αντιμετωπίσετε; Ευχαριστώ, Παύλο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου,

Δοκιμάστε αυτό:

Sub LinkCheckBoxes()
Dim chk Ως πλαίσιο ελέγχου
Dim lCol As Long
lCol = 2 'αριθμός στηλών στα δεξιά για σύνδεσμο

Για κάθε chk In ActiveSheet.CheckBoxes
Με χκ
.LinkedCell = _
.TopLeftCell.Offset(0, lCol).Διεύθυνση
Τέλος με
Επόμενο chk

Sub End



Εάν έχετε, για παράδειγμα, πλαίσια ελέγχου στα D, E, F αλλάξτε το "Icol" σε 1, ώστε να συνδέεται με τα G, H και I, αντίστοιχα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να με βοηθήσετε με το ίδιο πρόβλημα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, έχω το ίδιο πρόβλημα αλλά δεν μου λειτούργησε, μπορείτε να με βοηθήσετε. Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub LinkCheckBoxes()

Dim chk Ως πλαίσιο ελέγχου

Dim lCol As Long

lCol = 1 'αριθμός στηλών στα δεξιά για σύνδεσμο



Για κάθε chk In ActiveSheet.CheckBoxes

Με χκ

.LinkedCell = _

.TopLeftCell.Offset(0, lCol).Διεύθυνση

Τέλος με

Επόμενο chk



Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα λέγατε αν έχετε κάποιες κενές σειρές στη ΣτήληΑ (όπως στο παράδειγμά σας) ανάμεσα στα πλαίσια ελέγχου; Χρησιμοποιώντας τον παραπάνω κώδικα, γίνονται λάθος τα συνδεδεμένα κελιά εάν υπάρχουν κενές σειρές επειδή δεν τις παρακάμπτει. Ενδιαφέρομαι να δω τη λύση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρήκες κάποια λύση για αυτό; Το ιδιο ΠΡΟΒΛΗΜΑ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
υπέροχο νήμα και λειτουργεί για μένα.
ΑΛΛΑ, πρέπει να αποθηκεύσω τα δεδομένα TRUE/FALSE σε άλλο φύλλο. Τι είναι το VBA για να το αποθηκεύσετε σε άλλο φύλλο εκτός από το ενεργό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας
Подскажите. Возможно ли суммирование чисел в ячейках по установке флажка?

https://drive.google.com/file/d/1qmEnngPDdgWTISJETJ44IkxG-MABfqhh/view?usp=sharing[/img][/b][/u][/b

Στην ячейке F3 κρυφά 2 σε ячейке G3 κρυφά 0,3, μπορείτε να κάνετε τάκ чтоб με установки галочки в ячейке Q3 вычислялась summa.
Сумма вычислений только на строку в дијапазоне F3-P3
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το πρόβλημά μου είναι: Δημιουργώ μια λίστα εργασιών με καθημερινές συνήθειες. Θέλω να μπορώ να κάνω στατιστικά από αυτό χρησιμοποιώντας το true και false από τον έλεγχο του πλαισίου που συνδέεται με ένα κελί, αλλά δεν θέλω να το κάνω μεμονωμένα, αλλά όταν χρησιμοποιώ τον κωδικό δεν συμβαίνει τίποτα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Γκρέγκορ,
Ο κώδικας VBA λειτουργεί καλά στο βιβλίο εργασίας μου.
Μπορείτε να ανεβάσετε το αρχείο σας εδώ, για να ελέγξουμε πού βρίσκεται το πρόβλημα.
Ευχαριστώ!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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