Страницы: 1
RSS
Отображение результатов автофильтра в listbox
 
Доброго времени суток, подскажите, пожалуйста, как сделать так, чтобы отобранные значения автофильтра отображались в listbox2.
В Listbox1 показываются уникальные результаты столбца G и при выборе значений фильтруются на листе по столбцу G, но никак не получается сделать так, чтобы в Listbox2 отображались уникальные отобранные результаты столбца F. Так Выбрав "Компания 1" в Listbox2 должны появится значения "а1" и "а2", а выбрав "Компания 3" должны высветится значения "а2" и "а3"
 
Цитата
чтобы в Listbox2 отображались уникальные отобранные результаты столбца F.
Код
Private Sub Listbox1_Click()
    Range("F:F").AutoFilter Field:=7, Criteria1:=Listbox1.Column(0)
Dim FilteredRng As Range
Dim rng As Range
Dim dict As Object
    With ActiveSheet.AutoFilter.Range
      Set FilteredRng = .Offset(1).Columns("F").Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
      Set dict = CreateObject("scripting.dictionary")
        For Each rng In FilteredRng
           dict.Item(CStr(rng)) = dict.Item(CStr(rng)) + 1
        Next
        Listbox2.List = dict.Keys
    End With
End Sub
 
Kuzmich, спасибо Вам огромное.
Страницы: 1
Наверх