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

Kako uporabiti potrditveno polje za skrivanje / razkrivanje vrstic ali stolpcev v Excelu?

Recimo, da morate uporabiti potrditveno polje, da skrijete ali razkrijete določene vrstice ali stolpce. Ko je na primer označeno potrditveno polje Active X Control, so prikazane določene vrstice ali stolpci, sicer pa bodo skrite. V tem članku je prikazana metoda, kako uporabite potrditveno polje za skrivanje / razkrivanje vrstic ali stolpcev v Excelu s podrobnostmi.

Uporabite potrditveno polje za skrivanje / razkrivanje vrstic ali stolpcev s kodo VBA


Uporabite potrditveno polje za skrivanje / razkrivanje vrstic ali stolpcev s kodo VBA

Naslednja koda VBA vam lahko pomaga s skrivanjem / razkrivanjem določenih vrstic ali stolpcev.

1. Po vstavitvi potrditvenega polja Active X Control na delovni list z desno miškino tipko kliknite potrditveno polje in nato izberite Ogled kode v meniju z desnim klikom. Oglejte si posnetek zaslona:

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v okno Code.

Koda VBA: Uporabite potrditveno polje za skrivanje / razkrivanje vrstic ali stolpcev

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

Opombe:

1. V kodi VBA: [C: D]. EntireColumn pomeni, da bosta stolpca C in D skrila ali razkrila tako, da potrdite ali počistite ustrezno polje.

2. Če želite skriti ali prikazati nekatere vrstice, kot je vrstica 6: 9, spremenite [C: D]. EntireColumn do [6: 9]. EntireRow v kodo VBA.

3. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.

4. Zdaj izklopite Način oblikovanja pod Razvojni zavihek, kot je prikazano spodaj:

Od zdaj naprej, ko je potrditveno polje označeno, se prikažejo določene vrstice ali stolpci. Če ni potrjena, so navedene vrstice ali stolpci skrite.


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
Komentarji (24)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za uporabo "Uporabi potrditveno polje za skrivanje/razkrivanje vrstic ali stolpcev s kodo VBA" na zaščitenem delovnem listu?
Ta komentar je moderator na spletnem mestu minimiziral
@Wayne:

Zasebno pod potrditveno polje1_Klik()
ActiveSheet.Unprotect Password:="xxxxx"
Vrstice("284:351").EntireRow.Hidden = Ni potrditveno polje1
ActiveSheet.Protect Password:="xxxx"
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da bo ta koda šla samo v eno smer, tj. samo skrila in ne razkrila, ko jih kliknete. Ali obstaja način, kako to popraviti?
Ta komentar je moderator na spletnem mestu minimiziral
Imamo enak problem, vendar sem ugotovil, da uporabljamo kontrolnike obrazca in ne kontrolnike ActiveX. Koda odlično deluje v gumbu za potrditveno polje ActiveX Control. Samo izklopite način oblikovanja, da lahko kliknete potrditveno polje.
Ta komentar je moderator na spletnem mestu minimiziral
Imamo isti problem, vendar najdemo način, da to uspe. Uporabite potrditveno polje Kontrolniki ActiveX in ne potrditveno polje Nadzor obrazcev. Koda odlično deluje s potrditvenim poljem ActiveX.


Zasebno pod potrditveno polje1_Klik()
[C:D].EntireColumn.Hidden = Ni potrditveno polje1
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

S to kodo poskušam skriti/razkriti na ločenem listu od potrditvenega polja. Kaj moram dodati, da bo to delovalo? Hvala vnaprej.

Zasebno pod potrditveno polje1_Klik()
[C:D].EntireColumn.Hidden = Ni potrditveno polje1
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Kot je prikazana naslednja koda, zamenjajte "Sheet4" z imenom vašega ločenega lista.

Zasebno pod potrditveno polje1_Klik()
[Sheet4!C:D].EntireColumn.Hidden = Ni potrditveno polje1
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hi,

Živjo, naredil sem kodo, deluje dobro, vendar ko poskušam narediti isto v več kot enem potrditvenem polju na istem listu, delujejo 'skupaj', skrijejo ali razkrijejo vrstice samo, če so izbrana vsa tri potrditvena polja.
Poskušam, da ta tri potrditvena polja delujejo neodvisno drug od drugega. In naj uporabniki naenkrat označijo samo eno polje.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Lou,
Prepričajte se, da so potrditvena polja, ki ste jih ustvarili, potrditvena polja ActiveX Controls. Ta potrditvena polja delujejo neodvisno na vašem delovnem listu.
Hvala za vaš komentar.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Ali obstaja način, da skrijete samo eno vrstico. Če dam 6:9, so vse vrstice skrite, če pa dam samo 6, se izkaže kot napaka. Hvaležen bi bil za vašo pomoč, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Prosimo, spremenite drugo vrstico v kodi v:
[6:6].EntireRow.Hidden = Ni potrditveno polje1.
Hvala za komentar.
Ta komentar je moderator na spletnem mestu minimiziral
Poskušal sem razkriti prve tri vloge, vendar mi ni uspelo. Kako lahko to storim, vem, da oseba, ki mi je poslala to datoteko, želi vedeti, kako sem znana, ali jo lahko rešim ali ne.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo May,
Oprosti, ker nisem razumel tvojega pomena.
Ta komentar je moderator na spletnem mestu minimiziral
Delovalo je, a potem, ko sem datoteko shranil in ponovno odprl, ne deluje. Poskušal sem ga shraniti kot Macro Excelov list in kot običajen delovni zvezek. Kaj sem naredil narobe? Rad bi ga dal v uporabo nekomu drugemu in ne želim, da bi se zmedel.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo angela, po dodajanju kode v delovni zvezek kliknite Datoteka > Shrani kot, izberite, kam želite shraniti datoteko, v pogovornem oknu Shrani kot izberite Delovni zvezek z omogočenimi makri Excel (*.xlsm) v spustnem meniju Shrani kot vrsto , in na koncu kliknite Shrani. Nato pošljite ta delovni zvezek z omogočenimi makri v Excelu drugim.
Ta komentar je moderator na spletnem mestu minimiziral
Zelo uporabno, a kako ga lahko uporabim, da skrijem samo del preglednice? Mislim na primer celice B2:B11, kako združiti ti dve funkciji? Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če bi želel uporabiti 3 različna potrditvena polja in bi želel, da vsako preklopi in skrije različne skupine vrstic? Poskusil sem in pogledal vsepovsod. Ko poskušam spremeniti to kodo, se zdi, da potrditvena polja med seboj motijo.
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če bi želel uporabiti 3 različna potrditvena polja in bi želel, da vsako preklopi in skrije različne skupine vrstic? Poskusil sem in pogledal vsepovsod. Ko poskušam spremeniti to kodo, se zdi, da potrditvena polja med seboj motijo.
Ta komentar je moderator na spletnem mestu minimiziral
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.

Zasebno pod potrditveno polje1_Klik()
[C:D].EntireColumn.Hidden = Ni potrditveno polje1
End Sub

Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Welington Mesquita,
Ta koda VBA lahko doseže:
Ko je potrditveno polje1 potrjeno, se prikažejo stolpci C:D;
Ko ni potrjeno, je stolpec C:D skrit.
Koda v mojem primeru deluje dobro. Katero različico Excela uporabljate?
Ta komentar je moderator na spletnem mestu minimiziral
Dobro jutro!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizando o Control ActiveX quando solecionado o item.

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

Desde já agradeço,
Welington
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Oprosti, ne razumem, kaj misliš. Bi lahko posredovali posnetek zaslona svojih podatkov?
Morda boste morali priložiti posnetek zaslona ali vzorčno datoteko, da boste jasneje opisali težavo, na katero ste naleteli.
Ta komentar je moderator na spletnem mestu minimiziral
E para ocultar colunas não sequências?
Primer: A in C

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

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Ni potrditvenega polja1
Konec pod"
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Naslednja koda VBA vam lahko naredi uslugo. Prosim, poskusite.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije