Hogyan használhatja a jelölőnégyzetet az Excel sorainak vagy oszlopainak elrejtéséhez / elrejtéséhez?

Tegyük fel, hogy jelölőnégyzetet kell használnia bizonyos sorok vagy oszlopok elrejtéséhez vagy elrejtéséhez. Például, amikor az Active X Control jelölőnégyzet be van jelölve, a bizonyos sorok vagy oszlopok megjelennek, különben elrejtik őket. Ez a cikk bemutatja, hogyan használhatja a jelölőnégyzetet az Excel sorainak vagy oszlopainak elrejtésével / elrejtésével, részletekkel együtt.

Jelölje be a VBA kóddal ellátott sorok vagy oszlopok elrejtését / elrejtését

Jelölje be a VBA kóddal ellátott sorok vagy oszlopok elrejtését / elrejtését

A következő VBA-kód segíthet bizonyos sorok vagy oszlopok elrejtésében / elrejtésében.

1. Az Active X Control jelölőnégyzet beillesztése után a munkalapra kattintson a jobb gombbal a jelölőnégyzetre, majd válassza a lehetőséget Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA kód: Használja a jelölőnégyzetet sorok vagy oszlopok elrejtéséhez / elrejtéséhez

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

Megjegyzések:

1. A VBA kódban [CD]. EntireColumn azt jelenti, hogy a C és D oszlop elrejthető vagy elrejtésre kerül a megfelelő jelölőnégyzet bejelölésével vagy törlésével.

2. Bizonyos sorok, például a 6: 9 sor elrejtéséhez vagy megjelenítéséhez módosítsa a [CD]. EntireColumn nak nek [6: 9]. Teljes sor a VBA kódban.

3. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

4. Most kérem kapcsolja ki a Tervezési mód alatt a Fejlesztő fül az alábbi képernyőképen:

Mostantól a jelölőnégyzet bejelölésekor megjelennek a megadott sorok vagy oszlopok. Ha nincs bejelölve, a megadott sorok vagy oszlopok el vannak rejtve.

Kapcsolódó cikkek:

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (26)

Még nincs értékelés. Legyen Ön az első, aki értékel!

Wayne Bailey

körülbelül 5 éve

#19936

A weboldal moderátora ezt a megjegyzést minimalizálta

Van mód arra, hogy egy védett munkalapon használja a "Jelölőnégyzet használata a VBA-kóddal ellátott sorok vagy oszlopok elrejtéséhez/felfedéséhez"?

Válasz

Pieter Ramaut

körülbelül 5 éve

#21920

A weboldal moderátora ezt a megjegyzést minimalizálta

@Wayne:

Privát al-jelölőnégyzet1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Nem jelölőnégyzet1
ActiveSheet.Protect Password:="xxxx"
End Sub

Válasz

Kelkáposzta

körülbelül 4 éve

#24379

A weboldal moderátora ezt a megjegyzést minimalizálta

Úgy tűnik, ez a kód csak egy irányba halad, azaz csak elrejti és nem fedi fel őket kattintáskor. Van mód ennek kijavítására?

Válasz

Kentthegreet Kelkáposzta

körülbelül 4 éve

#24380

A weboldal moderátora ezt a megjegyzést minimalizálta

Ugyanez a probléma, de rájöttem, hogy űrlapvezérlőket használunk, nem ActiveX-vezérlőket. A kód tökéletesen működik az ActiveX Control Checkbox gombbal. Csak kapcsolja ki a Tervezési módot, hogy bejelölje a jelölőnégyzetet.

Válasz

Kent Thegreet Kelkáposzta

körülbelül 4 éve

#24381

A weboldal moderátora ezt a megjegyzést minimalizálta

Ugyanez a problémánk, de találjuk meg a módját, hogy működjön. Kérjük, használja az ActiveX-vezérlőket, és ne az Űrlapvezérlő jelölőnégyzetet. A kód tökéletesen működik az ActiveX jelölőnégyzettel.

Privát al-jelölőnégyzet1_Click()
[C:D].EntireColumn.Hidden = Nem jelölőnégyzet1
End Sub

Válasz

Jelentés

körülbelül 4 éve

#28132

A weboldal moderátora ezt a megjegyzést minimalizálta

Helló,

Ezzel a kóddal próbálom elrejteni/felfedni egy külön lapon a jelölőnégyzetből. Mit kell hozzátennem ahhoz, hogy ez működjön? Előre is köszönöm.

Privát al-jelölőnégyzet1_Click()
[C:D].EntireColumn.Hidden = Nem jelölőnégyzet1
End Sub

Válasz

kristály- Ed

körülbelül 3 éve

#28133

A weboldal moderátora ezt a megjegyzést minimalizálta

Jó napot,
A következő kódnak megfelelően cserélje ki a "Sheet4"-et a különálló lap nevére.

Privát al-jelölőnégyzet1_Click()
[Sheet4!C:D].EntireColumn.Hidden = Nem jelölőnégyzet1
End Sub

Válasz

Jelentés

Lou

körülbelül 3 éve

#29360

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,

Szia, megcsináltam a kódot, jól működik, de ha ugyanazt próbálom beállítani több jelölőnégyzetben ugyanazon a lapon, akkor "együtt" működnek, csak akkor rejti el vagy jeleníti meg a sorokat, ha mindhárom jelölőnégyzet be van jelölve.
Megpróbálom elérni, hogy ez a három jelölőnégyzet egymástól függetlenül működjön. És hagyja, hogy a felhasználók egyszerre csak egy mezőt jelöljenek meg.

Válasz

kristály- Lou

körülbelül 3 éve

#29361

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Lou,
Győződjön meg arról, hogy az Ön által létrehozott jelölőnégyzetek ActiveX-vezérlők jelölőnégyzetek. Ezek a jelölőnégyzetek egymástól függetlenül működnek a munkalapon.
Köszönöm a megjegyzést.

Válasz

Jelentés

Therese

körülbelül 3 éve

#30984

A weboldal moderátora ezt a megjegyzést minimalizálta

Helló,

Van-e mód csak egy sor elrejtésére? Ha 6:9-et teszek, akkor minden sor rejtett, de ha csak 6-ot teszek ki, akkor hibaként jön ki. Megköszönném a segítségedet, köszönöm!

Válasz

kristály- Therese

körülbelül 3 éve

#30985

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,
Kérjük, módosítsa a kód második sorát a következőre:
[6:6].EntireRow.Hidden = Nem jelölőnégyzet1.
Köszönöm a megjegyzését.

Válasz

Jelentés

lehet

körülbelül 3 éve

#31355

A weboldal moderátora ezt a megjegyzést minimalizálta

Megpróbáltam elrejteni az első három szerepet, de nem sikerült. Hogyan tudom megcsinálni, ismerem, aki küldte nekem azt a fájlt, szeretné tudni a képességemet, meg tudom-e oldani vagy sem.

Válasz

kristály- lehet

körülbelül 3 éve

#31356

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia May,
Sajnálom, hogy nem értettem a mondanivalódat.

Válasz

Jelentés

Angela

körülbelül 3 éve

#31530

A weboldal moderátora ezt a megjegyzést minimalizálta

Működött, de amikor elmentettem a fájlt és újra megnyitottam, nem működik. Megpróbáltam elmenteni Macro Excel-lapként és normál munkafüzetként. Mit csináltam rosszul? Másnak akarom használni, és nem akarom, hogy összezavarják.

Válasz

kristály- Angela

körülbelül 2 éve

#31531

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Angela! Miután hozzáadta a kódot a munkafüzethez, kattintson a Fájl > Mentés másként elemre, válassza ki a fájl mentési helyét, a Mentés másként párbeszédpanelen válassza a Mentés másként legördülő menüből az Excel Makró-engedélyezett munkafüzet (*.xlsm) elemet. , végül kattintson a Mentés gombra. Ezután küldje el ezt az Excel-makró-kompatibilis munkafüzetet másoknak.

Válasz

Jelentés

Maggie

körülbelül 2 éve

#32767

A weboldal moderátora ezt a megjegyzést minimalizálta

Nagyon hasznos, de hogyan tudom vele elrejteni a táblázat egy részét? Például a B2:B11 cellákra gondolok, hogyan lehet kombinálni ezt a két funkciót? Kösz.

Válasz

Eric

mintegy 1 éve

#35115

A weboldal moderátora ezt a megjegyzést minimalizálta

Mi a teendő, ha 3 különböző jelölőnégyzetet szeretnék használni, és azt szeretném, hogy mindegyik más-más sorcsoportot rejtsen el? Kipróbáltam és végignéztem az egészet. Amikor megpróbálom módosítani ezt a kódot, úgy tűnik, hogy a jelölőnégyzetek zavarják egymást.

Válasz

etb1025

mintegy 1 éve

#35116

A weboldal moderátora ezt a megjegyzést minimalizálta

Válasz

Jelentés

Welington Mesquita

mintegy 6 hónappal ezelőtt

#39373

A weboldal moderátora ezt a megjegyzést minimalizálta

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

Alguém pode komplementar por favor? Preciso de um código para ocultar e reexibir colunas indicadas.

Privát al-jelölőnégyzet1_Click()
[C:D].EntireColumn.Hidden = Nem jelölőnégyzet1
End Sub

Köszönöm

Válasz

kristály- Welington Mesquita

mintegy 6 hónappal ezelőtt

#39441

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Welington Mesquita!
Ez a VBA kód a következőket érheti el:
Ha a checkbox1 be van jelölve, a C:D oszlop jelenik meg;
Ha nincs bejelölve, a C:D oszlop rejtve lesz.
A kód jól működik az én esetemben. Melyik Excel verziót használod?

Válasz

Jelentés

Welington Mesquita

mintegy 6 hónappal ezelőtt

#39398

A weboldal moderátora ezt a megjegyzést minimalizálta

Jó reggelt!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna useando o Control ActiveX quando solecionado vagy item.

Példa: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) és Variação (%), nincs 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,
Welington

Válasz

kristály- Welington Mesquita

mintegy 6 hónappal ezelőtt

#39445

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,
Bocsánat, nem értem mire gondolsz. Lenne szíves képernyőképet adni az adatairól?
Előfordulhat, hogy képernyőképet vagy mintafájlt kell csatolnia a felmerült probléma pontosabb leírásához.

Válasz

Jelentés

Welington Mesquita

mintegy 6 hónappal ezelőtt

#39402

A weboldal moderátora ezt a megjegyzést minimalizálta

E para ocultar colunas não sequências?
Példa: A e C

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

"Sub CheckBox1_Click Privada ()
[C:D].EntireColumn.Hidden = Nincs jelölőnégyzet1
Felirat vége"

Válasz

kristály- Welington Mesquita

mintegy 6 hónappal ezelőtt

#39446

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia,
A következő VBA-kód tehet egy szívességet. Kérjük, próbálja ki.

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

Válasz

Jelentés

Rózsa

mintegy 3 hónappal ezelőtt

#41159

A weboldal moderátora ezt a megjegyzést minimalizálta

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.
Segíteni ....

Válasz

kristály- Rózsa

mintegy 2 hónappal ezelőtt

#41471

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Rose!
A következő VBA kód segíthet.

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

Válasz

Jelentés

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit