如何在Excel中的UserForm上基于組合框選擇填充文本框？

假設您有一個包含“名稱”和“職員編號”列的表，如下圖所示。 現在，您需要創建一個嵌入有一個組合框的用戶窗體，該組合框收集內部的所有名稱，并且在從組合框選擇名稱時將填充一個文本框，該文本框將填充相應的職員編號。 本文中的方法可以幫助您輕松實現目標。

使用VBA根據用戶窗體上的組合框選擇填充文本框

使用VBA根據用戶窗體上的組合框選擇填充文本框

請執行以下操作，以根據用戶窗體上的組合框選擇為文本框填充相應的值。

1。 按 其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 用戶表格。 看截圖：

3.然后將組合框控件和文本框控件插入到創建的用戶窗體中，如下圖所示。

4.右鍵單擊用戶窗體的任何空白，然后單擊 查看代碼 從上下文菜單中。 看截圖：

5.在打開的用戶窗體（代碼）窗口中，請復制并粘貼以下VBA代碼以替換原始代碼。

VBA代碼：根據用戶窗體上的組合框選擇填充文本框

Dim xRg As RangeUpdated by Extendoffice 2018/1/30Private Sub UserForm_Initialize()Set xRg = Worksheets("Sheet5").Range("A2:B8")Me.ComboBox1.List = xRg.Columns(1).ValueEnd SubPrivate Sub ComboBox1_Change()Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)End SubCopyNote: In the code, A2:B2 is the range contains the values you will populate separately in both the Userform combo box and text box. And Sheet5 is the name of the worksheet contains the data range. Please change them as you need.6. Press the Alt %