Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Заполнение ComboBox с двумя столбцами уникальными значениями.
 
Всем привет!
На форме имеется ComboBox2, который имеет два столбца. Как заполнить его уникальными значениями из двух столбцов таблицы на листе?
Учитывая, что таблица будет увеличиваться со временем.

столбец "A" (таблица) = 1-ый столбец в ComboBox2
столбец "B" (таблица) = 2-ой столбец в ComboBox2
Изменено: damask_86ru - 1 Мар 2015 10:42:04
 
Вот эта функция (cb) удаляет дубликаты:
Код
Function cb(rng As Range) As Collection
Dim cell As Range
Dim c As New Collection
On Error Resume Next

    For Each cell In rng
        c.Add cell.Value, cell.Value
    Next cell
    
On Error GoTo 0
Set cb = c
End Function

Sub foo()
'пример использования
Dim key
For Each key In cb([b3:b24])
    Debug.Print key
Next key
End Sub

Учитывая, что таблица будет расширяться, мы просто делаем динамический именованный диапазон и подставляем это имя в функцию. Дальше - дело техники.
С уважением,
Федор/Все_просто
 
См. вариант.
 
Большое СПАСИБО за помощь!
А есть возможность выстроить в списке уникальные значения по алфавиту?
 
Есть, но такая задача в стартовом сообщении не ставилась.
Страницы: 1
Читают тему (гостей: 1)