Come selezionare più elementi dall'elenco a discesa in una cella in Excel?

L'elenco a discesa viene spesso utilizzato nel lavoro quotidiano di Excel. Per impostazione predefinita, è possibile selezionare un solo elemento in un elenco a discesa. Ma in alcuni momenti, potrebbe essere necessario selezionare più elementi dall'elenco a discesa in una singola cella come mostrato nell'immagine sottostante. Come puoi gestirlo in Excel?

Seleziona più elementi dall'elenco a discesa in una cella con VBA

Seleziona più elementi dall'elenco a discesa in una cella con Kutools for Excelè un'opzione pratica

Seleziona più elementi dall'elenco a discesa in una cella con VBA

Ecco alcuni VBA che possono farti un favore nel risolvere questo lavoro.

Seleziona gli elementi duplicati dall'elenco a discesa in una cella

1. Dopo aver creato un elenco a discesa, fare clic con il pulsante destro del mouse sulla scheda del foglio per selezionare Visualizza codice dal menu di scelta rapida.

2. Quindi in Microsoft Visual Basic, Applications Edition finestra, copia e incolla sotto il codice nello script vuoto.

VBA: seleziona più elementi dall'elenco a discesa in una cella

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Salvare il codice e chiudere la finestra per tornare all'elenco a discesa. Ora puoi selezionare più elementi dall'elenco a discesa.

Nota:

1. Con il VBA, separa gli elementi per spazio, è possibile modificare xStrNew = xStrNew & "" & Target.Value ad altri per cambiare il delimitatore di cui hai bisogno. Per esempio, xStrNew = xStrNew & "," & Target.Value separerà gli elementi con virgole.

2. Questo codice VBA funziona per tutti gli elenchi a discesa nel foglio.

Seleziona più elementi dall'elenco a discesa in una cella senza ripetere

Se desideri solo selezionare elementi unici dall'elenco a discesa a una cella, puoi ripetere i passaggi precedenti e utilizzare il codice sottostante.

VBA ： Seleziona più elementi dall'elenco a discesa in una cella senza ripetere

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Entrambi i codici VBA sopra non supportano l'eliminazione di parti del contenuto della cella, supportano solo la cancellazione di tutti gli elementi della cella.

Seleziona più elementi dall'elenco a discesa in una cella con Kutools for Excelè un'opzione pratica

Se non hai familiarità con il codice VBA, puoi farlo installazione gratuita uno strumento utile - Kutools for Excel, che contiene un gruppo di utilità sull'elenco a discesa e c'è un'opzione Elenco a discesa a selezione multipla può aiutarti a selezionare facilmente più elementi dall'elenco a discesa in una cella.

Dopo aver creato l'elenco a discesa, selezionare le celle dell'elenco a discesa e fare clic su Kutools > Menu `A tendina > Elenco a discesa a selezione multipla per abilitare questa utilità.

Quindi le celle dell'elenco a discesa selezionato possono essere selezionate più elementi nella cella.

Se si utilizza questa opzione per la prima volta, è possibile specificare le impostazioni di questa utilità di cui hai bisogno prima di applicare questa utilità.

Clicchi Kutools > Menu `A tendina > la freccia accanto Elenco a discesa a selezione multipla > Impostazioni profilo.

Quindi nel Impostazioni elenco a discesa a selezione multipla dialogo, puoi

1) Specificare l'ambito di applicazione di cui hai bisogno;

2) Specificare la direzione del posizionamento degli oggetti;

3) Specificare il separatore tra gli elementi;

4) Specificare se non aggiungere duplicati e rimuovere gli elementi duplicati.

Clicchi Ok e fare clic su Kutools > Menu `A tendina > Elenco a discesa a selezione multipla per avere effetto.

Consiglio: Per applicare il Elenco a discesa a selezione multipla utilità, è necessario install all'inizio. Se desideri creare un elenco a discesa con più livelli, l'utilità di seguito potrebbe aiutarti.

Crea facilmente un elenco a discesa dipendente dinamico a 2 o più livelli in Excel

In Excel, creare un elenco a discesa a 2 o più livelli è complesso. Qui il file Elenco a discesa dinamico utilità di Kutools for Excel posso farti un favore. Quello che devi solo fare è ordinare i dati come mostrato nell'esempio, quindi selezionare l'intervallo di dati e l'intervallo di output, quindi lasciarlo all'utilità.  Clicca per 30 giorni di prova gratuita!

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni 30 giorni;

---

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...