通过VBA / Excel中的“列表框”传递数据

Question

我有一个包含两列的表：enter image description here

我如下填写“列表框”（cmbPersonal）：

planPersonal.Range("A1", planPersonal.Range("A" & Application.Rows.Count).End(xlUp)).Name = "PersonalDynamic"
.cmbPersonal.RowSource = "PersonalDynamic"
.cmbPersonal.Value = ""
.cmbPersonal.Enabled = True

但是，我希望在“列表框”中选择一个名称时，VBA会在“个人”电子表格的B列中填充一个“文本框”（ID）。例如：列表框：Erick文字框：3

我如何进行这种组合？

Answer 1

尝试在Userform对象VBA代码中关注以下内容

Private Sub ComboBox1_Change()
UserForm1.TextBox1.Value = Application.VLookup(ComboBox1.Value, Range("PersonalDynamic"), 2, False)

End Sub

Private Sub UserForm_Initialize()
Dim planPersonal As Worksheet
Set planPersonal = ThisWorkbook.Sheets("Sheet1")

planPersonal.Range("A1", planPersonal.Range("B" & Application.Rows.Count).End(xlUp)).Name = "PersonalDynamic"

Me.ComboBox1.RowSource = "PersonalDynamic"
Me.ComboBox1.Value = ""
Me.ComboBox1.Enabled = True

End Sub