Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet azonnali szűrt keresést végezni, amikor beír egy cellát az Excel-be?

Ez a cikk egy módszert kínál azonnali keresésre és szűrésre, amikor az Excel cellájába gépel.

Azonnali szűrt keresés gépelés közben VBA kóddal


Azonnali szűrt keresés gépelés közben VBA kóddal


Amint az alábbi képernyőképen látható, van egy névlista, amelyet azonnal keresni és szűrni szeretne, amikor beír egy adott cellába. Kérjük, tegye a következőket, hogy átmenjen.

1. Először létre kell hoznia egy táblázatot a lista adataival, és a táblát „név”. Válassza ki a teljes listát, kattintson betétlap > Táblázat.

2. A nyílásban Táblázat létrehozása párbeszédpanelen kattintson a gombra OK. Lásd a képernyőképet:

3. Kattintson a táblázat bármely cellájára a Kialakítás fülre, majd nevezze át a táblázatot úgy név a Tábla neve szövegdoboz. Lásd a képernyőképet:

4. kettyenés Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő) szövegmező beszúrása a táblázatlista fölé, az alábbi képernyőképen:

5. Kattintson a jobb gombbal a Szövegdobozra, majd kattintson a gombra ingatlanok, A ingatlanok ablakba írjon be egy cellahivatkozást a LinkedCell doboz.

6. Kattintson a jobb gombbal a szövegmezőre, és válassza a lehetőséget Kód megtekintése a helyi menüből. Ezután cserélje le az eredeti kódot az alábbi VBA kódra a Microsoft Visual Basic for Applications ablak. Lásd a képernyőképet:

VBA kód: Azonnali szűrt keresés az Excel beírásakor

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

Megjegyzések: A kódban TextBox1 a beillesztett szövegmező neve, a Név a táblázatlista neve. Az igényei alapján megváltoztathatja őket.

7. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

8. Kattintson a gombra a Design Mode kikapcsolásával Fejlesztő > Tervezési mód.

Mostantól a táblázatok listája azonnal keresésre és szűrésre kerül a szövegmezőbe beírt érték alapján. Lásd a képernyőképet:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.