Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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
Читают тему (гостей: 1)
Наверх