Hogyan lehet valós időben elrejteni az oszlopokat a felhasználói bevitel alapján az Excelben?

Lehet, hogy a legtöbbünk számára gyakori feladat az oszlopok elrejtése az Excelben, de megpróbálta már az oszlopokat automatikusan elrejteni bizonyos bemeneti értékek alapján? Például amikor beírom az „AA” szöveget egy cellába, az A oszlop el van rejtve; amikor beírom a „BB”-t, a B és C oszlop rejtve marad; a „CC” beírásakor a D és E oszlop rejtve marad; a „DD” beírásakor az F oszlop el van rejtve, ahogy az alábbi bemutatón látható. Ez a cikk egy VBA-kódot hoz létre az Excelben való megoldáshoz.

Oszlopok elrejtése vagy elrejtésének felfedése valós időben a felhasználói VBA-kóddal történő bevitel alapján

Oszlopok elrejtése vagy elrejtésének felfedése az adatok szűréséhez a felhasználói bevitel alapján VBA-kóddal

Oszlopok elrejtése vagy elrejtésének felfedése valós időben a felhasználói VBA-kóddal történő bevitel alapján

Az adott oszlopok valós idejű elrejtéséhez a bemeneti értékek alapján, használja az alábbi VBA-kódot:

1. A munkalapon, ahol el szeretné rejteni az oszlopokat, kattintson jobb gombbal a lapfülre, majd kattintson a gombra Kód megtekintése a helyi menüből, lásd a képernyőképet

2. A nyitottban Microsoft Visual Basic for Applications ablakban másolja ki és illessze be a következő VBA-kódot a Lap (kód) ablak.

VBA kód: Oszlopok elrejtése valós időben a felhasználói bevitel alapján

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. Ezután zárja be a kód ablakot. Most, amikor beírja az „AA” kódot a K1 cellába, és nyomja meg a gombot belép gomb, az A oszlop rejtett; a „BB” beírásakor, és nyomja meg a gombot belép gombot, a B és C oszlop rejtett, és így tovább. Ha bármilyen más értéket ad meg, vagy törli a tartalmat, a rejtett oszlopok azonnal megjelennek, lásd az alábbi bemutatót:

Oszlopok elrejtése vagy elrejtésének felfedése az adatok szűréséhez a felhasználói bevitel alapján VBA-kóddal

Ebben a példában egy adattartomány szűrésére megyek a megadott terméknév alapján. Amikor beírom a „Hoodie” szót, csak a kapucnis kapucnis információ jelenik meg, és a többi oszlop egyszerre elrejtésre kerül; és amikor beírom az „Összes” pontot, az összes oszlop az alábbi bemutató szerint jelenik meg:

1. A munkalapon, ahol el szeretné rejteni az oszlopokat, kattintson jobb gombbal a lapfülre, majd kattintson a gombra Kód megtekintése a helyi menüből lásd a képernyőképet:

2. A nyitottban Microsoft Visual Basic for Applications ablakban másolja ki és illessze be a következő VBA-kódot a Lap (kód) ablak.

VBA-kód: Oszlopok elrejtése vagy felfedése az adatok felhasználói bevitel alapján történő szűréséhez

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. Ezután zárja be a kód ablakot. Most, ha beírja a termék nevét a K1 cellába, csak a megfelelő oszlopok jelennek meg, a többi el van rejtve; és ha beírja az „Összes” szöveget, az összes oszlop az alábbi bemutató szerint fog megjelenni: