Добрый день! В принципе, проблема озвучена в теме. Есть массив - примерно 1000 строк. В них может быть до 12 уникальных значений (месяцы). Хочу добавить в комбобокс возможность выбора месяца из тех, что есть.
Добрый день! В принципе, проблема озвучена в теме. Есть массив - примерно 1000 строк. В них может быть до 12 уникальных значений (месяцы). Хочу добавить в комбобокс возможность выбора месяца из тех, что есть.akobir
Sub FillCombo() Dim x, i& x = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value With CreateObject("System.Collections.ArrayList") For i = 1 To UBound(x) If Not .Contains(x(i, 1)) Then .Add x(i, 1) Next i .Sort Sheets("Данные").ComboBox1.List = .ToArray End With End Sub
[/vba]
akobir, привет вот, например [vba]
Код
Sub FillCombo() Dim x, i& x = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value With CreateObject("System.Collections.ArrayList") For i = 1 To UBound(x) If Not .Contains(x(i, 1)) Then .Add x(i, 1) Next i .Sort Sheets("Данные").ComboBox1.List = .ToArray End With End Sub
или нет листа с именем "Данные", или на листе нет комбобокса ComboBox1 (ActiveX элемент) вы же собираетесь использовать комбобокс? или все же список в ячейке?
или нет листа с именем "Данные", или на листе нет комбобокса ComboBox1 (ActiveX элемент) вы же собираетесь использовать комбобокс? или все же список в ячейке?nilem
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
