Kako izpolniti besedilno polje na podlagi izbire kombiniranega polja v UserForm v Excelu?
Recimo, da tabela vsebuje stolpec Ime in številko osebja, kot je prikazano spodaj. Zdaj morate ustvariti uporabniški obrazec, vdelan s kombiniranim poljem, ki zbira vsa imena znotraj, in poljem z besedilom, ki bo zapolnilo ustrezno številko osebja pri izbiri imena iz kombiniranega polja. Metoda v tem članku vam lahko pomaga, da jo znižate.
Popolnite besedilno polje na podlagi izbire kombiniranega polja v Userform z VBA
Popolnite besedilno polje na podlagi izbire kombiniranega polja v Userform z VBA
Naredite naslednje, da zapolnite besedilno polje z ustrezno vrednostjo glede na izbiro kombiniranega polja v Userform.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Uporabniška oblika. Oglejte si posnetek zaslona:
3. Nato v ustvarjeni Userform vstavite kontrolnik Combo box in Control box, kot je prikazano spodaj.
4. Z desno miškino tipko kliknite poljuben prazen prostor Userform in nato kliknite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
5. V začetnem oknu Userform (Code) kopirajte in prilepite spodnjo kodo VBA, da zamenjate izvirnik.
Koda VBA: Zapolnite besedilno polje na podlagi izbire kombiniranega polja v Userform
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub
Opombe: V kodi je A2:B2 obseg, ki vsebuje vrednosti, ki jih boste vnesli ločeno v kombinirano polje Userform in besedilno polje. In Sheet5 je ime delovnega lista, ki vsebuje obseg podatkov. Spremenite jih po potrebi.
6. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.
7. klik Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX) da v delovni list vstavite ukazni gumb.
8. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz menija z desnim klikom. Nato kopirajte in prilepite kodo VBA v okno kode.
Koda VBA: Pokaži uporabniški obrazec
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub
9. Izklopite način načrtovanja v delovnem zvezku.
Kliknite ukazni gumb, da odprete navedeni uporabniški obrazec. Nato lahko vidite, da so vsa imena zbrana v kombiniranem polju. Ko izberete ime iz kombiniranega polja, se ustrezna številka osebja samodejno vnese v besedilno polje, kot je prikazano na spodnjem posnetku zaslona.
Sorodni članki:
- Kako izpolniti kombinirano polje z navedenimi podatki v odprtem delovnem zvezku?
- Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?
- Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?
- Kako izpolniti Googlove rezultate iskanja na delovni list v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!