Cum se folosește caseta de selectare pentru a ascunde / dezvălui rândurile sau coloanele din Excel?

Presupunând că trebuie să utilizați o casetă de selectare pentru a ascunde sau dezvălui anumite rânduri sau coloane. De exemplu, când este bifată caseta de control Active X Control, sunt afișate anumite rânduri sau coloane, în caz contrar, acestea vor fi ascunse. Acest articol vă arată metoda de utilizare a casetei de selectare pentru a ascunde / dezvălui rândurile sau coloanele din Excel cu detalii.

Utilizați caseta de selectare pentru a ascunde / afișa rânduri sau coloane cu cod VBA

Utilizați caseta de selectare pentru a ascunde / afișa rânduri sau coloane cu cod VBA

Următorul cod VBA vă poate ajuta să ascundeți / dezvăluiți anumite rânduri sau coloane cu caseta de selectare.

1. După ce ați inserat o casetă de control Active X Control în foaia de lucru, faceți clic dreapta pe caseta de selectare și apoi selectați Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:

2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod VBA în fereastra Cod.

Cod VBA: utilizați caseta de selectare pentru a ascunde / dezvălui rândurile sau coloanele

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

notițe:

1. În codul VBA, [CD]. EntireColumn înseamnă că coloanele C și D vor fi ascunse sau dezvăluite bifând sau debifând caseta de selectare corespunzătoare.

2. Pentru ascunderea sau afișarea anumitor rânduri, cum ar fi rândul 6: 9, vă rugăm să schimbați [CD]. EntireColumn la [6: 9]. Întregul rând în codul VBA.

3. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

4. Acum, vă rugăm să opriți Mod de proiectare în temeiul Dezvoltator filă după cum se arată în imaginea de mai jos:

De acum înainte, când este bifată caseta de selectare, sunt afișate rândurile sau coloanele specificate. Când este debifat, rândurile sau coloanele specificate sunt ascunse.

Legate de articole:

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare...

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...

Comentarii (26)

Încă nu există evaluări. Fii primul care evaluează!

Wayne Bailey

în urmă cu aproximativ 5 de ani

#19936

Acest comentariu a fost redus la minimum de moderatorul de pe site

Există o modalitate de a utiliza „Utilizați caseta de selectare pentru a ascunde/ascunde rândurile sau coloanele cu cod VBA” pe o foaie de lucru protejată?

răspuns

Pieter Ramaut

în urmă cu aproximativ 5 de ani

#21920

Acest comentariu a fost redus la minimum de moderatorul de pe site

@Wayne:

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect Password:="xxxx"
End Sub

răspuns

Cole

în urmă cu aproximativ 4 de ani

#24379

Acest comentariu a fost redus la minimum de moderatorul de pe site

Se pare că acest cod va merge într-o singură direcție, adică le va ascunde și nu le va ascunde atunci când se face clic. Există vreo modalitate de a corecta acest lucru?

răspuns

Kentthegreet Cole

în urmă cu aproximativ 4 de ani

#24380

Acest comentariu a fost redus la minimum de moderatorul de pe site

Avem aceeași problemă, dar am aflat că folosim Form Controls și nu ActiveX Controls. Codul funcționează perfect în butonul ActiveX Control Checkbox. Doar dezactivați modul de proiectare, astfel încât să puteți face clic pe bifa caseta de selectare.

răspuns

Kent Thegreet Cole

în urmă cu aproximativ 4 de ani

#24381

Acest comentariu a fost redus la minimum de moderatorul de pe site

Avem aceeași problemă, dar găsim o modalitate de a o face să funcționeze. Vă rugăm să utilizați caseta de selectare ActiveX Controls și nu la caseta de selectare Form Control. Codul funcționează perfect cu caseta de selectare ActiveX.

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

răspuns

Report

în urmă cu aproximativ 3 de ani

#28132

Acest comentariu a fost redus la minimum de moderatorul de pe site

Buna,

Încerc să folosesc acest cod pentru a ascunde/ascunde pe o foaie separată din caseta de selectare. Ce trebuie să adaug pentru ca acest lucru să funcționeze? Mulțumesc anticipat.

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

răspuns

cristal Ed

în urmă cu aproximativ 3 de ani

#28133

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună ziua,
După cum se arată în codul următor, vă rugăm să înlocuiți „Sheet4” cu numele separat al foii.

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

răspuns

Report

Lou

în urmă cu aproximativ 3 de ani

#29360

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună,

Bună, am făcut codul, funcționează bine, dar când încerc să fac același lucru în mai multe casete de selectare de pe aceeași foaie, acestea lucrează „împreună”, ascund sau afișează rândurile doar dacă sunt selectate toate cele trei casete de selectare.
Încerc să fac aceste trei casete de selectare să funcționeze independent una de alta. Și lăsați utilizatorii să marcheze o singură casetă la un moment dat.

răspuns

cristal Lou

în urmă cu aproximativ 3 de ani

#29361

Acest comentariu a fost redus la minimum de moderatorul de pe site

Salut Lou,
Asigurați-vă că casetele de selectare pe care le-ați creat sunt casete de selectare ActiveX Controls. Aceste casete de selectare funcționează independent în foaia de lucru.
Vă mulțumim pentru comentariu.

răspuns

Report

Therese

în urmă cu aproximativ 3 de ani

#30984

Acest comentariu a fost redus la minimum de moderatorul de pe site

Buna,

Există vreo modalitate de a ascunde un singur rând? Dacă pun 6:9 toate rândurile sunt ascunse, dar dacă pun doar 6, iese ca eroare. As aprecia ajutorul tau, multumesc!

răspuns

cristal Therese

în urmă cu aproximativ 3 de ani

#30985

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună,
Schimbați a doua linie din cod în:
[6:6].EntireRow.Hidden = Not CheckBox1.
Multumesc pentru comentariu.

răspuns

Report

Mai

în urmă cu aproximativ 3 de ani

#31355

Acest comentariu a fost redus la minimum de moderatorul de pe site

Am încercat să ascund primele trei roluri, dar nu a funcționat. Cum pot să o fac, știu că persoana care mi-a trimis acel fișier vrea să-mi cunoască abilitățile, o pot rezolva sau nu.

răspuns

cristal Mai

în urmă cu aproximativ 3 de ani

#31356

Acest comentariu a fost redus la minimum de moderatorul de pe site

Salut May,
Îmi pare rău că nu am înțeles punctul tău de vedere.

răspuns

Report

Angela

în urmă cu aproximativ 3 de ani

#31530

Acest comentariu a fost redus la minimum de moderatorul de pe site

A funcționat, dar atunci când am salvat fișierul și l-am redeschis, nu funcționează. Am încercat să-l salvez ca foaie Macro Excel și ca registru de lucru obișnuit. Ce am făcut greșit? Vreau să-l dau altcuiva pentru a-l folosi și nu vreau să fie confundat.

răspuns

cristal Angela

în urmă cu aproximativ 2 de ani

#31531

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună angela, După ce ați adăugat codul în registrul de lucru, faceți clic pe Fișier > Salvați ca, alegeți unde să salvați fișierul, în caseta de dialog Salvare ca, alegeți Registrul de lucru cu macrocomandă Excel (*.xlsm) din meniul derulant Salvare ca tip și, în final, dați clic pe Salvați. Apoi trimiteți acest registru de lucru Excel Macro-Enabled altora.

răspuns

Report

Maggie

în urmă cu aproximativ 2 de ani

#32767

Acest comentariu a fost redus la minimum de moderatorul de pe site

Foarte util, dar cum îl pot folosi pentru a ascunde doar o parte a foii de calcul? Adică, de exemplu, celulele B2: B11, cum să combin acele două funcții? Mulțumiri.

răspuns

Eric

despre 1 an în urmă

#35115

Acest comentariu a fost redus la minimum de moderatorul de pe site

Ce se întâmplă dacă aș vrea să folosesc 3 casete de selectare diferite și aș vrea ca fiecare să ascund diferite grupuri de rânduri? Am încercat și m-am uitat peste tot. Când încerc să modific acest cod, casetele de selectare par să interfereze unele cu altele.

răspuns

etb1025

despre 1 an în urmă

#35116

Acest comentariu a fost redus la minimum de moderatorul de pe site

răspuns

Report

Welington Mesquita

în urmă cu aproximativ 5 luni

#39373

Acest comentariu a fost redus la minimum de moderatorul de pe site

Esse código oculta, mas não executa a reexibição quando demarcar.

Alguém pode complementar por favor? Preciso de um code para ocultar e reexibir colunas indicadas.

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

Mulțumesc

răspuns

cristal Welington Mesquita

în urmă cu aproximativ 5 luni

#39441

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună Welington Mesquita,
Acest cod VBA poate obține:
Când caseta de selectare1 este bifată, sunt afișate coloana C:D;
Când este debifată, coloana C:D sunt ascunse.
Codul funcționează bine în cazul meu. Ce versiune de Excel folosești?

răspuns

Report

Welington Mesquita

în urmă cu aproximativ 5 luni

#39398

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună dimineața!
Sper că toți estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizând o Control ActiveX atunci când este soluționat un articol.

Exemplu: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) și Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não stando na sequencia.

Desde já agradeço,
Welington

răspuns

cristal Welington Mesquita

în urmă cu aproximativ 5 luni

#39445

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună,
Scuze ca nu inteleg ce vrei sa spui. V-ar deranja să oferiți o captură de ecran a datelor dvs.?
Poate fi necesar să atașați o captură de ecran sau un fișier eșantion pentru a descrie mai clar problema pe care ați întâlnit-o.

răspuns

Report

Welington Mesquita

în urmă cu aproximativ 5 luni

#39402

Acest comentariu a fost redus la minimum de moderatorul de pe site

E para ocultar colunas não sequências?
Exemplu: A și C

Esta situação seria aplicado de că forma pentru A e C ?

„Sub CheckBox1_Click private ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub"

răspuns

cristal Welington Mesquita

în urmă cu aproximativ 5 luni

#39446

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună,
Următorul cod VBA vă poate face o favoare. Vă rugăm să încercați.

Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub

răspuns

Report

Trandafir

în urmă cu aproximativ 2 luni

#41159

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Ajuta ....

răspuns

cristal Trandafir

în urmă cu aproximativ 2 luni

#41471

Acest comentariu a fost redus la minimum de moderatorul de pe site

Bună Trandafir,
Următorul cod VBA vă poate ajuta.

Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub

răspuns

Report

Nu există comentarii postate aici încă

Lăsa comentarii

Postare ca invitat

Conectare

Nume (obligatoriu)

E-mail (Obligatoriu)

Evaluează această postare:

Reseteaza

0 Caractere

Sunt de acord cu termeni și condiții