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

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.
fila kte 201905

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!
fundul officetab
Comentarii (26)
Încă nu există evaluări. Fii primul care evaluează!
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ă?
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
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?
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.
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
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
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
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.
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.
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!
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.
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.
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.
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.
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.
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.
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.
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.
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
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?
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
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.
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"
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
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 ....
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
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL