Una casella combinata è un elenco a discesa da cui un utente può selezionare un elemento o inserire la propria scelta. Per creare un casella combinata in Excel VBA, eseguire i seguenti passaggi.
1. Nella scheda Sviluppatore, fare clic su Inserisci.
2. Nel gruppo Controlli ActiveX, fare clic su Casella combinata.
3. Trascina una casella combinata sul foglio di lavoro.
Nota: puoi modificare il nome di un controllo facendo clic con il pulsante destro del mouse sul controllo (assicurati che sia selezionata la modalità di progettazione) e quindi facendo clic su Proprietà. Per ora, lasceremo ComboBox1 come nome della casella combinata.
Crea un evento di apertura della cartella di lavoro. Il codice aggiunto all'evento di apertura della cartella di lavoro verrà eseguito da Excel VBA quando si apre la cartella di lavoro.
4. Aprire l'editor di Visual Basic.
5. Fare doppio clic su Questa cartella di lavoro in Esplora progetti.
6. Scegliere Cartella di lavoro dall'elenco a discesa a sinistra e scegliere Apri dall'elenco a discesa a destra.
7. Per aggiungere elementi alla casella combinata, aggiungere le seguenti righe di codice all'evento di apertura della cartella di lavoro:
Con Foglio1.ComboBox1
.AddItem "Parigi"
.Aggiungi voce "New York"
.AddItem "Londra"
Termina con
Nota: usa Foglio2 se la tua casella combinata si trova sul secondo foglio di lavoro, Foglio3 se la tua casella combinata si trova sul terzo foglio di lavoro, ecc. Se usi queste righe di codice al di fuori dell'evento Workbook Open, potresti voler aggiungere le righe di codice sotto prima di queste righe di codice. La prima riga di codice cancella la casella combinata. In questo modo i tuoi elementi non verranno aggiunti più volte se esegui il codice più di una volta. La seconda riga di 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 sia selezionata la modalità di progettazione) e fare clic su Proprietà. Compila D2 per LinkedCell.
Nota: vedere anche la proprietà ListFillRange per riempire una casella combinata con un intervallo di celle.
9. Salva, chiudi e riapri il file Excel.
Risultato:
Sebbene in alcune situazioni possa essere utile posizionare direttamente una casella combinata sul foglio di lavoro, una casella combinata è particolarmente utile se posizionata su un form utente.
