Связать несколько 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 кода чтоб в главный выводились только те файлы что удовлетвряют обоим условиям?