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

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

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.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...