Cum se completează o casetă combinată cu datele specificate în Registrul de lucru deschis?
În mod normal, puteți completa o casetă combinată (Control ActiveX) cu o anumită gamă de date de celulă introducând referințele de celule în câmpul ListFillRange din proprietățile casetei de combo. Dacă doriți să completați direct o casetă combinată cu datele specificate fără a specifica manual proprietățile sale, metoda din acest articol vă poate ajuta.
Completați o casetă combinată cu datele specificate cu codul VBA
Completați o casetă combinată cu datele specificate cu codul VBA
Această metodă vă poate ajuta să completați o casetă combinată cu datele specificate direct în registrul de lucru deschis. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Acest manual de lucru în panoul din stânga pentru a deschide fișierul Acest manual de lucru editor de cod. Și apoi copiați mai jos codul VBA în el. Vedeți captura de ecran:
Cod VBA: populează o casetă combinată cu datele specificate despre registrul de lucru deschis
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
notițe:
3. Salvați registrul de lucru ca Cartea de lucru Excel Macro-Enabled formatează și închide-l.
4. Deschideți registrul de lucru, veți vedea că caseta combinată a fost populată cu datele specificate, după cum urmează:
Legate de articole:
- Cum se copiază valoarea casetei combinate în celula activă din Excel?
- Cum se afișează formatul de dată în ieșirea casetei combinate în Excel?
- Cum să preveniți sau să dezactivați tastarea într-o casetă combinată în Excel?
- Cum se completează caseta combinată cu date din domeniul numit î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!