У меня есть форма с парой полей со списком. Первый комбинированный список добавляет элементы на основе каждой строки в листе 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 той же строки и добавить THAT в качестве элементов во втором комбинированном списке.
Какой лучший способ добиться этого?