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

Kako skriti stolpce v realnem času glede na uporabniški vnos v Excelu?

Morda je za večino od nas običajna naloga, da skrijemo stolpce v Excelu, toda ali ste že kdaj poskusili samodejno skriti stolpce na podlagi določenih vhodnih vrednosti? Na primer, ko v celico vnesem besedilo »AA«, je stolpec A skrit; ko vnesem “BB”, sta stolpca B in C skrita; pri vnosu »CC« sta stolpca D in E skrita; ko vnesete »DD«, je stolpec F skrit, kot je prikazano spodaj. Ta članek bo ustvaril kodo VBA za reševanje v Excelu.

S kodo VBA skrijte ali razkrijte stolpce v realnem času glede na uporabniški vnos

Skrijte ali razkrijte stolpce za filtriranje podatkov na podlagi uporabniškega vnosa s kodo VBA


S kodo VBA skrijte ali razkrijte stolpce v realnem času glede na uporabniški vnos

Če želite skriti določene stolpce v realnem času na podlagi vnesenih vrednosti, uporabite spodnjo kodo VBA:

1. Na delovnem listu, kjer želite skriti stolpce, z desno miškino tipko kliknite zavihek lista in nato kliknite Ogled kode v kontekstnem meniju, glejte posnetek zaslona

2. V odprti Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v List (koda) okno.

Koda VBA: Skrij stolpce v realnem času glede na uporabniški vnos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
Opombe: V zgornji kodi, K1 je celica, v katero vnesete določeno besedilo, besedila in imena stolpcev pa spremenite po svojih potrebah. Poleg tega lahko dodate druga nova merila tako, da dodate spodnje skripte:
  • Primer "AA": Stolpci("A").EntireColumn.Hidden = False
  • Columns("A").EntireColumn.Hidden = True

3. Nato zaprite okno kode. Zdaj, ko vnesete "AA" v celico K1, in pritisnite Vnesite ključ, stolpec A je skrit; pri vnosu »BB« in pritisnite Vnesite ključ, sta stolpca B in C skrita itd. Če vnesete katero koli drugo vrednost ali izbrišete vsebino, bodo skriti stolpci prikazani takoj, glejte spodnjo predstavitev:


Skrijte ali razkrijte stolpce za filtriranje podatkov na podlagi uporabniškega vnosa s kodo VBA

V tem primeru bom filtriral obseg podatkov na podlagi vnesenega imena izdelka. Ko vnesem »Hoodie«, so prikazane samo informacije o Hoodieju, drugi stolpci pa bodo hkrati skriti; in ko vnesem »Vse«, bodo vsi stolpci prikazani, kot je prikazano v spodnji predstavitvi:

1. Na delovnem listu, kjer želite skriti stolpce, z desno miškino tipko kliknite zavihek lista in nato kliknite Ogled kode v priročnem meniju si oglejte posnetek zaslona:

2. V odprti Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo VBA v List (koda) okno.

Koda VBA: Skrijte ali razkrijte stolpce za filtriranje podatkov na podlagi uporabniškega vnosa

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub
Opombe: V zgornji kodi, K1 je celica, v katero vnesete določeno besedilo, B1: H1 ali glave vrstic vsebujejo ime izdelka, ki ga želite filtrirati.

3. Nato zaprite okno kode. Zdaj, če vnesete ime izdelka v celico K1, bodo prikazani samo ustrezni stolpci, drugi bodo skriti; in če vnesete besedilo »Vse«, bodo vsi stolpci prikazani, kot je prikazano v spodnji predstavitvi:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo 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-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila 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 miške za vas!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL