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 desiderato o digitare correttamente l'intera parola nella casella di riepilogo. C'è un modo per completare automaticamente l'elenco a discesa quando si digitano i caratteri corrispondenti? Ciò 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 raggiungerlo.

Fai in modo che gli elenchi a discesa si completino automaticamente con il codice VBA
Completa facilmente gli elenchi a discesa in 2 secondi
Altri tutorial per l'elenco a discesa ...

Fai in modo che gli elenchi a discesa si completino automaticamente con il 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. Apri il foglio di lavoro che contiene le celle dell'elenco a discesa che desideri 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, procedi come segue per visualizzare la scheda Sviluppatore nella barra multifunzione: Fai clic 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. Clicchi Costruttori > inserire > Casella combinata (controllo ActiveX).
   
4. Disegna una casella combinata nel foglio di lavoro corrente. Fare clic con il tasto destro e quindi selezionare Properties dal menu di scelta rapida.
   
5. Nel Properties finestra di dialogo, sostituire il testo originale nel file (Nome) campo con TempCombo.
   
6. Spegni il Modalità di progettazione cliccando Costruttori > Modalità di progettazione.

Quindi, applica il codice VBA sottostante

1. Fare clic con il tasto destro sulla scheda del foglio corrente e fare clic Visualizza codice dal menu contestuale. Vedi screenshot:
   
2. 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

   
3. Rassegna 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:

Crea facilmente il completamento automatico dell'elenco a discesa in 2 secondi

Per la maggior parte degli utenti di Excel, il metodo VBA di cui sopra è difficile da padroneggiare. Ma con il Elenco a discesa ricercabile caratteristica di Kutools for Excel, puoi abilitare facilmente il completamento automatico per gli elenchi a discesa di convalida dei dati in un intervallo specificato in soli 2 secondi. Inoltre, questa funzionalità è disponibile per tutte le versioni di Excel.

Consiglio: Prima di applicare questo strumento, installare Kutools for Excel in primo luogo. Vai al download gratuito ora.

1. Per abilitare il completamento automatico negli elenchi a discesa, seleziona prima l'intervallo con i menu a discesa. Quindi, vai a Kutools scheda, scegliere Menu `A tendina > Rendi ricercabile l'elenco a discesa, pop-up automatico.
2. Nel Rendi ricercabile l'elenco a discesa finestra di dialogo, fare clic su OK pulsante per salvare le impostazioni.

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 immettono caratteri, purché un elemento corrisponda 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: