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 Design 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 1. szövegdoboz 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 ...
- Szuper Formula Bár (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-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 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 naponta több száz kattintással csökkenti az egér kattintását!
