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: