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

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

Ας υποθέσουμε ότι πρέπει να χρησιμοποιήσετε ένα πλαίσιο ελέγχου για να αποκρύψετε ή να αποκρύψετε ορισμένες σειρές ή στήλες. Για παράδειγμα, όταν είναι επιλεγμένο το πλαίσιο ελέγχου Active X Control, εμφανίζονται οι συγκεκριμένες σειρές ή στήλες, διαφορετικά θα είναι κρυφές. Αυτό το άρθρο σας δείχνει τη μέθοδο χρήσης του πλαισίου ελέγχου για απόκρυψη / απόκρυψη γραμμών ή στηλών στο Excel με λεπτομέρειες.

Χρησιμοποιήστε το πλαίσιο ελέγχου για απόκρυψη / απόκρυψη γραμμών ή στηλών με κώδικα VBA


Χρησιμοποιήστε το πλαίσιο ελέγχου για απόκρυψη / απόκρυψη γραμμών ή στηλών με κώδικα VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αποκρύψετε / αποκρύψετε συγκεκριμένες σειρές ή στήλες με το πλαίσιο ελέγχου.

1. Αφού εισαγάγετε ένα πλαίσιο ελέγχου Active X Control στο φύλλο εργασίας, κάντε δεξί κλικ στο πλαίσιο ελέγχου και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Χρησιμοποιήστε το πλαίσιο ελέγχου για απόκρυψη / απόκρυψη σειρών ή στηλών

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Notes:

1. Στον κώδικα VBA, [CD]. Ολόκληρη η στήλη σημαίνει ότι οι στήλες C και D θα κρύβονται ή θα αποκρύπτονται επιλέγοντας ή καταργώντας την επιλογή του αντίστοιχου πλαισίου ελέγχου.

2. Για απόκρυψη ή εμφάνιση ορισμένων σειρών όπως η σειρά 6: 9, αλλάξτε το [CD]. Ολόκληρη η στήλη προς την [6: 9]. Ολόκληρη η σειρά στον κώδικα VBA.

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

4. Τώρα απενεργοποιήστε το Λειτουργία σχεδίασης σύμφωνα με το Εργολάβος καρτέλα όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης:

Από τώρα και στο εξής, όταν είναι επιλεγμένο το πλαίσιο ελέγχου, εμφανίζονται οι καθορισμένες σειρές ή στήλες. Όταν δεν είναι επιλεγμένο, οι καθορισμένες σειρές ή στήλες είναι κρυφές.


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


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

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

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

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

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

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect Password:="xxxx"
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φαίνεται ότι αυτός ο κωδικός θα πηγαίνει μόνο προς μία κατεύθυνση, δηλαδή μόνο απόκρυψη και όχι απόκρυψη όταν γίνεται κλικ. Υπάρχει τρόπος να διορθωθεί αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχουμε το ίδιο πρόβλημα, αλλά ανακάλυψα ότι χρησιμοποιούμε στοιχεία ελέγχου φορμών και όχι στοιχεία ελέγχου ActiveX. Ο κώδικας λειτουργεί τέλεια στο κουμπί του πλαισίου ελέγχου ActiveX Control. Απλώς απενεργοποιήστε τη Λειτουργία σχεδίασης για να κάνετε κλικ στο πλαίσιο ελέγχου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχουμε το ίδιο πρόβλημα αλλά βρούμε τρόπο να το κάνουμε να λειτουργήσει. Χρησιμοποιήστε το πλαίσιο ελέγχου ActiveX Controls και όχι το πλαίσιο ελέγχου Form Control. Ο κώδικας λειτουργεί τέλεια με το πλαίσιο ελέγχου ActiveX.


Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Προσπαθώ να χρησιμοποιήσω αυτόν τον κωδικό για απόκρυψη/απόκρυψη σε ξεχωριστό φύλλο από το πλαίσιο ελέγχου. Τι πρέπει να προσθέσω για να λειτουργήσει αυτό; Ευχαριστώ εκ των προτέρων.

Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή σας μέρα,
Όπως φαίνεται στον παρακάτω κώδικα, αντικαταστήστε το "Φύλλο4" με το ξεχωριστό όνομα του φύλλου σας.

Private Sub CheckBox1_Click()
[Sheet4!C:D].EntireColumn.Hidden = Not CheckBox1
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

Γεια, έκανα τον κώδικα, λειτουργεί καλά, αλλά όταν προσπαθώ να κάνω το ίδιο σε περισσότερα από ένα πλαίσια ελέγχου στο ίδιο φύλλο, λειτουργούν "μαζί", αποκρύπτουν ή αποκρύπτουν τις σειρές μόνο εάν είναι επιλεγμένα και τα τρία πλαίσια ελέγχου.
Προσπαθώ να κάνω αυτά τα τρία πλαίσια ελέγχου να λειτουργούν ανεξάρτητα το ένα από το άλλο. Και αφήστε τους χρήστες να επισημάνουν μόνο ένα πλαίσιο για κάθε φορά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Λου,
Βεβαιωθείτε ότι τα πλαίσια ελέγχου που δημιουργήσατε είναι πλαίσια ελέγχου ActiveX Controls. Αυτά τα πλαίσια ελέγχου λειτουργούν ανεξάρτητα στο φύλλο εργασίας σας.
Ευχαριστώ για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Υπάρχει τρόπος να κρύψετε μόνο μία σειρά. Αν βάλω 6:9 όλες οι σειρές είναι κρυφές, αλλά αν βάλω μόνο 6, βγαίνει ως σφάλμα. Θα εκτιμούσα τη βοήθειά σας, σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Αλλάξτε τη δεύτερη γραμμή του κώδικα σε:
[6:6].EntireRow.Hidden = Not CheckBox1.
Σας ευχαριστώ για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπάθησα να αποκρύψω τους τρεις πρώτους ρόλους, αλλά δεν λειτούργησε. Πώς μπορώ να το κάνω, το ξέρω ότι το άτομο που μου έστειλε αυτό το αρχείο θέλει να μάθει τις ικανότητές μου, μπορώ να το λύσω ή όχι.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μάη,
Συγγνώμη που δεν κατάλαβα την άποψή σου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτούργησε, αλλά στη συνέχεια, όταν αποθήκευσα το αρχείο και ανοίξω ξανά, δεν λειτουργεί. Προσπάθησα να το αποθηκεύσω ως φύλλο Macro excel και ως κανονικό βιβλίο εργασίας. Τι έκανα λάθος? Θέλω να το δώσω σε κάποιον άλλο να το χρησιμοποιήσει και δεν θέλω να μπερδευτεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου angela, Αφού προσθέσετε τον κώδικα στο βιβλίο εργασίας, κάντε κλικ στο Αρχείο > Αποθήκευση ως, επιλέξτε πού να αποθηκεύσετε το αρχείο, στο πλαίσιο διαλόγου Αποθήκευση ως, επιλέξτε Βιβλίο εργασίας με δυνατότητα Macro-Enabled Excel (*.xlsm) από το αναπτυσσόμενο μενού Αποθήκευση ως τύπου , και τέλος κάντε κλικ στην Αποθήκευση. Στη συνέχεια, στείλτε αυτό το βιβλίο εργασίας με δυνατότητα Macro-Enabled σε άλλους.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμο, αλλά πώς μπορώ να το χρησιμοποιήσω για να κρύψω μόνο ένα μέρος του υπολογιστικού φύλλου; Εννοώ για παράδειγμα κελιά B2:B11, πώς να συνδυάσω αυτές τις δύο συναρτήσεις; Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα γινόταν αν ήθελα να χρησιμοποιήσω 3 διαφορετικά πλαίσια ελέγχου και ήθελα να κάνουν εναλλαγή απόκρυψης διαφορετικών ομάδων σειρών; Δοκίμασα και έψαξα παντού. Όταν προσπαθώ να τροποποιήσω αυτόν τον κωδικό, τα πλαίσια ελέγχου φαίνεται να παρεμβαίνουν μεταξύ τους.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι θα γινόταν αν ήθελα να χρησιμοποιήσω 3 διαφορετικά πλαίσια ελέγχου και ήθελα να κάνουν εναλλαγή απόκρυψης διαφορετικών ομάδων σειρών; Δοκίμασα και έψαξα παντού. Όταν προσπαθώ να τροποποιήσω αυτόν τον κωδικό, τα πλαίσια ελέγχου φαίνεται να παρεμβαίνουν μεταξύ τους.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Preciso de um codigo para ocultar και reexibir colunas indicadas.

Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
Sub End

Σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ουέλινγκτον Μεσκίτα,
Αυτός ο κώδικας VBA μπορεί να επιτύχει:
Όταν είναι επιλεγμένο το πλαίσιο ελέγχου1, εμφανίζεται η στήλη C:D.
Όταν δεν είναι επιλεγμένο, η στήλη C:D είναι κρυμμένη.
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Ποια έκδοση του Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλημέρα!
Espero que todos estejam bem!

Μπορείτε να χρησιμοποιήσετε την ακριβή οφθαλμική / επαναλαμβανόμενη χρήση του στοιχείου Control ActiveX quando solecionado o.

Παράδειγμα: Tenho coluna com os ονόματα: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selectionar somente a coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Ουέλινγκτον
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Συγγνώμη δεν καταλαβαίνω τι εννοείς. Θα θέλατε να παρέχετε ένα στιγμιότυπο οθόνης των δεδομένων σας;
Ίσως χρειαστεί να επισυνάψετε ένα στιγμιότυπο οθόνης ή ένα δείγμα αρχείου για να περιγράψετε πιο ξεκάθαρα το πρόβλημα που αντιμετωπίσατε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
E para ocultar colunas não sequências;
Παράδειγμα: A e C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click Privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
Τέλος υπο"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη. Δοκιμάστε το.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες