Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe vult u textbox in op basis van combobox selectie op UserForm in Excel?

Stel dat u een tabel heeft, een kolom Naam en een kolom Medewerkers zoals hieronder afgebeeld. Nu moet u een gebruikersformulier maken dat is ingesloten met een keuzelijst met invoervak ​​waarin alle namen worden verzameld en een tekstvak waarin het bijbehorende personeelsnummer wordt ingevuld bij het selecteren van de naam in de keuzelijst met invoervak. De methode in dit artikel kan u helpen het op te lossen.

Invul tekstbox op basis van combobox selectie op Userform met VBA


Eenvoudig meerdere selectievakjes invoegen of verwijderen in Excel:

De Batch invoegen Selectievakjes voorzieningen van Kutools for Excel kan u helpen om snel meerdere selectievakjes in het geselecteerde bereik tegelijk in te voegen. En u kunt alle selectievakjes in het geselecteerde bereik verwijderen met de Batch verwijderen selectievakjes. Zie sccreenshot:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

Invul tekstbox op basis van combobox selectie op Userform met VBA


Voer de volgende stappen uit om tekstvak met bijbehorende waarde te vullen op basis van de combobox-selectie op Userform.

1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > Userform. Zie screenshot:

3. Plaats vervolgens een keuzelijst met invoervak ​​en een besturingselement voor het tekstvak in het gemaakte gebruikersformulier zoals hieronder wordt getoond.

4. Klik met de rechtermuisknop op een lege ruimte van het gebruikersformulier en klik vervolgens op Bekijk code vanuit het contextmenu. Zie screenshot:

5. Kopieer en plak de onderstaande VBA-code in het eerste venster Userform (Code) om het origineel te vervangen.

VBA-code: vul tekstvak in op basis van combobox selectie op 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

Notes: In de code, A2: B2 is het bereik bevat de waarden die u afzonderlijk invult in zowel het keuzevak Userform als het tekstvak. En Sheet5 is de naam van het werkblad dat het gegevensbereik bevat. Wijzig ze als je nodig hebt.

6. druk de anders + Q om het te verlaten Microsoft Visual Basic voor toepassingen venster.

7. klikken ontwikkelaar > bijvoegsel > Commandoknop (ActiveX-besturingselement) om een ​​opdrachtknop in het werkblad in te voegen.

8. Klik met de rechtermuisknop op het bladentabblad en selecteer Bekijk code vanuit het rechtsklikmenu. Kopieer en plak vervolgens VBA-code in het codevenster.

VBA-code: geef gebruikersformulier weer

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

9. Schakel de ontwerpmodus uit in de werkmap.

Klik op de opdrachtknop om het opgegeven gebruikersformulier te openen. Vervolgens kunt u zien dat alle namen worden verzameld in de keuzelijst met invoervak. Bij het selecteren van een naam uit de keuzelijst met invoervak, wordt het corresponderende personeelsnummer automatisch in het tekstvak geplaatst, zoals hieronder wordt getoond.


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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 · 1 years 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 · 1 years 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 · 1 years ago
        office 2010 32 bit
        • To post as a guest, your comment is unpublished.
          crystal · 11 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.
          • To post as a guest, your comment is unpublished.
            Dimal · 6 months ago
            Hi,
            i have same issue with office 2013. Any solution please
            • To post as a guest, your comment is unpublished.
              Olban Noe Izaguirre · 4 months ago
              i have the same problem....
              • To post as a guest, your comment is unpublished.
                Chaylon · 1 months ago
                I too have the same problem
                • To post as a guest, your comment is unpublished.
                  crystal · 1 months ago
                  Hi Chaylon,
                  Have you replaced the sheet name in the below code line with your actual used worksheet name?
                  Set xRg = Worksheets("Sheet5").Range("A2:B8")