Come abilitare l'autocompletamento durante la digitazione in un elenco a discesa di Excel?

Per un elenco a discesa di convalida dati con molti elementi, è necessario scorrere su e giù nella lista per trovare quello che serve oppure digitare l'intera parola correttamente nella casella di riepilogo. Esiste un modo per far sì che l'elenco a discesa si autocompleti quando si digita il carattere corrispondente? Questo aiuterebbe 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 raggiungere questo obiettivo.

Abilita l'autocompletamento degli elenchi a discesa con il codice VBA
Abilita facilmente l'autocompletamento degli elenchi a discesa in 2 secondi
Altri tutorial per gli elenchi a discesa...

Abilita l'autocompletamento degli elenchi a discesa con il codice VBA

Procedi come segue per rendere un elenco a discesa autocompletante dopo aver digitato le lettere corrispondenti nella cella.

Innanzitutto, devi inserire una casella combinata nel foglio di lavoro e modificare le sue proprietà.

1. Apri il foglio di lavoro che contiene le celle dell'elenco a discesa che desideri rendere autocompletanti.
2. Prima di inserire una casella combinata, è necessario aggiungere la scheda Sviluppatore alla barra multifunzione di Excel. Se la scheda Sviluppatore è già visibile sulla barra multifunzione, passa al passaggio 3. Altrimenti, procedi come segue per visualizzare la scheda Sviluppatore: Clicca su "File" > "Opzioni" per aprire la finestra "Opzioni". In questa finestra "Opzioni di Excel", clicca su "Personalizza barra multifunzione" nel riquadro sinistro, seleziona la casella "Sviluppatore" e poi clicca sul pulsante "OK". Vedi screenshot:
   
3. Clicca su "Sviluppatore" > "Inserisci" > "Casella combinata (Controllo ActiveX)".
   
4. Disegna una casella combinata nel foglio di lavoro corrente. Fai clic destro su di essa e seleziona "Proprietà" dal menu contestuale.
   
5. Nella finestra di dialogo "Proprietà", sostituisci il testo originale nel campo "(Nome)" con "TempCombo."
   
6. Disattiva la "Modalità Progettazione" facendo clic su "Sviluppatore" > "Modalità Progettazione".

Successivamente, applica il seguente codice VBA

1. Fai clic destro sulla scheda del foglio corrente e clicca su "Visualizza Codice" dal menu contestuale. Vedi screenshot:
   
2. Nella finestra "Microsoft Visual Basic for Applications" che si apre, copia e incolla il seguente codice VBA nella finestra del codice del foglio di lavoro.
   Codice VBA: Autocompletamento 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

   
3. Premi contemporaneamente i tasti "Alt + Q" per chiudere la finestra Microsoft Visual Basic for Applications.

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

Abilita facilmente l'autocompletamento degli elenchi a discesa in 2 secondi

Per la maggior parte degli utenti di Excel, il metodo VBA sopra descritto è difficile da padroneggiare. Ma con la funzione "Elenco a discesa ricercabile" di Kutools per Excel, puoi facilmente abilitare l'autocompletamento per gli elenchi a discesa di convalida dati in un intervallo specificato in soli 2 secondi. Inoltre, questa funzione è disponibile per tutte le versioni di Excel.

1. Per abilitare l'autocompletamento nei tuoi elenchi a discesa, seleziona prima l'intervallo con gli elenchi a discesa. Quindi, vai alla scheda "Kutools", scegli "Elenco a discesa" > "Rendi l'elenco a discesa ricercabile, autopopup".
2. Nella finestra di dialogo "Rendi l'elenco a discesa ricercabile", clicca sul pulsante "OK" per salvare l'impostazione.

Risultato

Una volta completata la configurazione, facendo clic su una cella dell'elenco a discesa all'interno dell'intervallo specificato, verrà visualizzata una casella di riepilogo. Quando si inseriscono caratteri, se un elemento corrisponde esattamente, l'intera parola viene immediatamente evidenziata nella casella di riepilogo e può essere popolata nella cella dell'elenco a discesa semplicemente premendo il tasto Invio.

Articoli correlati: