链接Combobox与文本框在Excel中

我在Excel中创build一个用户窗体，以方便地将文本input到工作表中。

我有第二个工作表，其中包含必须填充到用户窗体中的信息。

该表包含2列，一列（A）有数字，第二列（B）有与这些数字链接的项目的描述。

目前我有第一部分人口工作。

正在使用此代码填充项目编号的combobox：

Private Sub UserForm_Initialize() With Worksheets("nummers") cobProductNr.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value End With End Sub 

我的问题是，我在我的表单写什么代码，以便当我通过我的comboboxselect一个项目（数字），必须包含描述自动填充的文本框？

Answer 1

在combobox的更改事件中通过列循环一个值。 当你find匹配的时候，把b列的值放在文本框中。

  Private Sub ComboBox1_Change() Dim lRow As Long 'Now go through and check the values of the first column against what was selected in the combo box. lRow = 1 Do While lRow <= ws.UsedRange.Rows.Count If ws.Range("A" & lRow).Value = ComboBox1.Text Then Text1.Text = ws.Range("B" & lRow).Value Exit Do End If lRow = lRow + 1 Loop End Sub