Come popolare la casella di testo in base alla selezione della casella combinata su UserForm in Excel?

Supponendo che una tabella contenga un nome e una colonna del numero del personale come mostrato nell'immagine sottostante. Ora è necessario creare un modulo utente incorporato con una casella combinata che raccolga tutti i nomi all'interno e una casella di testo che popolerà il numero del personale corrispondente quando si seleziona il nome dalla casella combinata. Il metodo in questo articolo può aiutarti a rimuoverlo.

Popolare la casella di testo in base alla selezione della casella combinata su Userform con VBA

Popolare la casella di testo in base alla selezione della casella combinata su Userform con VBA

Si prega di fare quanto segue per popolare la casella di testo con il valore corrispondente in base alla selezione della casella combinata su Userform.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo utente. Vedi screenshot:

3. Quindi inserire un controllo Casella combinata e un controllo Casella di testo nel modulo utente creato come mostrato nell'immagine sottostante.

4. Fare clic con il pulsante destro su qualsiasi spazio vuoto dell'Userform e quindi scegliere Visualizza codice dal menu contestuale. Vedi screenshot:

5. Nella finestra di apertura Userform (Codice), copiare e incollare il codice VBA sottostante per sostituire l'originale.

Codice VBA: popolare la casella di testo in base alla selezione della casella combinata su 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

Note:: Nel codice, A2: B2 è l'intervallo che contiene i valori che verranno popolati separatamente sia nella casella combinata Userform che nella casella di testo. E Sheet5 è il nome del foglio di lavoro che contiene l'intervallo di dati. Si prega di cambiarli come necessario.

6. premi il altro + Q tasti per uscire da Microsoft Visual Basic, Applications Edition finestra.

7. Clic Sviluppatore > inserire > Pulsante di comando (controllo ActiveX) per inserire un pulsante di comando nel foglio di lavoro.

8. Fare clic con il pulsante destro del mouse sulla scheda del foglio e selezionare Visualizza codice dal menu di scelta rapida. Quindi copia e incolla il codice VBA nella finestra del codice.

Codice VBA: mostra il modulo utente

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

9. Disattivare la modalità di progettazione nella cartella di lavoro.

Fare clic sul pulsante di comando per aprire il modulo utente specificato. Quindi puoi vedere tutti i nomi raccolti nella casella combinata. Quando si seleziona un nome dalla casella combinata, il numero del personale corrispondente verrà popolato automaticamente nella casella di testo come mostrato nell'immagine sottostante.

Articoli correlati:

• Come popolare una casella combinata con i dati specificati sulla cartella di lavoro aperta?
• Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
• Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
• Come popolare i risultati di ricerca di Google nel foglio di lavoro in Excel?