如何在 Excel 的 UserForm 中根據下拉選單的選擇填入文字框？

Author Siluvia Last modified 2025-08-23

假設您有一個包含姓名和員工編號列的表格，如下方截圖所示。現在，您需要創建一個嵌入了下拉選單的 UserForm，該下拉選單收集所有姓名，並在從下拉選單中選擇姓名時，自動填入對應的員工編號到文字框中。本文中的方法可以幫助您實現這一功能。

A screenshot showing a table with Name and Staff Number columns in Excel

使用 VBA 根據 UserForm 中的下拉選單選擇填入文字框

使用 VBA 根據 UserForm 中的下拉選單選擇填入文字框

請按照以下步驟操作，以根據 UserForm 中的下拉選單選擇填入相應的文字框值。

1. 按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊插入 > Userform。參見截圖：

A screenshot showing how to insert a UserForm in Excel VBA

3. 然後將一個下拉選單控制項和一個文字框控制項插入到創建的 Userform 中，如下方截圖所示。

A screenshot of a UserForm in Excel with a ComboBox and TextBox added

4. 右鍵點擊 Userform 的任何空白區域，然後從上下文菜單中點擊 查看代碼。參見截圖：

A screenshot showing how to open the code window for the UserForm in Excel VBA

5. 在打開的 Userform（代碼）視窗中，請複製並粘貼以下 VBA 代碼以替換原始代碼。

VBA 代碼：根據 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

注意：在代碼中，A2:B2 是包含您將分別填入 Userform 下拉選單和文字框中的值的區域。Sheet5 是包含數據區域的工作表名稱。請根據需要進行更改。

6. 按 Alt + Q 鍵退出 Microsoft Visual Basic for Applications 視窗。

7. 點擊 開發工具 > 插入 > 命令按鈕（ActiveX 控制項） 以將命令按鈕插入工作表中。

8. 右鍵點擊工作表標籤並從右鍵菜單中選擇 查看代碼。然後將 VBA 代碼複製並粘貼到代碼窗口中。

VBA 代碼：顯示用戶窗體

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

9. 在工作簿中關閉設計模式。

點擊命令按鈕以打開指定的用戶窗體。然後您可以看到所有姓名都已收集在下拉選單中。當從下拉選單中選擇一個姓名時，對應的員工編號將自動填入文字框中，如下方截圖所示。

A screenshot showing the UserForm with ComboBox selection populating the TextBox in Excel

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多