Ugrás a tartalomra

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
Megjegyzések: A fenti kódban K1 az a cella, ahová beírja az adott szöveget, és módosítania kell a szövegeket és az oszlopneveket igényei szerint. Ezenkívül további új feltételeket is hozzáadhat az alábbi szkriptek hozzáadásával:
  • "AA" eset: Oszlopok("A").Teljes oszlop.Hidden = hamis
  • Columns("A").TeljesOszlop.Hidden = Igaz

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
Megjegyzések: A fenti kódban K1 az a cella, ahová az adott szöveget beírja, B1: H1 A sorfejlécek a szűrni kívánt termék nevét tartalmazzák.

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:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations