Добрый день
Как в 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 |
Спасибо!