/ / Casella combinata VBA di Excel

Casella combinata VBA di Excel

Una casella combinata è un elenco a discesa da cui un utente può selezionare un elemento o riempire la propria scelta. Per creare un casella combinata nel Excel VBA, eseguire i seguenti passaggi.

1. Nella scheda Sviluppatore, fare clic su Inserisci.

2. Nel gruppo Controlli ActiveX, fare clic su Casella combinata.

Crea una casella combinata in VBA di Excel

3. Trascina una casella combinata nel foglio di lavoro.

Trascina una casella combinata

Nota: è possibile modificare il nome di un controllo facendo clic con il pulsante destro del mouse sul controllo (assicurarsi che la Modalità progettazione sia selezionata) e quindi fare clic su Proprietà. Per ora, lasceremo ComboBox1 come nome della casella combinata.

Crea un evento di apertura di una cartella di lavoro. Il codice aggiunto all'Evento di apertura della cartella di lavoro verrà eseguito da VBA di Excel quando si apre la cartella di lavoro.

4. Aprire il Visual Basic Editor.

5. Fare doppio clic su questa cartella di lavoro in Esplora progetti.

6. Seleziona cartella di lavoro dall'elenco a discesa a sinistra e scegli Apri dall'elenco a discesa a destra.

Cartella di lavoro Evento aperto in VBA di Excel

7. Per aggiungere elementi alla casella combinata, aggiungi le seguenti linee di codice all'Evento di apertura della cartella di lavoro:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Nota: utilizzare Sheet2 se la casella combinata si trova nel secondo foglio di lavoro, Foglio3 se la casella combinata si trova nel terzo foglio di lavoro, ecc. Se si utilizzano queste righe di codice al di fuori dell'evento Open di Workbook, è possibile aggiungere le righe di codice sotto prima di queste linee di codice. La prima riga di codice cancella la casella combinata. In questo modo i tuoi articoli non verranno aggiunti più volte se esegui il tuo codice più di una volta: la seconda riga del codice cancella la tua scelta.

ComboBox1.Clear
ComboBox1.Value = ""

8. Per collegare questa casella combinata a una cella, fare clic con il pulsante destro del mouse sulla casella combinata (assicurarsi che la modalità di progettazione sia selezionata) e fare clic su Proprietà. Compila D2 per LinkedCell.

LinkedCell

Nota: vedere anche la proprietà ListFillRange per riempire una casella combinata con un intervallo di celle.

9. Salvare, chiudere e riaprire il file Excel.

Risultato:

Casella combinata

Sebbene in alcune situazioni possa essere utile posizionare direttamente una casella combinata sul foglio di lavoro, una casella combinata è particolarmente utile quando viene inserita in un modulo utente.

Leggi anche: