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

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

Om du antar att du måste använda en kryssruta för att dölja eller visa vissa rader eller kolumner. Till exempel när kryssrutan Active X Control är markerad visas vissa rader eller kolumner, annars döljs de. Den här artikeln visar hur du använder kryssrutan för att dölja / ta bort rader eller kolumner i Excel med detaljer.

Använd kryssrutan för att dölja / ta bort rader eller kolumner med VBA-kod


Använd kryssrutan för att dölja / ta bort rader eller kolumner med VBA-kod

Följande VBA-kod kan hjälpa dig att dölja / ta bort vissa rader eller kolumner med kryssrutan.

1. När du har infogat en kryssruta för Active X Control i kalkylbladet, högerklickar du på kryssrutan och markerar sedan Visa kod från högerklickmenyn. Se skärmdump:

2. I Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande VBA-kod i kodfönstret.

VBA-kod: Använd kryssrutan för att dölja / ta bort rader eller kolumner

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Anmärkningar:

1. I VBA-koden, [CD]. Hela kolumnen betyder att kolumnen C och D kommer att döljas eller visas genom att markera eller avmarkera motsvarande kryssruta.

2. För att gömma eller visa vissa rader som rad 6: 9, ändra [CD]. Hela kolumnen till [6: 9]. Hela raden i VBA-koden.

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

4. Stäng nu av Designläge under Utvecklare flik som visas nedan:

Från och med nu, när kryssrutan är markerad, visas de angivna raderna eller kolumnerna. När det inte är markerat döljs de angivna raderna eller kolumnerna.


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 (26)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att använda "Använd kryssrutan för att dölja/visa rader eller kolumner med VBA-kod" på ett skyddat kalkylblad?
Denna kommentar minimerades av moderatoren på webbplatsen
@Wayne:

Privat Sub CheckBox1_Click ()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect Lösenord:="xxxx"
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Det verkar som om den här koden bara kommer att gå åt ena sidan, dvs bara dölja och inte visa dem när den klickas. Finns det något sätt att rätta till detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Vi har samma problem men jag fick reda på att vi använder formulärkontroller och inte ActiveX-kontroller. Koden fungerar perfekt i ActiveX Control Checkbox-knappen. Stäng bara av designläget så att du kan klicka på kryssrutan.
Denna kommentar minimerades av moderatoren på webbplatsen
Vi har samma problem men hittar ett sätt att få det att fungera. Använd kryssrutan för ActiveX-kontroller och inte i kryssrutan för formulärkontroll. Koden fungerar perfekt med ActiveX kryssrutan.


Privat Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Inte kryssruta1
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,

Jag försöker använda den här koden för att dölja/visa på ett separat ark från kryssrutan. Vad måste jag lägga till för att detta ska fungera? Tack på förhand.

Privat Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Inte kryssruta1
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
God dag,
Som följande kod visas, ersätt "Sheet4" med ditt separata arknamn.

Privat Sub CheckBox1_Click ()
[Sheet4!C:D].EntireColumn.Hidden = Inte kryssruta1
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,

Hej, jag har gjort koden, det fungerar bra men när jag försöker göra samma i mer än en kryssruta på samma ark så fungerar de "tillsammans", döljer eller visar bara raderna om alla tre kryssrutorna är markerade.
Jag försöker få dessa tre kryssrutor att fungera oberoende av varandra. Och låt användarna bara markera en ruta åt gången.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Lou,
Se till att kryssrutorna du skapade är kryssrutor för ActiveX-kontroller. Dessa kryssrutor fungerar oberoende i ditt kalkylblad.
Tack för din kommentar.
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,

Finns det ett sätt att dölja endast en rad. Om jag sätter 6:9 är alla rader dolda, men om jag bara sätter 6 kommer det ut som fel. Skulle uppskatta din hjälp, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Ändra den andra raden i koden till:
[6:6].EntireRow.Hidden = Inte kryssruta1.
Tack för din kommentar.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försökte visa de tre första rollerna men det fungerade inte. Hur kan jag göra det, jag vet att personen som skickade den filen till mig vill veta min skicklighet. Jag kan lösa det eller inte.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Maj,
Förlåt att jag inte fattade din poäng.
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerade, men när jag sedan sparade filen och öppnar igen så fungerar det inte. Jag försökte spara det som ett Macro Excel-ark och som en vanlig arbetsbok. Vad har jag gjort fel? Jag vill ge det till någon annan att använda och vill inte att de ska bli förvirrade.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej angela, När du har lagt till koden i arbetsboken, klicka på Arkiv > Spara som, välj var du vill spara filen, i dialogrutan Spara som, välj Excel Macro-Enabled Workbook (*.xlsm) från rullgardinsmenyn Spara som typ , och klicka slutligen på Spara. Skicka sedan denna Excel-makroaktiverade arbetsbok till andra.
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket användbart, men hur kan jag använda det för att dölja bara en del av kalkylarket? Jag menar till exempel celler B2:B11, hur kombinerar man dessa två funktioner? Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Tänk om jag ville använda 3 olika kryssrutor och ville att de skulle växla mellan olika grupper av rader? Jag har försökt och tittat överallt. När jag försöker ändra den här koden verkar kryssrutorna störa varandra.
Denna kommentar minimerades av moderatoren på webbplatsen
Tänk om jag ville använda 3 olika kryssrutor och ville att de skulle växla mellan olika grupper av rader? Jag har försökt och tittat överallt. När jag försöker ändra den här koden verkar kryssrutorna störa varandra.
Denna kommentar minimerades av moderatoren på webbplatsen
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Preciso de um código para ocultar e reexibir colunas indicadas.

Privat Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Inte kryssruta1
End Sub

Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Welington Mesquita,
Denna VBA-kod kan uppnå:
När kryssrutan1 är markerad, visas kolumnen C:D;
När den är avmarkerad döljs kolumnen C:D.
Koden fungerar bra i mitt fall. Vilken Excel-version använder du?
Denna kommentar minimerades av moderatoren på webbplatsen
God morgon!
Espero que todos estejam bem!

När du ställer på exakta ocultar/reexibir en coluna utilizando o Control ActiveX quando solecionado of item.

Exempel: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) och Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Welington
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Förlåt att jag inte förstår vad du menar. Skulle du vilja ge en skärmdump av dina data?
Du kan behöva bifoga en skärmdump eller en exempelfil för att tydligare beskriva problemet du stötte på.
Denna kommentar minimerades av moderatoren på webbplatsen
E para ocultar colunas não sequências?
Exempel: A e C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click privata ()
[C:D].EntireColumn.Hidden = Nej CheckBox1
Avsluta sub "
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Följande VBA-kod kan göra dig en tjänst. Ge det ett försök.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
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.
Hjälp ....
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Rose,
Följande VBA-kod kan hjälpa.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
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