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

Hvordan bruger jeg afkrydsningsfeltet til at skjule / fjerne rækker eller kolonner i Excel?

Antag, at du skal bruge et afkrydsningsfelt til at skjule eller skjule visse rækker eller kolonner. For eksempel, når afkrydsningsfeltet Active X Control er markeret, vises de bestemte rækker eller kolonner, ellers skjules de. Denne artikel viser dig metoden til, hvordan du bruger afkrydsningsfeltet til at skjule / skjule rækker eller kolonner i Excel med detaljer.

Brug afkrydsningsfeltet til at skjule / fjerne rækker eller kolonner med VBA-kode


Brug afkrydsningsfeltet til at skjule / fjerne rækker eller kolonner med VBA-kode

Følgende VBA-kode kan hjælpe dig med at skjule / fjerne visse rækker eller kolonner med afkrydsningsfeltet.

1. Når du har indsat et afkrydsningsfelt for Active X Control til regnearket, skal du højreklikke på afkrydsningsfeltet og derefter vælge Vis kode fra højreklikmenuen. Se skærmbillede:

2. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende VBA-kode i vinduet Kode.

VBA-kode: Brug afkrydsningsfeltet til at skjule / fjerne rækker eller kolonner

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

Noter:

1. I VBA-koden [C: D]. Hele kolonnen betyder, at kolonnen C og D skjules eller skjules ved at markere eller fjerne markeringen i det tilsvarende afkrydsningsfelt.

2. For at skjule eller vise visse rækker såsom række 6: 9, skal du ændre [C: D]. Hele kolonnen til [6: 9]. EntireRow i VBA-koden.

3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.

4. Sluk nu for Design Mode under Udvikler fane som vist nedenstående skærmbillede:

Fra nu af, når afkrydsningsfeltet er markeret, vises de angivne rækker eller kolonner. Når det ikke er markeret, skjules de angivne rækker eller kolonner.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (26)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at bruge "Brug afkrydsningsfeltet til at skjule/vise rækker eller kolonner med VBA-kode" på et beskyttet regneark?
Denne kommentar blev minimeret af moderatoren på webstedet
@Wayne:

Privat underafkrydsningsfelt1_Klik()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Ikke afkrydsningsfelt1
ActiveSheet.Protect Password:="xxxx"
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Det ser ud til, at denne kode kun vil gå én retning, dvs. kun skjule og ikke vise dem, når der klikkes. Er der en måde at rette dette på?
Denne kommentar blev minimeret af moderatoren på webstedet
Vi har samme problem, men jeg fandt ud af, at vi bruger formularkontroller og ikke ActiveX-kontroller. Koden fungerer perfekt i ActiveX Control Checkbox-knappen. Du skal bare slå designtilstanden fra, så du kan klikke på afkrydsningsfeltet.
Denne kommentar blev minimeret af moderatoren på webstedet
Vi har samme problem, men finder en måde at få det til at fungere. Brug venligst ActiveX Controls afkrydsningsfeltet og ikke ved afkrydsningsfeltet Form Control. Koden fungerer perfekt med ActiveX afkrydsningsfeltet.


Privat underafkrydsningsfelt1_Klik()
[C:D].EntireColumn.Hidden = Ikke afkrydsningsfelt1
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Jeg forsøger at bruge denne kode til at skjule/vise på et separat ark fra afkrydsningsfeltet. Hvad skal jeg tilføje for at få dette til at fungere? Tak på forhånd.

Privat underafkrydsningsfelt1_Klik()
[C:D].EntireColumn.Hidden = Ikke afkrydsningsfelt1
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Som den følgende kode er vist, udskift venligst "Sheet4" med dit separate arknavn.

Privat underafkrydsningsfelt1_Klik()
[Sheet4!C:D].EntireColumn.Hidden = Ikke afkrydsningsfelt1
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Hej, jeg har lavet koden, den fungerer godt, men når jeg prøver at lave det samme i mere end et afkrydsningsfelt på det samme ark, arbejder de 'sammen', skjuler eller viser kun rækkerne, hvis alle tre afkrydsningsfelter er markeret.
Jeg prøver at få disse tre afkrydsningsfelter til at fungere uafhængigt af hinanden. Og lad brugerne kun markere én boks for ad gangen.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Lou,
Sørg for, at de afkrydsningsfelter, du har oprettet, er afkrydsningsfelter for ActiveX-kontrolelementer. Disse afkrydsningsfelter fungerer uafhængigt i dit regneark.
Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Er der en måde at skjule kun en række. Hvis jeg sætter 6:9 er alle rækker skjult, men hvis jeg kun sætter 6, kommer det ud som fejl. Ville sætte pris på din hjælp, tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Ændre den anden linje i koden til:
[6:6].EntireRow.Hidden = Ikke afkrydsningsfelt1.
Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede at skjule de første tre roller, men det virkede ikke. Hvordan kan jeg gøre det, jeg ved det, den person, der sendte mig den fil, vil vide, hvad jeg kan, jeg kan løse det eller ej.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej May,
Beklager, jeg forstod ikke din pointe.
Denne kommentar blev minimeret af moderatoren på webstedet
Det virkede, men når jeg så gemte filen og genåbner, virker det ikke. Jeg prøvede at gemme det som et Macro Excel-ark og som en almindelig projektmappe. Hvad har jeg gjort forkert? Jeg vil gerne give den til en anden at bruge og vil ikke have dem til at blive forvirrede.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej angela, Når du har tilføjet koden til projektmappen, skal du klikke på Filer > Gem som, vælg hvor du vil gemme filen, i dialogboksen Gem som, vælg Excel Macro-Enabled Workbook (*.xlsm) fra rullemenuen Gem som type , og klik til sidst på Gem. Send derefter denne Excel-makroaktiverede projektmappe til andre.
Denne kommentar blev minimeret af moderatoren på webstedet
Meget nyttigt, men hvordan kan jeg bruge det til at skjule kun en del af regnearket? Jeg mener for eksempel celler B2:B11, hvordan kombinerer man disse to funktioner? Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis jeg ville bruge 3 forskellige afkrydsningsfelter og ville have dem til at skifte til at skjule forskellige grupper af rækker? Jeg har prøvet og kigget over det hele. Når jeg forsøger at ændre denne kode, ser afkrydsningsfelterne ud til at forstyrre hinanden.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis jeg ville bruge 3 forskellige afkrydsningsfelter og ville have dem til at skifte til at skjule forskellige grupper af rækker? Jeg har prøvet og kigget over det hele. Når jeg forsøger at ændre denne kode, ser afkrydsningsfelterne ud til at forstyrre hinanden.
Denne kommentar blev minimeret af moderatoren på webstedet
Esse código oculta, mas não executa a reexibição quando desmarcar.

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

Privat underafkrydsningsfelt1_Klik()
[C:D].EntireColumn.Hidden = Ikke afkrydsningsfelt1
End Sub

Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Welington Mesquita,
Denne VBA-kode kan opnå:
Når afkrydsningsfeltet1 er markeret, vises kolonnen C:D;
Når det ikke er markeret, er kolonnen C:D skjult.
Koden fungerer godt i mit tilfælde. Hvilken Excel-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Godmorgen!
Espero que todos estejam bem!

Det er præcist, hvor du kan bruge den nøjagtige okultar/reexibir til brug af kontrol eller ActiveX-kontrol, hvis du bruger en vare.

Eksempel: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) og Variação (%), ingen 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
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Undskyld jeg forstår ikke hvad du mener. Vil du have et skærmbillede af dine data?
Du skal muligvis vedhæfte et skærmbillede eller en prøvefil for at beskrive det problem, du stødte på, mere tydeligt.
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogle okultære colunas?
Eksempel: A e C

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

"Sub CheckBox1_Klik privat ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub"
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Følgende VBA-kode kan gøre dig en tjeneste. Prøv det.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Bei mir werden die Zellen nicht ausgeblendet, das Kontrollkästchen wieder i aktiv ist.

Mein Ziel ist es mit dem aktiveret des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Hjælp ....
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Rose,
Følgende VBA-kode kan hjælpe.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL