Link vba Excel 中带有文本框的组合框

Question

我正在 Excel 中制作一个用户表单，以便轻松地将文本输入作品sheet。

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

此 sheet 包含 2 列，一列 (A) 包含数字，第二列 (B) 包含与这些数字相关联的项目的描述。

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

组合框正在使用以下代码填充项目编号：

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

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

Answer 1

在组合框的更改事件中循环遍历列 a 的值。找到匹配项后，将列 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

Link vba Excel 中带有文本框的组合框

Link Combobox with Textbox in vba Excel

excel

vba

combobox

userform