Kako opraviti takojšnje filtrirano iskanje med tipkanjem celice v Excelu?

Ta članek ponuja metodo za takojšnje iskanje in filtriranje, ko vnesete celico v Excelu.

Takojšnje filtrirano iskanje med tipkanjem s kodo VBA

Takojšnje filtrirano iskanje med tipkanjem s kodo VBA

Neverjetno! Uporaba učinkovitih zavihkov v Excelu Tako kot Chrome, Firefox in Safari!

Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

Kot je prikazano spodaj na sliki zaslona, imate seznam imen, ki ga želite takoj iskati in filtrirati, ko vnesete določeno celico. Prosimo, naredite naslednje, da se prebijete.

1. Najprej morate ustvariti tabelo s podatki s seznama in jo poimenovati kot »Ime". Izberite celoten seznam, kliknite Vstavi > Tabela.

2. Na odprtju Ustvari tabelo pogovorno okno, kliknite OK. Oglejte si posnetek zaslona:

3. Kliknite katero koli celico tabele, da aktivirate Oblikovanje in nato preimenujte tabelo v Ime v Ime tabele besedilno polje. Oglejte si posnetek zaslona:

4. klik Razvojni > Vstavi > Besedilno polje (nadzor ActiveX) da vstavite besedilno polje nad seznamom tabel, kot je prikazano spodaj:

5. Z desno miškino tipko kliknite polje z besedilom in kliknite NepremičnineV Nepremičnine v okno vnesite sklic na celico LinkedCell škatla.

6. Z desno miškino tipko kliknite polje z besedilom in izberite Ogled kode iz kontekstnega menija. Nato zamenjajte izvirno kodo s spodnjo kodo VBA v Microsoft Visual Basic za aplikacije okno. Oglejte si posnetek zaslona:

Koda VBA: takojšnje filtrirano iskanje med tipkanjem v Excelu

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

Opombe: V kodi, TextBox1 je ime vstavljenega polja z besedilom, Name je ime seznama tabel. Lahko jih spremenite glede na vaše potrebe.

7. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

8. Izklopite način oblikovanja s klikom Razvojni > Način oblikovanja.

Odslej bo seznam tabel takoj iskan in filtriran na podlagi vnesene vrednosti v besedilno polje. Oglejte si posnetek zaslona:

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.

Preberite več ... Brezplačen prenos... Nakup ...

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!