Come eseguire il completamento automatico durante la digitazione nell'elenco a discesa di Excel?

Per un elenco a discesa di convalida dei dati con molti elementi, è necessario scorrere su e giù nell'elenco per trovare quello che ti serve o digitare correttamente l'intera parola nella casella di riepilogo. Esistono metodi per creare un elenco a discesa completato automaticamente quando si digita la prima lettera o eventuali caratteri relativi? Ciò aiuterà le persone a lavorare in modo più efficiente nei fogli di lavoro con elenchi a discesa nelle celle. Questo tutorial fornisce due metodi per aiutarti a raggiungerlo.

Completamento automatico durante la digitazione nell'elenco a discesa con codice VBA
Completamento automatico durante la digitazione nell'elenco a discesa con uno strumento straordinario
Altri tutorial per l'elenco a discesa ...

Completamento automatico durante la digitazione nell'elenco a discesa con codice VBA

Si prega di fare quanto segue per completare automaticamente un elenco a discesa dopo aver digitato le lettere corrispondenti nella cella.

Innanzitutto, è necessario inserire una casella combinata nel foglio di lavoro e modificarne le proprietà.

1. Aprire il foglio di lavoro che contiene la cella dell'elenco a discesa che si desidera completare automaticamente.

2. Prima di inserire una casella combinata, è necessario aggiungere la scheda Sviluppatore alla barra multifunzione di Excel. Se la scheda Sviluppatore è visualizzata sulla barra multifunzione, passare al passaggio 3. Altrimenti, procedere come segue: Fare clic su Compila il > Opzioni per aprire il Opzioni finestra. In questo Opzioni di Excel finestra, fare clic Personalizzazione barra multifunzione nel riquadro di sinistra, controlla il file Costruttori casella, quindi fare clic su OK pulsante. Vedi screenshot:

3. Clic Costruttori > inserire > Casella combinata (controllo ActiveX).

4. Disegna una casella combinata nel foglio di lavoro corrente. Fare clic con il pulsante destro del mouse e quindi selezionare Proprietà dal menu di scelta rapida.

5. Nel Proprietà finestra di dialogo, sostituire il testo originale nel file (Nome) campo con TempCombo.

6. Spegnere il Modalità di progettazione cliccando Costruttori > Modalità di progettazione.

Quindi, applica il codice VBA sottostante

7. Fare clic con il pulsante destro del mouse sulla scheda del foglio corrente e fare clic Visualizza codice dal menu contestuale. Vedi screenshot:

8. In apertura Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA sottostante nella finestra del codice del foglio di lavoro.

Codice VBA: completamento automatico durante la digitazione nell'elenco a discesa

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. Stampa altro + Q contemporaneamente i tasti per chiudere il file Applicazioni Microsoft Visual Basic finestra.

D'ora in poi, quando si fa clic su una cella dell'elenco a discesa, l'elenco a discesa verrà richiesto automaticamente. Puoi iniziare a digitare la lettera per completare automaticamente l'elemento corrispondente nella cella selezionata. Vedi screenshot:

NOTA: Questo codice non funziona per le celle unite.

Completamento automatico durante la digitazione nell'elenco a discesa con uno strumento straordinario

Poiché VBA è difficile da gestire per molti utenti di Excel, qui consigliamo il Elenco a discesa ricercabile caratteristica di Kutools for Excel per aiutarti a completare facilmente un elenco a discesa automaticamente quando digiti il primo carattere.

Note:: prima di applicare la funzione, assicurati di aver creato elenchi a discesa nel foglio di lavoro. In questo caso, gli elenchi a discesa vengono inseriti in D3:D9.

1. Clic Kutools > Menu `A tendina > Elenco a discesa ricercabile > Impostazioni profilo.

2. Nel spuntare Elenco a discesa ricercabile finestra di dialogo, è necessario effettuare le seguenti impostazioni.

2.1) nel Applica a sezione, specificare un intervallo o un foglio di lavoro in cui si desidera applicare la funzione di elenco a discesa ricercabile;

Suggerimenti:: Dopo aver selezionato Ambito specificato pulsante di opzione, puoi scegliere Foglio di lavoro corrente, Cartella di lavoro corrente or Tutte le cartelle di lavoro dall'elenco a discesa in base alle proprie esigenze.

2.2) nel Opzioni sezione, scegli il file Corrisponde solo all'inizio della parola opzione o il Che tiene conto del maiuscolo o minuscolo opzione o entrambi;

Corrisponde solo all'inizio della parola: Seleziona questa opzione, vengono visualizzati solo gli elementi che iniziano con il carattere digitato e il primo elemento abbinato verrà completato automaticamente nella casella di riepilogo. Deseleziona questa opzione per visualizzare gli elementi che contengono il carattere digitato.

Che tiene conto del maiuscolo o minuscolo: selezionare questa opzione per eseguire la corrispondenza con distinzione tra maiuscole e minuscole con i caratteri di digitazione.

2.3) Fare clic OK.

3. Dopo aver terminato le impostazioni, è necessario abilitare la funzione facendo clic su Kutools > Menu `A tendina > Elenco a discesa ricercabile > Abilita elenco a discesa ricercabile.

Ora, quando fai clic sulla cella dell'elenco a discesa, viene visualizzata una casella di riepilogo con tutti gli elementi. Devi solo digitare un carattere nella casella di testo per visualizzare tutti gli elementi corrispondenti e utilizzare il Up or giù freccia per selezionare l'elemento che ti serve o lascia che il primo elemento corrispondente riempia automaticamente la casella di riepilogo, quindi premi il tasto Entra per completare automaticamente la cella dell'elenco a discesa con l'elemento corrispondente. Guarda la demo qui sotto.

Fare clic per saperne di più su questa funzione.

Se vuoi avere una prova gratuita (30-day) di questa utilità, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.

I migliori strumenti per la produttività in ufficio

Kutools for Excel Risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista...

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!

Leggi di più... Download gratuito... Acquista...

Commenti (325)

Ancora nessuna valutazione. Puoi essere il primo a votare!

Jay

circa 7 anni fa

#14134