Opomba: Drugi jeziki spletnega mesta so prevedeni z Googlom. Nazaj na angleščino
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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


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.
zavihek kte 201905

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!
dno pisarniške mize
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.