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

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

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (26)
Még nincs értékelés. Legyen Ön az első, aki értékel!
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"?
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
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?
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.
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
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
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
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.
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.
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!
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.
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.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia May,
Sajnálom, hogy nem értettem a mondanivalódat.
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.
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.
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.
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.
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.
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
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?
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
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.
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"
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
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 ....
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
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi