Cum se copiază valoarea casetei combinate în celula activă din Excel?

În unele cazuri, poate fi necesar să copiați valoarea selectată dintr-o casetă combinată în celula activă. În mod normal, trebuie să intrați în caseta combinată, să o copiați și să o lipiți manual în celula activă. Acest articol introduce o metodă convenabilă pentru actualizarea automată a celulei active în timp ce selectați valorile într-o casetă combinată.

Copiați valoarea casetei combinate în celula activă cu cod VBA

VBA 1: Copiați valoarea casetei combinate în celula activă prin Comandă
VBA 2: Copiați automat valoarea casetei combinate în celula activă

Copiați valoarea casetei combinate în celula activă cu cod VBA

Codurile VBA de mai jos vă pot ajuta să copiați automat valoarea casetei combinate în celula activă. Vă rugăm să faceți următoarele.

VBA 1: Copiați valoarea casetei combinate în celula activă prin butonul de comandă

1. În primul rând, trebuie să inserați un buton de comandă în foaia de lucru așa cum este prezentat mai jos.

2. Faceți clic dreapta pe butonul de comandă, apoi faceți clic pe Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:

3. În fereastra pop-up Microsoft Visual Basic pentru aplicații fereastră, înlocuiți codul original din fereastra Cod cu codul VBA de mai jos.

Cod VBA: copiați valoarea casetei combinate în celula activă

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

notițe: În cod, CommandButton1 este numele butonului de comandă inserat, iar ComboBox1 este numele casetei Combo din care veți copia valoarea. Vă rugăm să le schimbați după cum aveți nevoie.

4. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, când trebuie să copiați valoarea casetei combinate în celula activă, selectați celula, apoi faceți clic pe butonul de comandă pentru a o face.

VBA 2: Copiați automat valoarea casetei combinate în celula activă

Codul VBA de mai jos vă poate ajuta să actualizați automat celula activă în timp ce selectați valorile într-o casetă combinată. Puteți face după cum urmează.

1. Asigurați-vă că Mod de proiectare este pornit sub Dezvoltator tab.

2. Faceți clic dreapta pe caseta combinată din care veți copia valoarea, apoi faceți clic pe Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:

3. În fereastra pop-up Microsoft Visual Basic pentru aplicații fereastra, înlocuiți codul original în Cod fereastra cu codul VBA de mai jos.

Cod VBA: copiați valoarea casetei combinate în celula activă

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

notițe: În cod, ComboBox1 este numele casetei combinate din care veți copia valoarea.

4. apasă pe Alt + Q tastele pentru a închide fereastra Microsoft Visual Basic pentru aplicații și pentru a dezactiva modul de proiectare din fila Dezvoltator.

De acum înainte, când selectați valoarea din caseta combinată, această înregistrare selectată va fi afișată automat în celula activă.

Articole pe aceeași temă:

• Cum se afișează formatul de dată în ieșirea casetei combinate în Excel?
• Cum se ascunde sau se ascunde un buton de comandă bazat pe valoarea specificată a celulei în Excel?
• Cum se deschide o foaie de lucru specifică după valoarea selectată a unei casete combinate în Excel?
• Cum să preveniți sau să dezactivați tastarea într-o casetă combinată în Excel?
• Cum să extrageți din caseta combinată pentru a selecta o celulă specifică în Excel?