如何从 2 张 excel 中提取数据并将其显示在 VB 表单字段中

Question

我有 2 张 excel 表格中的数据，比如 sheet2 和 sheet3，两张表格的 column1 中的值相同。所以我创建了一个带有 1 个下拉列表（Combobox1）、4 个文本框字段和 1 个列表框字段的用户表单。

下拉列表从 sheet2 的第 1 列（例如 A2:20）中选择数据，然后一旦选择了一个值，它应该分别在文本框中显示相应的行值 例如： 从 sheet2 对应的 col-2 应该显示在 textbox1 中，col-3 在 textbox2 中，col4 在 textbox3 中，col5 在 textbox4 中。 而从 sheet3 它应该匹配 column1 值与下拉列表（组合框）中的选定值匹配的行，并且所有相应的值（在 Col 2 - Col52 中）应该显示在用户表单 ListBox1 中。 我是 vba 和 excel 的新手，所以在谷歌的帮助下，我终于能够执行上述一些任务，但我没有得到任何头尾如何将选定的范围值连接到文本框和列表框。 任何帮助都将受到高度赞赏，对我来说将是一个很好的学习课程。 这是我创建的一半但不起作用的代码。

Private Sub ComboBox1_Change()

Application.ScreenUpdating = False


Dim CL As Object

Worksheets(2).Select

For Each CL In Worksheets(2).Range("A2:A20")
If CL = ComboBox1.Text Then
Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy Destination:=ActiveCell.Offset(0, 5)

End If
Next
Worksheets(2).Select
End Sub



Private Sub UserForm_Activate()
ComboBox1.RowSource = "A2:A20"
End Sub

Answer 1

这可能会让你走上正轨：

Private Sub ComboBox1_Change()
    Dim rw As Long, cl As Range

    rw = WorksheetFunction.Match(Me.ComboBox1.Value, Worksheets("Sheet2").Range("A1:A20"), 0)
    TextBox1 = Worksheets("Sheet2").Range("A" & rw).Offset(0, 1)
    TextBox2 = Worksheets("Sheet2").Range("A" & rw).Offset(0, 2)
    TextBox3 = Worksheets("Sheet2").Range("A" & rw).Offset(0, 3)
    TextBox4 = Worksheets("Sheet2").Range("A" & rw).Offset(0, 4)

    ListBox1.Clear

    For Each cl In Worksheets("Sheet3").Range("B" & rw & ":AZ" & rw) //Here AZ is column 52 in worksheet
        ListBox1.AddItem cl
    Next cl
End Sub

Private Sub UserForm_Activate()
    ComboBox1.RowSource = "A1:A20"
End Sub

更新

如果你想让 ListBox 水平显示数据，那么：

1. 在 ListBox 属性中将ColumnHeads 设置为True
2. 在 ListBox 属性中设置 ColumnCount equel 为 52

现在将For each cl... code aboe 替换为：

Dim rng As Range
Set rng = Worksheets("Sheet3").Range("B" & rw & ":AZ" & rw)
Me.ListBox1.RowSource = rng.Address