Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur använder jag kryssrutan för att dölja eller ta bort kalkylblad i Excel?

Kryssrutan är en användbar funktion i Excel. Här visar jag dig hur du använder en kryssruta för att dölja eller ta bort ett angivet kalkylblad i Excel.

Använd kryssrutan för att dölja eller ta bort kalkylblad i Excel

Använd kryssrutan för att dölja eller ta bort kalkylblad i Excel

Antag att du har en kryssruta med namnet kryssruta 1 i din arbetsbok. När du avmarkerar den här kryssrutan vill du att ett visst kalkylblad döljs automatiskt i den här arbetsboken och visar det här kalkylbladet medan du markerar kryssrutan. Vänligen uppnå det enligt följande.

1. Öppna kalkylbladet innehåller kryssrutan1, högerklicka på arkfliken och klicka sedan på Visa kod från högerklickmenyn.

Anmärkningar: Kryssrutan ska vara ActiveX-kryssrutan när du infogar.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i kodfönstret. Se skärmdump:

VBA-kod: Använd kryssrutan för att dölja eller dölja angivet kalkylblad

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

Anmärkningar: I koden är Sheet5 namnet på kalkylbladet som du döljer eller visar med kryssrutan1. Ersätt kalkylbladets namn efter behov.

3. Tryck andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.

Från och med nu, när du avmarkerar kryssrutan1, kommer det angivna kalkylbladet "Sheet5" att döljas automatiskt. Och du kan visa det genom att markera kryssrutan. Se skärmdump:

Relaterade artiklar:

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!
officetab botten
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