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

Hogyan használhatja a jelölőnégyzetet az Excel munkalapjának elrejtéséhez vagy elrejtéséhez?

A jelölőnégyzet az Excel hasznos szolgáltatása. Itt megmutatom, hogyan használhat egy jelölőnégyzetet egy adott munkalap elrejtésére vagy elrejtésére az Excelben.

Jelölje be a munkalap elrejtését vagy elrejtését az Excelben


Jelölje be a munkalap elrejtését vagy elrejtését az Excelben

Tegyük fel, hogy a munkafüzetben van egy checkbox1 nevű jelölőnégyzet. A jelölőnégyzet bejelölésekor azt szeretné, hogy egy bizonyos munkalap automatikusan el legyen rejtve ebben a munkafüzetben, és a jelölőnégyzet bejelölése közben jelenítse meg ezt a munkalapot. Kérjük, érje el az alábbiak szerint.

1. Nyissa meg a Checkbox1 munkalapot, kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

Megjegyzések: A beillesztéskor a jelölőnégyzetnek ActiveX jelölőnégyzetnek kell lennie.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a Kód ablakba. Lásd a képernyőképet:

VBA kód: A jelölőnégyzet segítségével elrejtheti vagy elrejtheti a megadott munkalapot

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

Megjegyzések: A kódban az Sheet5 annak a munkalapnak a neve, amelyet elrejt vagy elrejt a jelölőnégyzettel1. Kérem, cserélje ki a munkalap nevét.

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

Mostantól a jelölőnégyzet1 törlésének megszüntetésekor a megadott „Sheet5” munkalap automatikusan el lesz rejtve. És a jelölőnégyzet bejelölésével megmutathatja. Lásd a képernyőképet:


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 (11)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan csinálhatsz többet ugyanazon az oldalon? Hogyan rejthetem el a 3. vagy 4. lapot egy jelölőnégyzettel?
A weboldal moderátora ezt a megjegyzést minimalizálta
Privát al-jelölőnégyzet1_Click()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Köszönöm szépen!
A weboldal moderátora ezt a megjegyzést minimalizálta
Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

Privát al-jelölőnégyzet1_Click()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan rejthetek el vagy jeleníthetek meg egy több jelölőnégyzetet tartalmazó lapot? Például a „Főmenü” lapot el kell rejteni, hacsak nincs bejelölve a_1, checkbox_2 és checkbox_3.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia. Nagyon új vagyok az ActiveX-vezérlők területén. Megpróbálok több jelölőnégyzetet beállítani egy lapon, amelyek bizonyos lapokat rejtenek el, és nem mindegyiket, vagy mindig ugyanazt. Ez a két forgatókönyv az én tapasztalatom. Amit el kell érnem:
Az 1. jelölőnégyzet elrejti a 2. munkalapot
Az 2. jelölőnégyzet elrejti a 3. munkalapot
Az 3. jelölőnégyzet elrejti a 4. munkalapot
Az 4. jelölőnégyzet elrejti a 5. munkalapot
Az 5. jelölőnégyzet elrejti a 6. munkalapot
Az 6. jelölőnégyzet elrejti a 7. munkalapot
Az 7. jelölőnégyzet elrejti a 8. munkalapot
Az 8. jelölőnégyzet elrejti a 9. munkalapot
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Jack,
Csak ismételje meg a kódot, és módosítsa a jelölőnégyzetek számát és a lapok nevét. Próbáld ki az alábbi kódot.

Privát al-jelölőnégyzet1_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value

End Sub

Privát al-jelölőnégyzet2_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value

End Sub

Privát al-jelölőnégyzet3_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value

End Sub

Privát al-jelölőnégyzet4_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value

End Sub

Privát al-jelölőnégyzet5_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value

End Sub

Privát al-jelölőnégyzet6_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value

End Sub

Privát al-jelölőnégyzet7_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value

End Sub

Privát al-jelölőnégyzet8_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kristály,
Köszönöm szépen... tökéletesen működött!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Crystal,
Van-e olyan funkció, amely ezt megfordítaná; azaz. a lap el van rejtve, hacsak nincs bejelölve a jelölőnégyzet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,
Je cherche à afficher des pages avec des case à cocher. Les Chekbox sont toutes sur la même feuille de calcul.
J'ai copié le premier code et l'ai dupliquer.

Privát al-jelölőnégyzet1_Click()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, lavór, fertőtlenítő").Visible = CheckBox1.Value
End Sub

Privát al-jelölőnégyzet2_Click()
On Error Resume Next
ThisWorkbook.Sheets("Taller fruits et légumes").Visible = CheckBox1.Value
End Sub

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sky53!
Úgy látom nem változtál Jelölőnégyzet1.Érték a megfelelő jelölőnégyzet nevéhez a második VBA-kódban.
Kérjük, módosítsa a következő sort a második kódban:
ThisWorkbook.Sheets("Taller fruits et légumes").Visible = CheckBox1.Value
nak nek
ThisWorkbook.Sheets("Taller fruits et légumes").Visible = CheckBox2.Value
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