如何根據 Excel 使用者表單中下拉式清單的選項，自動填入對應的文字方塊內容？

作者Siluvia修改日期2024-10-23

假設您有一個包含「姓名」與「員工編號」欄位的表格（如下圖所示），現在需要建立一個內嵌下拉式選單的使用者表單，用以收集所有姓名，並搭配一個文字方塊，在選取下拉式選單中的姓名時自動顯示對應的員工編號。本文介紹的方法可協助您輕鬆達成此目標。

顯示 Excel 中包含「姓名」與「員工編號」欄位之表格的螢幕截圖

使用 VBA 在使用者表單中根據下拉式方塊選項填入文字方塊

使用 VBA 在使用者表單中根據下拉式方塊選項填入文字方塊

請依照下列步驟，在使用者表單中根據下拉式選單的選項，自動將對應的值填入文字方塊。

1. 按下 Alt+F11 鍵，立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞ 使用者表單。請參閱下圖：

顯示如何在 Excel VBA 中插入 UserForm 的螢幕截圖

3. 接著，如以下截圖所示，將一個下拉式方塊控制項和一個文字方塊控制項插入至已建立的使用者表單中。

Excel 中已加入 ComboBox 與 TextBox 的 UserForm 螢幕截圖

4. 在使用者表單的任意空白處按一下滑鼠右鍵，然後從快捷選單中點選檢視程式碼。請參閱下圖：

顯示如何在 Excel VBA 中開啟 UserForm 程式碼視窗的螢幕截圖

5. 在開啟的「使用者表單（程式碼）」視窗中，請複製並貼上下列 VBA 程式碼，取代原有內容。

VBA 程式碼：根據使用者表單中的下拉式方塊選項填入文字方塊

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 為包含您要分別填入使用者表單下拉式選單與文字方塊之值的範圍，而 Sheet 5 則為包含資料區域的工作表名稱。請依實際需求調整這些設定。

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. 在活頁簿中關閉設計模式。

點選命令按鈕，即可開啟指定的使用者表單。此時，所有姓名皆已自動匯集至下拉式選單中；當您從該選單中選取某位人員的姓名時，對應的員工編號便會立即自動填入文字方塊，如下圖所示。

顯示 Excel 中選取 ComboBox 項目後自動填入 TextBox 的 UserForm 螢幕截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多