Come si fa a copiare il valore della casella combinata nella cella attiva in Excel?

In alcuni casi potrebbe essere necessario copiare il valore selezionato da una casella combinata direttamente nella cella attiva. Di norma, occorre accedere manualmente alla casella combinata, copiare il valore e incollarlo nella cella attiva. Questo articolo presenta un metodo pratico per aggiornare automaticamente la cella attiva non appena si seleziona un valore nella casella combinata.

Copiare il valore della casella combinata nella cella attiva con codice VBA

VBA 1: Copia il valore della casella combinata nella cella attiva tramite pulsante
VBA 2: Copia automaticamente il valore della casella combinata nella cella attiva

Copiare il valore della casella combinata nella cella attiva con codice VBA

I seguenti codici VBA consentono di copiare automaticamente il valore della casella combinata nella cella attiva. Procedere come segue.

VBA 1: Copia il valore della casella combinata nella cella attiva tramite pulsante di comando

1. Innanzitutto, inserisci un pulsante di comando nel foglio di lavoro, come mostrato nello screenshot seguente.

2. Fare clic con il pulsante destro del mouse sul pulsante di comando, quindi selezionare Visualizza codice dal menu contestuale. Vedere lo screenshot:

3. Nella finestra Microsoft Visual Basic, Applications che si apre, sostituisci il codice originale nella finestra del codice con il seguente codice VBA.

Codice VBA: Copia il valore della casella combinata nella cella attiva

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Nota: Nel codice, CommandButton1 è il nome del pulsante di comando inserito e ComboBox1 è il nome della casella combinata da cui verrà copiato il valore. Adattali alle tue esigenze.

4. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications.

D’ora in poi, per copiare il valore della casella combinata nella cella attiva, basterà selezionare la cella e fare clic sul pulsante di comando per completare l’operazione.

VBA 2: Copia automaticamente il valore della casella combinata nella cella attiva

Il seguente codice VBA aggiorna automaticamente la cella attiva non appena si selezionano dei valori in una casella combinata. Procedere come indicato di seguito.

1. Assicurati che la Modalità progettazione sia attivata nella scheda Sviluppo.

2. Fare clic con il pulsante destro del mouse sulla casella combinata da cui si desidera copiare il valore, quindi selezionare Visualizza codice dal menu contestuale. Vedere lo screenshot:

3. Nella finestra Microsoft Visual Basic, Applications che si apre, sostituisci il codice originale nella finestra Codice con il seguente codice VBA.

Codice VBA: Copia il valore della casella combinata nella cella attiva

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Nota: Nel codice, ComboBox1 è il nome della casella combinata da cui verrà copiato il valore.

4. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications e disattivare la Modalità progettazione nella scheda Sviluppo.

D’ora in poi, ogni volta che selezioni un valore dalla casella combinata, questo verrà visualizzato automaticamente nella cella attiva.

Articoli correlati:

• Come visualizzare il formato data nell'output di una casella combinata in Excel?
• Come nascondere o mostrare un pulsante di comando in base al valore di una cella specificata in Excel?
• Come aprire un foglio di lavoro specifico in base al valore selezionato in una casella combinata in Excel?
• Come si può impedire o disabilitare la digitazione in una casella combinata in Excel?
• Come usare il tasto Tab per uscire da una casella combinata e selezionare una cella specifica in Excel?

Migliori Strumenti per la Produttività in Office

🤖	KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate…
	Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
	Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
	Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
	Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
	Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
	Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro

Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...

Maggiori dettagli su Kutools per Excel...Scarica Gratuitamente...

---

Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

• 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 all’interno della stessa finestra, invece che in finestre separate.
• Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Maggiori dettagli su Office Tab...Scarica Gratuitamente...

---

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

• Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
• Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
• Funziona meglio insieme— produttività ottimizzata tra le app di Office
• Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
• Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi

Maggiori dettagli su Kutools for Office...Scarica Gratuitamente...