Una casella di riepilogo è un elenco da cui un utente può selezionare un elemento. Per creare un casella di riepilogo in Excel VBA, eseguire i seguenti passaggi.
1. Nella scheda Sviluppatore, fare clic su Inserisci.
2. Nel gruppo Controlli ActiveX, fare clic su Casella di riepilogo.
3. Trascina una casella di riepilogo 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 ListBox1 come nome della casella di riepilogo.
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 di riepilogo, aggiungere le seguenti righe di codice all'evento di apertura della cartella di lavoro:
Con Foglio1.ListBox1
.AddItem "Parigi"
.Aggiungi voce "New York"
.AddItem "Londra"
Termina con
Nota: usa Foglio2 se la tua casella di riepilogo si trova nel secondo foglio di lavoro, Foglio3 se la tua casella di riepilogo si trova nel terzo foglio di lavoro, ecc. Se utilizzi queste righe di codice al di fuori dell'evento Apertura cartella di lavoro, potresti voler aggiungere la seguente riga di codice prima di queste righe di codice. Questa riga di codice cancella la casella di riepilogo. In questo modo i tuoi elementi non verranno aggiunti più volte se esegui il codice più di una volta.
ListBox1.Clear
8. Per collegare questa casella di riepilogo a una cella, fare clic con il pulsante destro del mouse sulla casella di riepilogo (assicurarsi che sia selezionata la modalità di progettazione) e fare clic su Proprietà. Compila D3 per LinkedCell.
Nota: vedere anche la proprietà ListFillRange per riempire una casella di riepilogo 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 di riepilogo nel foglio di lavoro, una casella di riepilogo è particolarmente utile se posizionata su un form utente.
