Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Связать несколько ListBox

86K
15 января 2015 года
Авдеич
2 / / 11.11.2014
Всем привет!
Подскажите плиз!!
есть несколько ListBox (в моем случае 3...пока что).
1 основной заполняется списком файлов из папки, и 2 заполняются согласно

первый листбокс:


Код:
Private Sub ListBox2_Change()
Dim R, C
Dim Ro As Range: Set Ro = Лист2.Range("A2:B" & Лист2.Range("B2").End(xlDown).Row)
Dim Rr As Range: Set Rr = Лист3.Range("A2:B" & Лист2.Range("B2").End(xlDown).Row)
 
ListBox1.Clear

    For R = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(R) Then
            For C = 1 To Ro.Rows.Count
                If CStr(Ro.Cells(C, 2)) = ListBox2.List(R) Then
           
                   ListBox1.AddItem WorksheetFunction.VLookup(Ro.Cells(C, 1), Rr, 1, 0) & ""
                End If

            Next C
        End If
    Next R

End Sub
и второй листбокс:

Код:
Private Sub ListBox3_Change()

Dim R, C
Dim Ro As Range: Set Ro = Лист2.Range("A2:B" & Лист2.Range("B2").End(xlDown).Row)
Dim Rr As Range: Set Rr = Лист3.Range("A2:B" & Лист2.Range("B2").End(xlDown).Row)
 
ListBox1.Clear
    For R = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(R) Then
            For C = 1 To Rr.Rows.Count
                If CStr(Rr.Cells(C, 2)) = ListBox3.List(R) Then
                  ListBox1.AddItem WorksheetFunction.VLookup(Rr.Cells(C, 1), Rr, 1, 0) & ""

                End If
            Next C
        End If
    Next R
   
End Sub
при выборе в каком либо одном ListBox, главный послушно выводит то что надо: вопрос, как сделать обьеденить 2 кода чтоб в главный выводились только те файлы что удовлетвряют обоим условиям?
86K
20 января 2015 года
Авдеич
2 / / 11.11.2014
Я так понимаю что или этот вопрос в принципе нерешаем :) или решаем но никто не сталкивался с ним :)
392
21 января 2015 года
cronya
421 / / 03.01.2009
Напишите корректное условие и будет вам счастье.
ЗЫ: Вам не отвечаю, потому что не можете сформулировать точный вопрос.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог