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 Subnotiț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 Subnotiț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?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
