0

我有一个带有几个组合框的表格。第一个组合框根据 Excel 工作表中的每一行添加项目。

Public Sub FetchExcelValues(ByVal ControlType As String, ByVal control As Object, ByVal xlApp As Object, ByVal xlWorkBook As Object, ByVal xlWorkSheet As Object, ByVal column As String, ByVal row As Integer)

    Dim iTeller = row
    Dim tekst As String

    Do
        tekst = xlWorkSheet.Cells(iTeller, column).Value
        If tekst <> "" Then
            If ControlType = "Tekstboks" Then
                control.text = tekst
            End If
            If ControlType = "Combobox" Then
                control.Items.Add(tekst)
            End If
            If ControlType = "Label" Then
                control.text = tekst
            End If
        End If
        iTeller = iTeller + 1
    Loop Until tekst = ""

End Sub

这基本上读取指定列中的每个单元格,直到它碰到一个空白单元格。然后它获取每个单元格的值并将其作为项目添加到第一个组合框中。现在,我希望代码接下来要做的是从此组合框中获取所选项目并在另一个工作表中查找匹配项。当它找到一个匹配的单元格时,它应该从与匹配项相同的行的 B 列中获取值。也可能有多个匹配项,因此每次找到匹配项时,我都想获取同一行的 B 列的值,并将其作为项目添加到第二个组合框中。

实现这一目标的最佳方法是什么?

4

1 回答 1

2

听起来您可能只需要使用 Excel 中的 VLookup 或 HLookup 函数。它们的工作方式类似于您想要做的事情,无需编码,只需公式。

于 2010-10-25T15:01:31.390 回答