Связать несколько ListBox
Подскажите плиз!!
есть несколько 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
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
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
Я так понимаю что или этот вопрос в принципе нерешаем :) или решаем но никто не сталкивался с ним :)
ЗЫ: Вам не отвечаю, потому что не можете сформулировать точный вопрос.