Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

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-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 1 years ago
    Hi. I'm very new to ActiveX Controls. I am trying to have multiple checkboxes on one sheet that will hide specific sheets and not all of them or the same one every time. These two scenarios have been my experience. What I need to accomplish is:
    CheckBox1 hides Sheet2
    CheckBox2 hides Sheet3
    CheckBox3 hides Sheet4
    CheckBox4 hides Sheet5
    CheckBox5 hides Sheet6
    CheckBox6 hides Sheet7
    CheckBox7 hides Sheet8
    CheckBox8 hides Sheet9

    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Jack,
      Just repeat the code and change the checkbox numbers and the sheet names. Try the below code.

      Private Sub CheckBox1_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value
      End Sub
      Private Sub CheckBox2_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value
      End Sub
      Private Sub CheckBox3_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value
      End Sub
      Private Sub CheckBox4_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value
      End Sub
      Private Sub CheckBox5_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value
      End Sub
      Private Sub CheckBox6_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value
      End Sub
      Private Sub CheckBox7_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value
      End Sub
      Private Sub CheckBox8_Click()
      On Error Resume Next
      ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value
      End Sub
      • To post as a guest, your comment is unpublished.
        Jack · 1 years ago
        Crystal,
        Thanks so much...it worked perfectly!
  • To post as a guest, your comment is unpublished.
    Syahrul · 2 years ago
    How do I hide or unhide a sheet with multiple checkbox? For example sheet "MainMenu" need to be hide unless checkbox_1, checkbox_2 & checkbox_3 are checked.
  • To post as a guest, your comment is unpublished.
    aitorhdzramos@gmail.com · 3 years ago
    Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

      Private Sub CheckBox1_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
  • To post as a guest, your comment is unpublished.
    Kourtney · 3 years ago
    How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      Private Sub CheckBox1_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