Vai al contenuto principale

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 Code 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

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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 ogni giorno centinaia di clic del mouse!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations