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.

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!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.