Страницы: 1
RSS
С умной таблицы добавлять в combo box уникальные значения, С умной таблицы добавлять в combo box уникальные значения
 
Добрый день
Как в combo box добавить уникальные значения из умной таблицы?
Код
Option Explicit
Dim SheetAnimal As Worksheet        ' лист
Dim ListObjectAnimal As ListObject  ' ум таблица
Dim ListRowAnimal As ListRow        ' строка в ум таблице

Sub FillFormAnimal()
    Dim i As Long
    Set SheetAnimal = ThisWorkbook.Worksheets("ЛистЖивотные")
    Set ListObjectAnimal = SheetAnimal.ListObjects("ТаблицаЖивотные")
    UserFormAnimal.ComboBoxAnimal.Clear
    i = 1

    For Each ListRowAnimal In ListObjectAnimal.ListRows
        If ListRowAnimal.Range.Cells(i, 1) <> ListRowAnimal.Range.Cells(i + 1, 1) Then
            UserFormAnimal.ComboBoxAnimal.AddItem ListRowAnimal.Range.Cells(i, 1)
        End If
    Next ListRowAnimal
End Sub
В этом решении одинаковые значения не учитываются, если они идут последовательно. Но если между ними будет другое значение, то значение которое мы уже включили в combo box, еще раз в него попадет. Как оптимально решить этот вопрос?
Спасибо!
 
Да так же, как и из диапазона. При помощи коллекции или словаря.
 
См. вариант с коллекцией.
P.S. Зачем такой мелкий шрифт в КомбоБокс? Ведь зрение испортите...
 
Юрий М,
Большое спасибо !
Страницы: 1
Наверх