Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zapolniti okvir besedila na podlagi izbire kombinacij v UserForm v Excelu?

Če imate tabelo, je prikazano stolpec Ime in številka osebja, prikazano spodaj. Zdaj morate ustvariti Userform, vdelan s kombiniranim poljem, ki zbira vsa imena znotraj in polje z besedilom, ki bo zaokrožilo ustrezno številko osebja pri izbiri imena iz kombiniranega polja. Metoda v tem članku vam lahko pomaga, da jo odpravite.

Popolnite besedilno polje na podlagi izbire kombinacije na Userform z VBA


Preprosto vstavite ali izbrišite več potrditvenih polj v velikem obsegu v Excelu:

O Škatle za vstavljanje paketnih paketov pripomočki podjetja Kutools za Excel vam lahko hitro pomagajo pri vstavljanju več potrditvenih polj v izbranem obsegu hkrati. Vse potrditvene polja v izbranem obsegu lahko izbrišete z Batch Preveri polja. Glej sccreenshot:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Popolnite besedilno polje na podlagi izbire kombinacije na Userform z VBA


Prosimo, naredite, kot sledi, da zapolnite tekstovni okvir z ustrezno vrednostjo, ki temelji na izboru kombinacij na Userformu.

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ški obrazec. Prikaz slike:

3. Nato vstavite kontrolnik Combo polje in kontrolni okvir za besedilo v ustvarjeni Userform kot prikazano spodaj.

4. Z desno tipko miške kliknite poljubno prazno polje Userform in kliknite Ogled kode iz kontekstnega menija. Prikaz slike:

5. V začetnem oknu Userform (Code), kopirajte in prilepite spodnjo kodo VBA, da zamenjate izvirnik.

VBA koda: napolnite okvir besedila na podlagi izbire kombinacije na 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 A2: B2 je obseg, ki vsebuje vrednosti, ki jih boste posamezno razdelili v kombinaciji Userform in polje z besedilom. In Sheet5 je ime delovnega lista, ki vsebuje obseg podatkov. Prosimo, spremenite jih po potrebi.

6. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.

7. klik Razvojni > Vstavi > Gumb za urejanje (nadzor ActiveX) da v delovni list vstavite ukazni gumb.

8. Z desno miškino tipko kliknite zavihek stanja in izberite Ogled kode iz menija z desnim klikom. Nato kopirajte in prilepite kodo VBA v okno kode.

VBA koda: Pokaži uporabniško obliko

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. Izklopite način oblikovanja v delovnem zvezku.

Kliknite ukazni gumb, da odprete določeno obliko uporabnika. Potem lahko vidite, da so vsa imena zbrana v kombiniranem polju. Ko izberete ime iz kombiniranega polja, bo ustrezna številka osebja samodejno zapakirana v polje z besedilom, kot je prikazano spodaj.


Sorodni članki:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Carey Ogola · 11 months ago
    The method is very simple and populates the combo box quite efficiently. However, when I try populating the text box, I get a run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class. Kindly assist with resolving this error.
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Hi,
      May I have your Office version? I need the feedback to check for the error.
      Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        hoa tran · 10 months ago
        office 2010 32 bit
        • To post as a guest, your comment is unpublished.
          crystal · 9 months ago
          Good day,
          I have tried the code in Office 2010 32 bit, but no errors occured.
          Please make sure the sheet name and cell range in the first VBA code are the same with your actual sheet name and range.
          Thanks for your comment.