Note: The other languages of the website are Google-translated. Back to English
English English

Come 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 nella cella attiva. Normalmente, è necessario entrare nella casella combinata, copiarla e incollarla manualmente nella cella attiva. Questo articolo introduce un metodo conveniente per aggiornare automaticamente la cella attiva durante la selezione dei valori in una casella combinata.

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

VBA 1: copia il valore della casella combinata nella cella attiva tramite Comando
VBA 2: copia automatica del valore della casella combinata nella cella attiva


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


I seguenti codici VBA possono aiutarti a copiare automaticamente il valore della casella combinata nella cella attiva. Si prega di fare quanto segue.

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

1. Innanzitutto, è necessario inserire un pulsante di comando nel foglio di lavoro come mostrato nell'immagine sottostante.

2. Fare clic con il pulsante destro del mouse sul pulsante di comando, quindi fare clic Visualizza codice dal menu di scelta rapida. Vedi screenshot:

3. Nel spuntare Microsoft Visual Basic, Applications Edition finestra, sostituire il codice originale nella finestra del codice con il codice VBA sottostante.

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

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

Note:: Nel codice, CommandButton1 è il nome del pulsante di comando inserito e ComboBox1 è il nome della casella combinata da cui copiare il valore. Si prega di cambiarli come necessario.

4. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.

D'ora in poi, quando è necessario copiare il valore della casella combinata nella cella attiva, selezionare la cella, quindi fare clic sul pulsante di comando per farlo.

VBA 2: copia automatica del valore della casella combinata nella cella attiva

Il codice VBA sottostante può aiutarti ad aggiornare automaticamente la cella attiva mentre selezioni i valori in una casella combinata. Puoi fare come segue.

1. Assicurati che il Modalità di progettazione è attivato sotto Costruttori scheda.

2. Fare clic con il pulsante destro del mouse sulla casella combinata da cui copiare il valore, quindi fare clic Visualizza codice dal menu di scelta rapida. Vedi screenshot:

3. Nel spuntare Microsoft Visual Basic, Applications Edition finestra, sostituire il codice originale nel file Codice finestra con il codice VBA sottostante.

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

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

Note:: Nel codice, ComboBox1 è il nome della casella combinata da cui copiare il valore.

4. premi il altro + Q tasti per chiudere la finestra di Microsoft Visual Basic, Applications Edition e disattivare la modalità di progettazione nella scheda Sviluppatore.

D'ora in poi, quando si seleziona il valore dalla casella combinata, il record selezionato verrà visualizzato automaticamente nella cella attiva.


Articoli correlati:


I migliori strumenti per la produttività in ufficio

Kutools per 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-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Kalau sel aktifnya ditentuka, seperti misalnya D7, codice bagaimana nya?
Terima Kasih
Questo commento è stato fatto dal moderatore sul sito
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Privato Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tenukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite