Vai al contenuto principale

Come eseguire una ricerca filtrata istantanea durante la digitazione in una cella in Excel?

Questo articolo fornisce un metodo per cercare e filtrare istantaneamente durante la digitazione in una cella in Excel.

Ricerca filtrata istantanea durante la digitazione con codice VBA


Ricerca filtrata istantanea durante la digitazione con codice VBA

Come mostrato nell'immagine sottostante, hai un elenco di nomi che desideri cercare e filtrare immediatamente mentre digiti in una cella specifica. Si prega di fare quanto segue per farlo passare.

1. Innanzitutto, devi creare una tabella con i dati dell'elenco e denominare la tabella come "Nome". Seleziona l'intero elenco, fai clic su inserire > Table.

2. In apertura Crea tabella finestra di dialogo, fare clic OK. Vedi screenshot:

3. Fare clic su una cella qualsiasi della tabella per attivare il file Design scheda e quindi rinomina la tabella come Nome nel Nome tabella casella di testo. Vedi screenshot:

4. Clic Costruttori > inserire > Casella di testo (controllo ActiveX) per inserire una casella di testo sopra l'elenco delle tabelle come mostrato nell'immagine sottostante:

5. Fare clic con il pulsante destro del mouse sulla casella di testo e fare clic Properties, Nella Properties , digita un riferimento di cella nel file Cella collegata scatola.

6. Fare clic con il pulsante destro del mouse sulla casella di testo e selezionare Visualizza codice dal menu contestuale. Quindi sostituire il codice originale con il codice VBA sottostante nel file Microsoft Visual Basic, Applications Edition finestra. Vedi screenshot:

Codice VBA: ricerca filtrata istantanea durante la digitazione in Excel

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

Note:: Nel codice, Casella di testo1 è il nome della casella di testo inserita, Nome è il nome dell'elenco di tabelle. Puoi modificarli in base alle tue esigenze.

7. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

8. Disattivare la modalità di progettazione facendo clic su Costruttori > Modalità di progettazione.

D'ora in poi, l'elenco delle tabelle verrà cercato e filtrato istantaneamente in base al valore inserito nella casella di testo. Vedi screenshot:

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
what if the table has 2 or more columns?
This comment was minimized by the moderator on the site
а если в таблице 2 и более столбцов?
This comment was minimized by the moderator on the site
what is the name of the tab you are working on tab
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations