Страницы: 1
RSS
отобразить в ЛистБоксе суммы и номера договоров
 
Ребята здравствуйте! хотелось бы в готовом примере, увидеть  в ЛистБоксе суммы и номера договоров, рядом с фамилией, при поиске. пример приложил
НЕ БОГИ ГОРШКИ ОБЖИГАЮТ
 
Вариант
Код
Sub ПоискЗначений()
Dim Arr(), arrList(), I&, J&, N&
With Sheets("агенты")
    Arr = .Range("A2:D" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
End With
ReDim arrList(1 To UBound(Arr), 1 To UBound(Arr, 2))
ListBox1.Clear
N = 1
For I = 1 To UBound(Arr)
    If Me.TextBox1 <> Empty And Arr(I, 1) Like Me.TextBox1 & "*" Then
        For J = 1 To 4
            arrList(N, J) = Arr(I, J)
        Next
        N = N + 1
    End If
Next
If UBound(arrList) > 0 Then
    Me.ListBox1.List = arrList
End If
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Проверяйте
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Страницы: 1
Наверх