Question

我在Excel中创建了一个Userform，可以轻松地将文本输入到工作表中。

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

此工作表包含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

我的问题是，我在表单中编写了哪些代码，以便在通过组合框选择项目（编号）时，必须自动填写必须包含描述的文本框？

Answer 1

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

在vba Excel中将Combobox与文本框链接

1 个答案: