如何在Excel中的UserForm上基於組合框選擇填充文本框？
假設您有一個包含“名稱”和“職員編號”列的表，如下圖所示。 現在，您需要創建一個嵌入有一個組合框的用戶窗體，該組合框收集內部的所有名稱，並且在從組合框選擇名稱時將填充一個文本框，該文本框將填充相應的職員編號。 本文中的方法可以幫助您輕鬆實現目標。
使用VBA根據用戶窗體上的組合框選擇填充文本框
使用VBA根據用戶窗體上的組合框選擇填充文本框
請執行以下操作，以根據用戶窗體上的組合框選擇為文本框填充相應的值。
1。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 用戶表格。 看截圖：
3.然後將組合框控件和文本框控件插入到創建的用戶窗體中，如下圖所示。
4.右鍵單擊用戶窗體的任何空白，然後單擊 查看代碼 從上下文菜單中。 看截圖：
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是范圍，其中包含您將分別在“用戶窗體”組合框和文本框中填充的值。 並且Sheet5是包含數據范圍的工作表的名稱。 請根據需要更改它們。
6。 按 其他 + 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.在工作簿中關閉“設計模式”。
單擊命令按鈕以打開指定的用戶窗體。 然後，您可以看到所有名稱都收集在組合框中。 從組合框中選擇一個名稱時，相應的人員編號將自動填充到文本框中，如下面的屏幕截圖所示。
相關文章：
最佳辦公效率工具
Kutools for Excel解決了您的大多數問題，並使您的生產率提高了80％
- 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
- 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
- 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
- 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
- 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
- 超過300種強大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。
Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 每天將您的工作效率提高50％，並減少數百次鼠標單擊！
