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

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-2021 och 365. Stöder alla språk. Enkel implementering 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 för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (11)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hur gör man flera på samma sida? Hur döljer jag sedan ark 3 eller 4 med en kryssruta?
Denna kommentar minimerades av moderatoren på webbplatsen
Privat 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
Denna kommentar minimerades av moderatoren på webbplatsen
Funciona perfectamente men, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Stort tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

Privat 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
Denna kommentar minimerades av moderatoren på webbplatsen
Hur döljer eller visar jag ett ark med flera kryssrutor? Till exempel måste arket "MainMenu" döljas om inte checkbox_1, checkbox_2 och checkbox_3 är markerade.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej. Jag är väldigt ny på ActiveX-kontroller. Jag försöker ha flera kryssrutor på ett ark som kommer att dölja specifika ark och inte alla eller samma varje gång. Dessa två scenarier har varit min erfarenhet. Det jag behöver åstadkomma är:
CheckBox1 döljer Blad2
CheckBox2 döljer Blad3
CheckBox3 döljer Blad4
CheckBox4 döljer Blad5
CheckBox5 döljer Blad6
CheckBox6 döljer Blad7
CheckBox7 döljer Blad8
CheckBox8 döljer Blad9
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Jack,
Upprepa bara koden och ändra numren på kryssrutorna och arknamnen. Prova koden nedan.

Privat Sub CheckBox1_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox2_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox3_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox4_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox5_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox6_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox7_Click ()

On Error Resume Next

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

End Sub

Privat Sub CheckBox8_Click ()

On Error Resume Next

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

End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Kristall,
Tack så mycket...det fungerade perfekt!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Crystal,
Finns det någon funktion som skulle vända på detta; dvs. arket är dolt om inte kryssrutan är markerad?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej!
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.

Privat Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, laver, desinfecter").Visible = CheckBox1.Value
End Sub

Privat Sub CheckBox2_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Tailler 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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Sky53,
Jag verkar som att du inte har förändrats CheckBox1.Value till motsvarande kryssrutanamn i den andra VBA-koden.
Vänligen ändra följande rad i den andra koden:
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
till
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox2.Value
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL